改用 台灣冰河列車長 的 均值價 而成

請試用

StickLine( IsUp , CLOSE , HIGH , 0.1 , 0 ) , ColorRed ;
StickLine( IsUp , OPEN , LOW , 0.1 , 0 ) , ColorRed ;
StickLine( IsUp , CLOSE , OPEN , 8 , 1 ) , ColorRed ;
StickLine( IsDown , HIGH , LOW , 0.1 , 0 ) , Color009933 ;
StickLine( IsDown , CLOSE , OPEN , 8 , 0 ) , Color009933;
StickLine( IsEqual and C>=REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , ColorRed ;
StickLine( IsEqual and C>=REF( C , 1 ) , CLOSE , OPEN , 8 , 0 ) , ColorRed ;
StickLine( IsEqual and C<REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , Color009933;
StickLine( IsEqual and C<REF( C , 1 ) , CLOSE , OPEN , 8 , 0 ) , Color009933;
XX:=Barscount( Close ) ; { 以下是描繪第一個交易日的K線 }
StickLine( ( IsUp or IsEqual ) and ( XX = 1 ) , CLOSE , HIGH , 0.1 , 0 ) , ColorRed ;
StickLine( ( IsUp or IsEqual ) and ( XX = 1 ) , CLOSE , LOW , 0.1 , 0 ) , ColorRed ;
StickLine( ( IsUp or IsEqual ) and ( XX = 1 ) , CLOSE , OPEN , 8 , 1 ) , ColorRed ;
StickLine( IsDown and XX = 1 , HIGH, LOW, 0.1, 0 ) , Colorgreen;
StickLine( IsDown and XX = 1 , CLOSE , OPEN , 8 , 0 ) , Colorgreen ;

CA:=REF(DATE,1)<>DATE;
CB:=BARSLAST(CA)+1;
CC:=SUM(VOL,CB);
DC:=((H+L+C*2)/4);
CD:=SUM(DC*VOL,CB);
均值:=REF(CD/CC,1),LINETHICK1;

熊市:MA(LLV(MA(均值, 5), 60), 26);
牛市:MA(HHV(MA(均值, 5), 60), 26);
分水岭:EMA((熊市+牛市)/2, 5) LINETHICK2;
UP:牛市+(牛市-分水岭);
DN:熊市-(分水岭-熊市);

A:=(均值+FORCAST(均值,5))/2;
A1:MA(A,5) COLORYELLOW;
A2:MA(A,26) COLORYELLOW;

牛熊:=FORCAST(FORCAST(均值,26),10),COLOR0088FF LINETHICK2;
牛熊R:=REF(牛熊,5),COLORWHITE;
熊:IF(A<A1,A,A1),LINETHICK1,COLORFF8833;
牛:IF(A>A1,A,A1),LINETHICK1,COLORMAGENTA;
牛熊A:A1 COLOR0088FF LINETHICK2;

附件: 牛熊分水岭.ALG
此文件已被下載 438 次。

感謝分享!

感恩 感恩

__________________
lotus777

謝謝