通达信简单易懂《擒同首足》主图指标 源码 附图
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,'zbgs3'),COLORYELLOW;
DRAWKLINE(H,O,L,C);{zbgs3.com}
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;
未来函数检测结果如下：
该公式包含未来函数:WINNER
该公式包含未来函数:PWINNER
该公式包含未来函数:#MONTH
该公式包含未来函数:#WEEK
该公式包含未来函数:#YEAR
解密、定制、编写股票指标请联系QQ或微信同号：88652583
相关股票指标公式
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
QSH赋值:(WTH>W1TH AND W1TH>W2TH AND H>=MTH AND (WTH>=MTH||MTH>=YTH))
STICKLINE( 条件连续成立次数(H<=YTH),YTH,YTL,5,0),COLOR220000
STICKLINE( 条件连续成立次数(H<=STH),STH,STL,5,0),COLOR222000
STICKLINE( 条件连续成立次数(H<=MTH),MTH,MTL,5,0),COLOR585829
STICKLINE( 条件连续成立次数(H<=WTH),WTH,WTL,5,0),COLOR002800
{-----------------------------------------------------------------------------------------}
当满足条件1时,在横轴0.980纵轴20位置书写文字
DRAWKLINE(H,O,L,C)
{ZBGS3.COM}
STICKLINE(C>O||(C=O AND (C>=1日前的C||L>1日前的H)),O,C,3.0,0),COLOR000055
STICKLINE(C>O||(C=O AND (C>=1日前的C||L>1日前的H)),O,C,2.0,0),COLOR000077
STICKLINE(C>O||(C=O AND (C>=1日前的C||L>1日前的H)),O,C,1.0,0),COLOR000099
STICKLINE(C>O||(C=O AND (C>=1日前的C||L>1日前的H)),O,C,0.0,0),COLOR0A00FF
STICKLINE(C
STICKLINE(C
STICKLINE(C
STICKLINE(C当满足条件QZL时,在WTL和WTL之间画柱状线
当满足条件QSH时,在WTH和WTH之间画柱状线
PWIA赋值:P4,C计算的获利盘比例*100
PWIB赋值:(1-P4,C计算的获利盘比例)*100
DRAWTEXT( 到最后交易的周期<=251 AND 条件连续成立次数(QZL)=1,O,VARCAT(VARCAT(VARCAT(VARCAT(
'←同足剑步: ',VAR2STR(L,2)),'&←套牢'),VAR2STR(PWIB,0)),'%')),COLOR00FFFF
DRAWTEXT( 到最后交易的周期<=251 AND 条件连续成立次数(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
