|
以下是通达信芝麻开花副图源码贴图（无源码的请下载附件导入）
买:=IF("KDJ.J"<0,10,0);
条件:=CROSS(9.9,买);
VAR1:=(2*CLOSE+HIGH+LOW)/4;
VAR2:=LLV(LOW,5);
VAR3:=HHV(HIGH,5);
VAR4:=EMA((VAR1-VAR2)/(VAR3-VAR2)*100,5);
MA1:=MA(VAR4,2);
AA:STICKLINE(VAR4>MA1,VAR4,MA1,2,1),COLORFF00FF;
BBB:STICKLINE(VAR4>MA1 AND REF(VAR4,1)<30,VAR4,MA1,2,1),COLORFF00FF;
STICKLINE(VAR4<=MA1,VAR4,MA1,2,1),COLORFFCC66;
H1:IF(CROSS(9.9,买),VAR4-12,DRAWNULL),CROSSDOT,LINETHICK7,COLORYELLOW;
F1_:IF(CROSS(9.9,买),VAR4-12,DRAWNULL),CIRCLEDOT,LINETHICK2,COLORRED;
STICKLINE(CROSS(9.9,买),VAR4+5,MA1-4,2,8),COLORYELLOW;
XXX:=STICKLINE(BBB,VAR4+5,MA1-4,2,1),COLORYELLOW;
STICKLINE(FILTER(XXX ,5) ,VAR4+5,MA1-4,2,1),COLORWHITE;
SSRCJL:=EMA(VOL,17);
SSRCJE:=EMA(AMOUNT,17);
SSRCBJX:=((SSRCJE / SSRCJL) / 100);
SSRGL:=(((CLOSE - SSRCBJX) / SSRCBJX) * 100);
STICKLINE((SSRGL < (0 - 24)),-10,6,3,0),COLORRED;
STICKLINE((SSRGL < (0 - 18)),-10,4,3,0),COLORBLUE;
STICKLINE((SSRGL < (0 - 12)),-10,2,3,0),COLORYELLOW;
STICKLINE((SSRGL < (0 - 8)),-10,-2,3,0),COLORWHITE;
A:=V*100/CAPITAL;
小黑马:=MA(A,180);
DIFF0:=(EMA(DCLOSE,12)-EMA(DCLOSE,26))*100;
DEA0:=EMA(DIFF0,9);
MACD0:=2*(DIFF0-DEA0);
黑马:(MACD0>REF(MACD0,1)*2.5 AND MACD0>15),COLORFF00FF;
STICKLINE(黑马,00,5,1.0,0),COLORMAGENTA;
{DRAWTEXT(黑马,20,'小黑马'),COLORWHITE;};
73266679.jpg
|
