k變色畫均價線標數字

請老師將符合條件的K變黃，兩個相鄰黃K之間畫均價線，每次黃K出現均價線重新開始畫，到下一個黃K出來止

2,以收盤價為準，黃K之后大于均價線的K根數寫在黃K頂上，小于的寫在黃K的L下。

?

?來源:程序化99

參考：

?

A:=H-L>3*REF (H-L,1);
DRAWCOLORKLINE(A,COLORYELLOW,0);
S:SUM(AVPRICE*V,SUMBARS(A,1))/SUM(V,SUMBARS(A,1));
DRAWNUMBER1(A,H,COUNT(C>S,SUMBARS(A,2)),0);

?

?來源: www.tumamayizhan.com

?

A:=H-L>3*REF (H-L,1);
DRAWCOLORKLINE(A,COLORYELLOW,0);
S:SUM(AVPRICE*V,SUMBARS(A,1))/SUM(V,SUMBARS(A,1));
DRAWNUMBER1(A,H,COUNT(C>S,SUMBARS(A,2)),0),FONTSIZE20;
DRAWNUMBER1(A,L,COUNT(C<S,SUMBARS(A,2)),0),VALIGN0,FONTSIZE20;

?

效果如圖：


文件名：23.bmp

?