通达信简单易懂《擒同首足》主图指标公式源码

YTH:=引用.YH#YEAR;
YTL:=引用.YL#YEAR;
STH:=引用.SNH#SEASON;
STL:=引用.SNL#SEASON;
MTH:=引用.MH#MONTH;
MTL:=引用.ML#MONTH;
WTH:=引用.WH#WEEK;
WTL:=引用.WL#WEEK;
W1TH:=引用.R1H#WEEK;
W2TH:=引用.R2H#WEEK;
QZL:=(WTH<W1TH AND W1TH<W2TH AND L<=MTL AND (WTL<=MTL||MTL<=YTL));
QSH:=(WTH>W1TH AND W1TH>W2TH AND H>=MTH AND (WTH>=MTH||MTH>=YTH));
STICKLINE(BARSLASTCOUNT(H<=YTH),YTH,YTL,5,0),COLOR220000;
STICKLINE(BARSLASTCOUNT(H<=STH),STH,STL,5,0),COLOR222000;
STICKLINE(BARSLASTCOUNT(H<=MTH),MTH,MTL,5,0),COLOR585829;
STICKLINE(BARSLASTCOUNT(H<=WTH),WTH,WTL,5,0),COLOR002800;
{-----------------------------------------------------------------------------------------};DRAWTEXT_FIX(1,0.980,20,1,'GOODGUPIAO'),COLORYELLOW;
DRAWKLINE(H,O,L,C);
STICKLINE(C>O||(C=O AND (C>=REF(C,1)||L>REF(H,1))),O,C,3.0,0),COLOR000055;
STICKLINE(C>O||(C=O AND (C>=REF(C,1)||L>REF(H,1))),O,C,2.0,0),COLOR000077;
STICKLINE(C>O||(C=O AND (C>=REF(C,1)||L>REF(H,1))),O,C,1.0,0),COLOR000099;
STICKLINE(C>O||(C=O AND (C>=REF(C,1)||L>REF(H,1))),O,C,0.0,0),COLOR0A00FF;
STICKLINE(C<O||(C=O AND (C< REF(C,1)||H<REF(L,1))),O,C,3.0,0),COLORFF1100;
STICKLINE(C<O||(C=O AND (C< REF(C,1)||H<REF(L,1))),O,C,2.0,0),COLORFF4400;
STICKLINE(C<O||(C=O AND (C< REF(C,1)||H<REF(L,1))),O,C,1.0,0),COLORFF7700;
STICKLINE(C<O||(C=O AND (C< REF(C,1)||H<REF(L,1))),O,C,0.0,0),COLORFFCC00;
STICKLINE(QZL,WTL,WTL,15,0),COLOR0000FF;
STICKLINE(QSH,WTH,WTH,15,0),COLORFFFFFF;
PWIA:=PWINNER(4,C)*100;
PWIB:=(1-PWINNER(4,C))*100;
DRAWTEXT(CURRBARSCOUNT<=251 AND BARSLASTCOUNT(QZL)=1,O,VARCAT(VARCAT(VARCAT(VARCAT(
'←同足剑步: ',VAR2STR(L,2)),'&←套牢'),VAR2STR(PWIB,0)),'%')),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT<=251 AND BARSLASTCOUNT(QSH)=1,H*0.997,VARCAT(VARCAT(VARCAT(VARCAT(
'←斩首除妖: ',VAR2STR(H,2)),'&←获利'),VAR2STR(PWIA,0)),'%')),COLORFFA2FF;
DRAWTEXT_FIX(1,0,0,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(
STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(
'深蓝：年高 ',CON2STR(YTH,2)),' 年低 '),CON2STR(YTL,2)),
'&深灰：季高 '),CON2STR(STH,2)),' 季低 '),CON2STR(STL,2)),
'&浅灰：月高 '),CON2STR(MTH,2)),' 月低 '),CON2STR(MTL,2)),
'&绿色：周高 '),CON2STR(WTH,2)),' 周低 '),CON2STR(WTL,2))),COLOREEEEEE;