|
以下是通达信飞天主图公式 带3D立体K线（无源码的请下载附件导入）
通达信飞天主图公式 带3D立体K线
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.001,0.050,0,GNBLOCK),COLORCYAN;{概念};
底部:=(COST(95)-COST(5))/(COST(95)+COST(5))*100;
底部成本价:=COST(底部),COLORYELLOW;
顶部:=100-底部;
顶部成本价:=COST(顶部),COLORGREEN;
均值:=(底部+顶部)/2;
均值成本:=COST(均值),COLORRED,LINETHICK2;
JJ:=ABS(均值成本/C-1);
DD:DMA(CLOSE,JJ),LINETHICK2,COLORRED;
JJ1:=ABS(底部成本价/C-1);
DD1:DMA(CLOSE,JJ1),LINETHICK2,COLORYELLOW;
JJ2:=ABS(顶部成本价/C-1);
DD2:DMA(CLOSE,JJ2),LINETHICK2,COLORWHITE;
开始抓牛:=CROSS(DD,DD2) AND DD1>DD AND DD1>DD2 AND DD>DD2 AND C>DD1;
DRAWTEXT(开始抓牛,L*0.985,'牛启动'),COLORGREEN;
开始抓牛1:=CROSS(DD1,DD) AND DD1>DD AND DD1>DD2 AND DD>DD2 AND C>DD1;
DRAWTEXT(开始抓牛1,L*0.985,'牛启动'),COLORGREEN;
买点1:=REF(均值成本,2)>REF(均值成本,1) AND 均值成本>REF(均值成本,1);
买点2:=REF(均值成本,2)=REF(均值成本,1) AND 均值成本>REF(均值成本,1);
DRAWTEXT(买点1 OR 买点2 AND C>O,L*0.985,'买'),COLORRED;
STICKLINE(C>O,C,O,3.2,0),COLOR000066;
STICKLINE(C>O,C,O,2.0,0),COLOR000077;
STICKLINE(C>O,C,O,1.5,0),COLOR000099;
STICKLINE(C>O,C,O,0.9,0),COLOR0000CC;
STICKLINE(C>O,C,O,0.5,0),COLOR0000FF;
STICKLINE(C>0,O,C,0,0),COLORFFFFFF;
STICKLINE(C<O,L,H,0,0),COLOR009900;
STICKLINE(C<O,C,O,3.2,0),COLOR009900;
STICKLINE(C<O,C,O,2.5,0),COLOR00BB00;
STICKLINE(C<O,C,O,1.5,0),COLOR00DD00;
STICKLINE(C<O,C,O,0.5,0),COLOR00FF00;
STICKLINE(C<O,C,O,0,0),COLORFFFFFF;
644355723.png
|
