|
以下是通达信变幻五线主图源码（无源码的请下载附件导入）
M2:=EMA(C,2);
M3:=EMA(C,3);
M4:=EMA(C,4);
M5:=EMA(C,5);
M6:=EMA(C,6);
M7:=EMA(C,7);
M8:=EMA(C,8);
WJ:=(M2+M3+M4+M5+M6+M7+M8)/7;
WD:=MAX(M2,MAX(M3,MAX(M4,MAX(M5,MAX(M6,MAX(M7,M8))))));
WX:=MIN(M2,MIN(M3,MIN(M4,MIN(M5,MAX(M6,MAX(M7,M8))))));
WB:EMA(WJ+(WD-(WD+WX)/2)*0.809,3),DOTLINE;
M10:=EMA(C,10);
M15:=EMA(C,15);
M20:=EMA(C,20);
M25:=EMA(C,25);
M30:=EMA(C,30);
M35:=EMA(C,35);
SJ:=(M5+M10+M15+M20+M25+M30+M35)/7;
SD:=MAX(M5,MAX(M10,MAX(M15,MAX(M20,MAX(M25,MAX(M30,M35))))));
SX:=MIN(M5,MIN(M10,MIN(M15,MIN(M20,MAX(M25,MAX(M30,M35))))));
YB:EMA(SJ+(SD-(SD+SX)/2)*0.809,5);
M40:=EMA(C,40);
M50:=EMA(C,50);
M60:=EMA(C,60);
M70:=EMA(C,70);
M80:=EMA(C,80);
M90:=EMA(C,90);
JJ:=(M30+M40+M50+M60+M70+M80+M90)/7;
JD:=MAX(M30,MAX(M40,MAX(M50,MAX(M60,MAX(M70,MAX(M80,M90))))));
JX:=MIN(M30,MIN(M40,MIN(M50,MIN(M60,MAX(M70,MAX(M80,M90))))));
JB:EMA(JJ+(JD-(JD+JX)/2)*0.809,10);
M100:=EMA(C,100);
M120:=EMA(C,120);
M140:=EMA(C,140);
M160:=EMA(C,160);
M180:=EMA(C,180);
BJ:=(M60+M80+M100+M120+M140+M160+M180)/7;
BD:=MAX(M60,MAX(M80,MAX(M100,MAX(M120,MAX(M140,MAX(M160,M180))))));
BX:=MIN(M60,MIN(M80,MIN(M100,MIN(M120,MAX(M140,MAX(M160,M180))))));
BLB:EMA(BJ+(BD-(BD+BX)/2)*0.809,20);
M200:=EMA(C,200);
M240:=EMA(C,240);
M280:=EMA(C,280);
M320:=EMA(C,320);
M360:=EMA(C,360);
LJ:=(M120+M160+M200+M240+M280+M160+M360)/7;
LD:=MAX(M120,MAX(M160,MAX(M200,MAX(M240,MAX(M280,MAX(M320,M360))))));
LX:=MIN(M120,MIN(M160,MIN(M200,MIN(M240,MAX(M280,MAX(M320,M360))))));
LB:EMA(LJ+(LD-(LD+LX)/2)*0.809,40),DOTLINE;
639599993.jpg
|
