夜雨聆风学习资料网

ARTICLE · 1073403

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

通达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;

=========================

历史精彩文章推荐:
同花顺一进二问财语句
分享一个尾盘指标-打个底
分享一个电脑通达信925竞价排序辅助观察指标
霜北刀及炸天截图一个玥FW
烽火尾盘+响尾蛇尾盘
下面是一些指标的相关记录
炸天今日记录
只能说感谢对炸天的认可,这位铁子,你厉害,华瓷我就吃了了一个b,被吓跑了,请叫我菜鸡。
霜北刀记录
响尾蛇记录(尾盘排序指标)
烽火记录(尾盘排序指标)
⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐⭐

公式仅作参考使用!源码比较简单自行复制即可!投资有风险,入市需谨慎

切记切记:公式的目的是提高效率,而不是取代思考!

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

相关学习资料