通达信拿回钓鱼岛主图公式源码

通达信拿回钓鱼岛主图公式源码

Z1:=STRCAT(HYBLOCK,' '),COLORRED;
 Z2:=STRCAT(Z1,DYBLOCK),COLORRED;
 Z3:=STRCAT(Z2,' '),COLORRED;
 DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLOR00C0C0;
 DRAWGBK(1,RGB(0,0,0),RGB(0,0,0),0,'55',0);
 DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
STICKLINE(C/REF(C,1)>1.095,C,O,2,0),COLORRED;
 DRAWTEXT_FIX(1,0.58,0,0,'~☆~杀上日本岛,干死鬼子佬~拿回钓鱼岛~☆~'),COLORYELLOW;
 顶:BOLL+2*STD(CLOSE,20),COLORGREEN,DOTLINE;
 低:BOLL-2*STD(CLOSE,20),COLORCYAN,DOTLINE;
 高1:=REF(HHV(H,120),3);
 低1:=REF(LLV(L,120),3);
 H3:=高1-(高1-低1)*0.5;
中轴:REFDATE(H3,DATE),COLORMAGENTA,DOTLINE,LINETHICK1;
 BB1:=EMA(C,7);
BB2:=EMA(C,15);
B3:=BB1-BB2;
WDIF:EMA(EMA(EMA(C,2),2),2)+B3,COLORRED,LINETHICK2;
WDEA:EMA(WDIF,7),COLORLICYAN,LINETHICK2;
 DRAWICON(CROSS(WDIF,WDEA),WDEA,5);
 DRAWICON(CROSS(WDEA,WDIF),WDEA,6);
 IF(WDEA<WDIF,WDEA,DRAWNULL),COLORYELLOW ,LINETHICK2;
 IF(WDIF<WDEA,WDIF,DRAWNULL),COLORGREEN,LINETHICK2;
 C3:=REF(C,1);
 涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0);
 STICKLINE(涨停,OPEN,CLOSE,2,0),COLORMAGENTA;
 跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0);
 STICKLINE(跌停,OPEN,CLOSE,2,0),COLORGREEN;