Ответы на комментарии пользователя Василий Федорович

Мои комментарии:в блогах в форуме
Ответы мне:в блогах в форуме
Все комментарии: к моим постам
Василий Федорович, чевой то? Всем Доброй тяпницы!!!
avatar
  • Вчера в 16:56
  • Еще
Василий Федорович, А… Ну я имел ввиду выход вниз из канала. Как понять — да никак. Ну как минимум нужно пройти вниз канал и поторговать что-то ниже. Это не дает никах гарантий. Канал ведь можно и расширить и наклон изменить и кучу всего, но сейчас золото в канала и шортить от нижней границы канала я бы не стал. Вот что я имел ввиду.  
avatar
  • Вчера в 15:51
  • Еще
Василий Федорович, Никак.  Что за странный вопрос то) Есть вероятности только.  
avatar
  • Вчера в 13:53
  • Еще
Василий Федорович, 
avatar
  • Вчера в 12:20
  • Еще
Василий Федорович, Это так очевидно всем, что так просто и легко вверх не получится) Жду пока болтанку с проколами пониже, на которых буду покупать.   
avatar
  • Вчера в 11:56
  • Еще
Василий Федорович, даже для подобного графика можно посчитать доминантный цикл, там в общем не особо сложно,
у Джона Эллерса последняя версия, такая
Запускаете для своего графика и считаете, это для WealthLab 6.9
using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using WealthLab;
using WealthLab.Indicators;

namespace WealthLab.Strategies
{
	
	public class TASC201609 : WealthScript
	{
		private StrategyParameter paramEnhance;

		public TASC201609()
		{
			paramEnhance = CreateParameter("Enhance Resolution", 0, 0, 1, 1);     
		}
		
