ARTICLE · 1073403
通达T0分时主图+昨日选谷源码修正



精准分时主图源码:
SPJ:=CLOSE;
KPJ:=OPEN;
ZGJ:=HIGH;
ZDJ:=LOW;
CJL:=VOL;
WAXLAA:=EMA(SPJ,30);
WAXLAB:=EMA(SPJ,900);
STICKLINE((WAXLAA>WAXLAB),WAXLAA,WAXLAB,0.8,0),COLORRED;
STICKLINE((WAXLAA<WAXLAB),WAXLAA,WAXLAB,0.8,0),COLORGREEN;
WAXLAC:=MAX(DYNAINFO(3),DYNAINFO(5));
WAXLAD:=MIN(DYNAINFO(3),DYNAINFO(6));
WAXLAE:=WAXLAC-WAXLAD;
WAXLAF:=WAXLAD+WAXLAE*7/8,COLORLIGREEN;
顶压:WAXLAF;
WAXLAG:=WAXLAD+WAXLAE*0.5/8,COLORLIMAGENTA;
底支:WAXLAG;
WAXLAH:=(WAXLAG+WAXLAF)/2,COLORWHITE,POINTDOT;
中轴:WAXLAH;
WAXLAI:=SUM(CJL*SPJ,0)/SUM(CJL,0),COLORYELLOW,DOTLINE;
均价:WAXLAI;
WAXLAJ:=SPJ,COLORWHITE,LINETHICK2;
现价:WAXLAJ;
DRAWTEXT(ISLASTBAR AND WAXLAJ,WAXLAJ,STRCAT('←',CON2STR(WAXLAJ,2))),COLORYELLOW;
STICKLINE(CROSS(WAXLAG,WAXLAJ),WAXLAG,WAXLAH,1,0),COLORCC00FF;
STICKLINE(CROSS(WAXLAJ,WAXLAF),WAXLAF,WAXLAH,1,0),COLOR33FF33;
DRAWTEXT(LONGCROSS(WAXLAG,WAXLAJ,2),WAXLAG*1.001,'★买'),COLORFF66FF;
DRAWTEXT(LONGCROSS(WAXLAJ,WAXLAF,2),WAXLAF*0.999,'☆卖'),COLOR66FF33;
STICKLINE(SPJ<WAXLAG,WAXLAG,SPJ,2,0),COLORRED;
STICKLINE(CROSS(WAXLAG,WAXLAJ),WAXLAG,(WAXLAG-WAXLAH)/5+WAXLAG,2,0),COLORYELLOW;
DRAWTEXT(CROSS(WAXLAG,WAXLAJ),(WAXLAG-WAXLAH)/5+WAXLAG,'底'),COLORYELLOW;
STICKLINE(CROSS(WAXLAJ,WAXLAF),WAXLAF,WAXLAF-(WAXLAG-WAXLAH)/5,2,0),COLORLIRED;
DRAWTEXT(CROSS(WAXLAJ,WAXLAF),WAXLAF-(WAXLAG-WAXLAH)/5,'顶'),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=8,WAXLAF+0.003,'顶'),COLORGREEN,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=8,WAXLAG-0.003,'底'),COLORLIRED,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=8,(WAXLAG+WAXLAF)/2,'中'),COLORWHITE,LINETHICK1;
WAXLAK:=CJL*SPJ/100,NODRAW;
WAXLAL:=SUM((IF(((WAXLAK/8>20) AND (SPJ>(REF(SPJ,1)))),WAXLAK,0)),0);
WAXLAM:=SUM((IF(((WAXLAK/8>20) AND (SPJ<(REF(SPJ,1)))),WAXLAK,0)),0);
WAXLAN:=(WAXLAL+WAXLAM);
WAXLAO:=IF((ISLASTBAR),((100*WAXLAL)/WAXLAN),0);
WAXLAP:=IF((ISLASTBAR),((100*WAXLAM)/WAXLAN),0);
WAXLAQ:=1;
WAXLAR:=STRCAT(STRCAT('机勾买:',CON2STR((100*WAXLAL)/WAXLAN,0)),'%');
WAXLAS:=STRCAT(STRCAT('机勾卖:',CON2STR((100*WAXLAM)/WAXLAN,0)),'%');
WAXLAT:=STRCAT(STRCAT('机勾总买:',CON2STR((100*(WAXLAL-WAXLAM))/WAXLAN,0)),'%');
DRAWTEXT_FIX(WAXLAQ=1,0,0.02,0,WAXLAR),COLORRED;
DRAWTEXT_FIX(WAXLAQ=1,0.13,0.02,0,WAXLAS),COLOR00FF00;
DRAWTEXT_FIX(WAXLAQ=1,0.88,1,0,WAXLAT),COLOR00FFFF;
WAXLAU:=BUYVOL*DYNAINFO(7)*100/10000,COLOR0000FF,NODRAW;
WAXLAV:=SELLVOL*DYNAINFO(7)*100/10000,COLOR00FF00,NODRAW;
WAXLAW:=ABS(WAXLAU)+ABS(WAXLAV),COLOR80FFFF,NODRAW;
WAXLAX:=ABS(WAXLAU)-ABS(WAXLAV),COLOR80FFFF,NODRAW;
WAXLAY:=ABS(WAXLAU)/WAXLAW*100;
WAXLAZ:=ABS(WAXLAV)/WAXLAW*100;
TESTSKIP(NOT(WAXLAU OR WAXLAV OR WAXLAW OR WAXLAX OR WAXLAY OR WAXLAZ)!=0);
DRAWRECTREL(595,1000,795,940,RGB(0,128,0));
DRAWRECTREL(595,995,795,945,RGB(0,148,0));
DRAWRECTREL(595,990,795,950,RGB(0,168,0));
DRAWRECTREL(595,985,795,955,RGB(0,188,0));
DRAWRECTREL(595,980,795,960,RGB(0,208,0));
DRAWRECTREL(595,975,795,965,RGB(0,228,0));
DRAWRECTREL(595,970,795,970,RGB(0,248,0));
DRAWRECTREL(595,1000,595+WAXLAU*210/WAXLAW,940,RGB(128,0,0));
DRAWRECTREL(595,995,595+WAXLAU*210/WAXLAW,945,RGB(148,0,0));
DRAWRECTREL(595,990,595+WAXLAU*210/WAXLAW,950,RGB(168,0,0));
DRAWRECTREL(595,985,595+WAXLAU*210/WAXLAW,955,RGB(188,0,0));
DRAWRECTREL(595,980,595+WAXLAU*210/WAXLAW,960,RGB(208,0,0));
DRAWRECTREL(595,975,595+WAXLAU*210/WAXLAW,965,RGB(228,0,0));
DRAWRECTREL(595,970,595+WAXLAU*210/WAXLAW,970,RGB(248,0,0));
DRAWRECTREL(595+WAXLAU*210/WAXLAW,940,595+WAXLAU*210/WAXLAW,1000,RGB(128,0,0));
DRAWRECTREL(795,940,795,1000,RGB(0,0,10));
DRAWRECTREL(594.8,939.8,594.8,1000,RGB(0,0,10));
DRAWRECTREL(594.8,939.8,594.8,939.8,RGB(0,0,10));
DRAWRECTREL(594.8,1000,594.8,1000,RGB(0,0,10));
DRAWTEXT_FIX(1,0.54,0.89,0,STRCAT(STRCAT('',CON2STR(WAXLAU,1)),'万')),COLOR0000FF;
DRAWTEXT_FIX(1,0.785,0.89,0,STRCAT(STRCAT('',CON2STR(WAXLAV,1)),'万')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(WAXLAX)>0,0.65,0.89,0,STRCAT(' ',STRCAT(CON2STR(WAXLAX,1),'万'))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(WAXLAX)<0,0.65,0.89,0,STRCAT(' ',STRCAT(CON2STR(WAXLAX,1),'万'))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(WAXLAX)=0,0.65,0.89,0,STRCAT(' ',STRCAT(CON2STR(WAXLAX,1),'万'))) COLOR80FFFF;
DRAWTEXT_FIX(1,0.8,0.98,0,STRCAT(STRCAT(' ',CON2STR(WAXLAZ,1)),'%')),COLOR00FF00;
DRAWTEXT_FIX(1,0.54,0.98,0,STRCAT(STRCAT('',CON2STR(WAXLAY,1)),'%')),COLOR0000FF;
WAXLBA:=STRCAT('市盈率: ',CON2STR(SPJ/FINANCE(33),2));
WAXLBB:=STRCAT(' 市销率: ',CON2STR(SPJ/(FINANCE(20)/FINANCE(1)),2));
WAXLBC:=STRCAT(' 市净率: ',CON2STR(SPJ/FINANCE(34),2));
WAXLBD:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
WAXLBE:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
WAXLBF:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
WAXLBG:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
WAXLBH:=STRCAT(' 利润同比: ',CON2STR(FINANCE(43),2));
WAXLBI:=STRCAT(' 收入同比: ',CON2STR(FINANCE(44),2));
WAXLBJ:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
WAXLBK:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;
WAXLBL:=FINANCE(23)/FINANCE(10)*3.3;
WAXLBM:=FINANCE(19)/FINANCE(15)*0.6;
WAXLBN:=FINANCE(20)/FINANCE(15)*0.999;
WAXLBO:=WAXLBJ+WAXLBK+WAXLBL+WAXLBM+WAXLBN;
WAXLBP:=IF(WAXLBO<1.2,'重警',IF(WAXLBO>=1.2 AND WAXLBO<2.6,'轻警','无警'));
WAXLBQ:=STRCAT('财务预警: ',STRCAT(WAXLBP,STRCAT('-Z值: ',CON2STR(WAXLBO,3))));
WAXLBR:=STRCAT(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));
WAXLBS:=STRCAT(' 现金负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));
WAXLBT:=STRCAT('风险系数: ',STRCAT(STRCAT(WAXLBQ,WAXLBR),WAXLBS));
DRAWTEXT_FIX(ISLASTBAR,0.025,0.96,0,WAXLBT),COLORCYAN;
WAXLBU:=YEAR AND MONTH AND DAY;
WAXLBV:=STRCAT(CON2STR(YEAR,0),'年');
WAXLBW:=STRCAT(CON2STR(MONTH,0),'月');
WAXLBX:=STRCAT(CON2STR(DAY,0),'日');
WAXLBY:=STRCAT('星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
WAXLBZ:=STRCAT(STRCAT(STRCAT(WAXLBV,WAXLBW),STRCAT(WAXLBX,WAXLBY)),'');
DRAWTEXT_FIX(WAXLBU,0.83,0,0,WAXLBZ),COLORGREEN
主副图共振选谷源码:昨日文章源码出错,已重新修改
SPJ:=CLOSE;
KPJ:=OPEN;
ZGJ:=HIGH;
ZDJ:=LOW;
CJL:=VOL;
WAXLAI:=MA(SPJ,5);
WAXLAJ:=MA(SPJ,10);
WAXLAK:=LLV(ZDJ,34);
WAXLAL:=MA(WAXLAK,4);
WAXLAM:=(ZGJ+ZDJ+SPJ)/3;
WAXLAN:=(WAXLAM-MA(WAXLAM,6))/(0.015*AVEDEV(WAXLAM,5));
WAXLAO:=ABS(REF(WAXLAN,1)-WAXLAN);
WAXLAP:=(WAXLAM-MA(WAXLAM,10))/(0.015*AVEDEV(WAXLAM,10));
WAXLAQ:=ABS(REF(WAXLAP,1)-WAXLAP),LINETHICK0;
WAXLAR:=(WAXLAM-MA(WAXLAM,20))/(0.015*AVEDEV(WAXLAM,20));
WAXLAS:=ABS(REF(WAXLAR,1)-WAXLAR),LINETHICK0;
WAXLAT:=(WAXLAM-MA(WAXLAM,30))/(0.015*AVEDEV(WAXLAM,30));
WAXLAU:=ABS(REF(WAXLAT,1)-WAXLAT),LINETHICK0;
WAXLAV:=(WAXLAM-MA(WAXLAM,60))/(0.015*AVEDEV(WAXLAM,60));
WAXLAW:=ABS(REF(WAXLAV,1)-WAXLAV);
WAXLAX:=WAXLAN+WAXLAP+WAXLAR+WAXLAT+WAXLAV;
WAXLAY:=(3*SPJ+ZGJ+ZDJ+KPJ)/6;
WAXLAZ:=(8*WAXLAY+7*REF(WAXLAY,1)+6*REF(WAXLAY,2)+5*REF(WAXLAY,3)+4*REF(WAXLAY,4)+3*REF(WAXLAY,5)+2*REF(WAXLAY,6)+REF(WAXLAY,8))/36;
WAXLBA:=(HHV(WAXLAZ,5)+HHV(WAXLAZ,10)+HHV(WAXLAZ,20))/3;
WAXLBB:=(LLV(WAXLAZ,5)+LLV(WAXLAZ,10)+LLV(WAXLAZ,20))/3;
WAXLBC:=(HHV(WAXLBA,5)+HHV(WAXLBA,10)+HHV(WAXLBA,20))/3;
WAXLBD:=(LLV(WAXLBB,5)+LLV(WAXLBB,10)+LLV(WAXLBB,20))/3;
WAXLBE:=(LLV(WAXLAZ,2)+LLV(WAXLAZ,4)+LLV(WAXLAZ,6))/3;
WAXLBF:=WAXLAZ;
WAXLBG:=WAXLBE;
WAXLBH:=IF(WAXLAZ=WAXLBE,WAXLBE,DRAWNULL);
WAXLBI:=WAXLAN>WAXLAU;
WAXLBJ:=FILTER(WAXLBI,0);
WAXLBK:=IF(BARSLAST(WAXLBJ)=1,1,0);
WAXLBL:=WAXLBK=1;
WAXLBM:=FILTER(WAXLBL,5);
WAXLBN:=WAXLAN<-WAXLAU;
WAXLBO:=FILTER(WAXLBN,0);
WAXLBP:=IF(BARSLAST(WAXLBO)=1 AND SPJ>REF(ZGJ,1),1,0);
WAXLBQ:=WAXLBP=1;
WAXLBR:=SPJ>MA(SPJ,10);
WAXLBS:=IF(BARSLAST(WAXLBO)=1 AND SPJ>REF(ZDJ,1),1,0);
WAXLBT:=WAXLBS=1;
WAXLBU:FILTER(WAXLBT,5) AND WAXLBR;
=========================






公式仅作参考使用!源码比较简单自行复制即可!投资有风险,入市需谨慎
切记切记:公式的目的是提高效率,而不是取代思考!


免责申明:指标公式仅作分享测试用,不构成任何投资建议,感谢大家的支持与厚爱!