커뮤니티
문의드립니다.
2018-03-16 11:18:38
158
글번호 117451
도움주시는 덕분에 도전하고 있습니다. 매번 감사합니다.
1. 코딩 변환 부탁드립니다.
inputs:
Period( 60 ),
OBLevel( 90 ),
OSLevel( 10 ),
NormalLevel( 50 ) ;
variables:
Stoch1( 0 ),
Stoch2( 0 ),
Diff( 0 ),
Range1( 0 ),
Range2( 0 ),
StressValue( 0 ) ;
StressValue = 50 ;
Stoch1 = 50 ;
Stoch2 = 50 ;
{ raw stochastics for price1 and price2 }
Range1 = Highest( High, Period ) - Lowest( Low, Period ) ;
Range2 = Highest( High of Data2, Period)
- Lowest( Low of Data2, Period ) ;
if Range1 <> 0 and Range2 <> 0 then
begin
Stoch1 = ( Close - Lowest( Low, Period ) ) / Range1 ;
Stoch2 = ( Close of Data2
- Lowest( Low of Data2, Period ) ) / Range2 ;
{ difference in stochastics }
Diff = Stoch1 - Stoch2;
{ stress indicator }
Range1 = Highest( Diff, Period ) - Lowest( Diff, Period ) ;
if Range1 <> 0 then
StressValue = 100 * ( Diff - Lowest( Diff, Period ) ) / Range1 ;
end ;
Plot1( StressValue, "Stress" ) ;
Plot2( Stoch1 * 100, "D1 Stoch" ) ;
Plot3( Stoch2 * 100, "D2 Stoch" ) ;
Plot4( OBLevel, "OverBought" ) ;
Plot5( OSLevel, "OverSold" ) ;
Plot6( NormalLevel, "Normal" ) ;
답변 1
예스스탁 예스스탁 답변
2018-03-16 15:43:24
안녕하세요
예스스탁입니다.
inputs:
Period( 60 ),
OBLevel( 90 ),
OSLevel( 10 ),
NormalLevel( 50 ) ;
variables:
Stoch1( 0,data1 ),
Stoch2( 0,data2 ),
Diff( 0,data1 ),
Range1( 0,data1 ),
Range2( 0,data2 ),
StressValue( 0,data1 ) ;
StressValue = 50 ;
Stoch1 = 50 ;
Stoch2 = 50 ;
#{ raw stochastics for price1 and price2 }
Range1 = data1(Highest( High, Period ) - Lowest( Low, Period ));
Range2 = data2(Highest( High , Period)- Lowest( Low, Period )) ;
if Range1 <> 0 and Range2 <> 0 then
begin
Stoch1 = data1(( Close - Lowest( Low, Period ) ) / Range1);
Stoch2 = data2(( Close - Lowest( Low, Period ) ) / Range2) ;
#{ difference in stochastics }
Diff = Stoch1 - Stoch2;
#{ stress indicator }
Range1 = data1(Highest( Diff, Period ) - Lowest( Diff, Period ));
if Range1 <> 0 then
StressValue = data1(100 * ( Diff - Lowest( Diff, Period ) ) / Range1);
end;
Plot1( StressValue, "Stress" ) ;
Plot2( Stoch1 * 100, "D1 Stoch" ) ;
Plot3( Stoch2 * 100, "D2 Stoch" ) ;
Plot4( OBLevel, "OverBought" ) ;
Plot5( OSLevel, "OverSold" ) ;
Plot6( NormalLevel, "Normal" ) ;
즐거운 하루되세요
> 잡다백수 님이 쓴 글입니다.
> 제목 : 문의드립니다.
> 도움주시는 덕분에 도전하고 있습니다. 매번 감사합니다.
1. 코딩 변환 부탁드립니다.
inputs:
Period( 60 ),
OBLevel( 90 ),
OSLevel( 10 ),
NormalLevel( 50 ) ;
variables:
Stoch1( 0 ),
Stoch2( 0 ),
Diff( 0 ),
Range1( 0 ),
Range2( 0 ),
StressValue( 0 ) ;
StressValue = 50 ;
Stoch1 = 50 ;
Stoch2 = 50 ;
{ raw stochastics for price1 and price2 }
Range1 = Highest( High, Period ) - Lowest( Low, Period ) ;
Range2 = Highest( High of Data2, Period)
- Lowest( Low of Data2, Period ) ;
if Range1 <> 0 and Range2 <> 0 then
begin
Stoch1 = ( Close - Lowest( Low, Period ) ) / Range1 ;
Stoch2 = ( Close of Data2
- Lowest( Low of Data2, Period ) ) / Range2 ;
{ difference in stochastics }
Diff = Stoch1 - Stoch2;
{ stress indicator }
Range1 = Highest( Diff, Period ) - Lowest( Diff, Period ) ;
if Range1 <> 0 then
StressValue = 100 * ( Diff - Lowest( Diff, Period ) ) / Range1 ;
end ;
Plot1( StressValue, "Stress" ) ;
Plot2( Stoch1 * 100, "D1 Stoch" ) ;
Plot3( Stoch2 * 100, "D2 Stoch" ) ;
Plot4( OBLevel, "OverBought" ) ;
Plot5( OSLevel, "OverSold" ) ;
Plot6( NormalLevel, "Normal" ) ;