		protected override void Execute()
		{
			bool EnhanceResolution = paramEnhance.ValueInt == 0 ? false : true;
			DataSeries HP = new DataSeries(Bars, "HP");
			DataSeries Filt = new DataSeries(Bars, "Filt");
			DataSeries DominantCycle = new DataSeries(Bars, "DominantCycle");

			double Deg2Rad = Math.PI / 180.0;
			double cosInDegrees = Math.Cos((.707 * 360 / 48d) * Deg2Rad);
			double sinInDegrees = Math.Sin((.707 * 360 / 48d) * Deg2Rad);
			double alpha1 = (cosInDegrees + sinInDegrees - 1) / cosInDegrees;
			double a1 = Math.Exp(-1.414 * Math.PI / 8.0);
			double b1 = 2.0 * a1 * Math.Cos((1.414 * 180d / 8.0) * Deg2Rad);
			double c2 = b1;
			double c3 = -a1 * a1;
			double c1 = 1 - c2 - c3;

			for (int bar = 2; bar < Bars.Count; bar++)
			{
				HP[bar] = 0.5*(1 + alpha1)*(Close[bar] - Close[bar-1]) + alpha1*HP[bar-1];
				//Smooth with a SuperSmoother Filter
				Filt[bar] = c1*(HP[bar] + HP[bar-1]) / 2 + c2*Filt[bar-1] + c3*Filt[bar-2];
			}
			
			DataSeries[] ds = new DataSeries[48];
			ChartPane tp = CreatePane(50,false,false);
			for( int n = 0; n < 48; n++ ) 
			{
				ds[n] = new DataSeries(Bars,n.ToString());
				for( int bar = 0; bar < Bars.Count; bar++ )
					ds[n][bar] = n;
				PlotSeries(tp, ds[n], Color.Black, LineStyle.Solid, 16);
			}
			HideVolume();
			
			int dominantCycle = 0; 
			int sumDominantCycle = 0; 
			int countDominantCycle = 0; 
			
			for( int bar = 0; bar < Bars.Count; bar++)
			{
				SetPaneBackgroundColor(PricePane,bar,Color.Black);
				int AvgLength = 3, M = 0;
				double X = 0, Y = 0, Sx = 0, Sy = 0, Sxx = 0, Syy = 0, Sxy = 0;
				double[] Corr = new double[70];
				double[] CosinePart = new double[70];
				double[] SinePart = new double[70];
				double[] SqSum = new double[70];
				double[,] R = new double[70,2];
				double[] Pwr = new double[70];
			
				//Pearson correlation for each value of lag
				for(int Lag = 0; Lag <= 48; Lag++)
				{
					//Set the averaging length as M
					M = AvgLength;
					if( AvgLength == 0 )
						M = Lag;
					Sx = 0; Sy = 0; Sxx = 0; Syy = 0; Sxy = 0;

					for(int count = 0; count <= M-1; count++)
					{
						X = bar-count < 0 ? 0 : Filt[bar-count];
						//Y = bar-Lag+count < 0 ? 0 : Filt[bar-Lag+count];
						Y = bar-(Lag+count) < 0 ? 0 : Filt[bar-(Lag+count)]; // Rev.A
						Sx = Sx + X;
						Sy = Sy + Y;
						Sxx = Sxx + X*X;
						Sxy = Sxy + X*Y;
						Syy = Syy + Y*Y;
					}				

					if( (M*Sxx - Sx*Sx)*(M*Syy - Sy*Sy) > 0 )
						Corr[Lag] = (M*Sxy-Sx*Sy)/Math.Sqrt((M*Sxx - Sx*Sx)*(M*Syy - Sy*Sy));
				}

				//Compute the Fourier Transform for each Correlation
				for(int Period = 0; Period <= 48; Period++)
				{
					CosinePart[Period] = 0;
					SinePart[Period] = 0;

					for(int N = 3; N <= 48; N++)
					{
						double _cosInDegrees = Math.Cos(((double)N * 360 / (double)Period) * Deg2Rad);
						double _sinInDegrees = Math.Sin(((double)N * 360 / (double)Period) * Deg2Rad);
					
						CosinePart[Period] = CosinePart[Period] + Corr[N]*_cosInDegrees;
						SinePart[Period] = SinePart[Period] + Corr[N]*_sinInDegrees;
					}

					SqSum[Period] = CosinePart[Period]*CosinePart[Period] + SinePart[Period]*SinePart[Period];
				}
			
				for(int Period = 8; Period <= 48; Period++)
				{
					R[Period, 1] = R[Period, 0];
					R[Period, 0] = 0.2*SqSum[Period]*SqSum[Period] + 0.8*R[Period,1];					
				}

				//Find Maximum Power Level for Normalization
				double MaxPwr = 0;
				for(int Period = 8; Period <= 48; Period++)
				{
					if( R[Period, 0] > MaxPwr )
						MaxPwr = R[Period, 0];
				}
				for(int Period = 8; Period <= 48; Period++)
				{
					Pwr[Period] = R[Period, 0] / MaxPwr;
				}
			
				//Optionally increase Display Resolution by raising the NormPwr to
				//a higher mathematically power (since the maximum amplitude is
				//unity, cubing all amplitudes further reduces the smaller ones)
				if( EnhanceResolution )
				{
					for(int Period = 8; Period <= 48; Period++)
					{
						Pwr[Period] = Math.Pow(Pwr[Period], 3);
					}
				}

				//Compute the dominant cycle using the CG of the spectrum
				double PeakPwr = 0, Spx = 0, Sp = 0;
				for(int Period = 8; Period <= 48; Period++)
				{
					if( Pwr[Period] > PeakPwr )
						PeakPwr = Pwr[Period];
				}				

				
				double spx = 0, sp = 0;
				for (int period = 8; period <= 48; period++) 
					if (Pwr[period] >= 0.25) 
					{
						spx += period * Pwr[period]; 
						sp += Pwr[period]; 
					}

				if (sp >= 0.25) 
				{
					dominantCycle = Convert.ToInt32(spx / sp); 
					sumDominantCycle += dominantCycle; 
					countDominantCycle++; 
				}
				// PrintDebug(bar + " - " + dominantCycle);

				
				//Plot as a Heatmap
				double Color1 = 255, Color2 = 0, Color3 = 0;
				for(int Period = 8; Period < 48; Period++)
				{
					if( Pwr[Period] > 0.5 )
					{
						Color1 = 255;
						Color2 = 255*(2*Pwr[Period] - 1);
					}
					else
					{
						Color1 = 2*255*Pwr[Period];
						Color2 = 0;
					}
					
					Color1 = Math.Min((int)Color1,255); Color1 = Math.Max((int)Color1,0);
					Color2 = Math.Min((int)Color2,255); Color2 = Math.Max((int)Color2,0);
					Color3 = Math.Min((int)Color3,255); Color3 = Math.Max((int)Color3,0);
					
					SetSeriesBarColor(bar, ds[Period], Color.FromArgb(100,(int)Color1,(int)Color2,(int)Color3) );
				}
			}
			if (countDominantCycle > 20) // Если получили статистически значимую выборку доминантных циклов
				PrintDebug("Dom "+ Bars.Symbol +" = "+(1d * sumDominantCycle / countDominantCycle));

		}
	}
}
avatar
  • 10 июня 2024, 21:01
  • Еще
