以下是通达信拿回钓鱼岛主图公式源码
通达信拿回钓鱼岛主图公式源码
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;