Василий Федорович, да вот же у тебя на картинке!
avatar
  • 10 июня 2024, 10:57
  • Еще
Василий Федорович, вы же на карту жене деньги пересылаете через приложение. И операции там смотрите. И тут бац… Приложение падает… Много вы с женой своих операций увидите? С предприятиями так же…
avatar
  • 08 июня 2024, 09:44
  • Еще
Василий Федорович, речь именно о банках. Специфика.
avatar
  • 08 июня 2024, 05:39
  • Еще
Василий Федорович, бумаги горят. особенно когда их жгут сами банкиры
avatar
  • 07 июня 2024, 20:38
  • Еще
Василий Федорович, к вам вопросов больше нет. Удачи вам и с квадратным, и с зеленым.
avatar
  • 07 июня 2024, 13:13
  • Еще
Василий Федорович, рынок не может быть хорошим, или плохим. Лучше рынка значит лучше индекса полной доходности.

А на мой вопрос ответа не будет?)
avatar
  • 05 июня 2024, 11:01
  • Еще
Василий Федорович, это грамотный сток пикинг. Когда компетентность в вопросе выбора бумаг приводит вас к тому что вы покупаете бумаги которые сильно лучше рынка.

Отвечайте. :)
avatar
  • 02 июня 2024, 02:35
  • Еще
Василий Федорович, Что значит концентрация на падении, и корридорах?
avatar
  • 01 июня 2024, 18:26
  • Еще
Василий Федорович, почему тогда рынок сша стабильно растет уже полвека и все их инвесторы тупо просто разбогатели?
avatar
  • 01 июня 2024, 18:22
  • Еще
Василий Федорович,
Я не издеваюсь но Просто У него свое мировоззрение. У вас свое.
А У меня чемодан с долларами...
Короче — У каждого свое видение ситуации
avatar
  • 01 июня 2024, 18:59
  • Еще
Василий Федорович, только с облигациями.

Но интересно как автор себе представляет биржевой рынок, где действуют только условные 100 фондов и практически нет частных лиц. Как эти фонды будут зарабатывать на акциях? Как Вы правильно сказали, все в выигрыше не могут оказаться.
avatar
  • 01 июня 2024, 17:37
  • Еще
Василий Федорович, дочитал-почему покупать на 0.4 (а не по 0.04 или по 0.004) не понял
Василий Федорович, Да ладно вам перегибать. 

Что те, что те-Монголы. Только одни потомки Чингисхана из лесных народов, а другие тоже лесные, но чуть древнее предыдущих.
avatar
  • 31 мая 2024, 02:47
  • Еще
Василий Федорович, А что, разве у инвестора и трейдера происхождения разные? А амбиции?  А общая вера? 
avatar
  • 31 мая 2024, 02:37
  • Еще
Выберите надежного брокера, чтобы начать зарабатывать на бирже:
....все тэги
UPDONW
Новый дизайн