通达信大市行情解码主图指标源码

以下是通达信大市行情解码主图指标源码

日:=500;昨前:=60;
高:=REF(HHV(H,日),昨前);
低:=REF(LLV(L,日),昨前);
H1:=高-(高-低)*1;
 H2:=高-(高-低)*0.91;
 H3:=高-(高-低)*0.85;
 H4:=高-(高-低)*0.809;
 H5:=高-(高-低)*0.777;
 H6:=高-(高-低)*0.707;
 H7:=高-(高-低)*0.666;
 H8:=高-(高-低)*0.618;
 H9:=高-(高-低)*0.563;
 H10:=高-(高-低)*0.5;
 H11:=高-(高-低)*0.424;
 H12:=高-(高-低)*0.382;
 H13:=高-(高-低)*0.309;
 H14:=高-(高-低)*0.25;
 H15:=高-(高-低)*0.191;
 H16:=高-(高-低)*0.1375;
 H17:=高-(高-低)*0.0807;
一:REFDATE(H2,DATE),COLORLIRED;
二:REFDATE(H3,DATE),COLORYELLOW;
三:REFDATE(H4,DATE),COLORLIBLUE;
四:REFDATE(H5,DATE),COLORLIRED;
五:REFDATE(H6,DATE),COLORYELLOW;
六:REFDATE(H7,DATE),COLORLIBLUE;
七:REFDATE(H8,DATE),COLORLIRED;
八:REFDATE(H9,DATE),COLORYELLOW;
九:REFDATE(H10,DATE),COLORLIBLUE;
十:REFDATE(H11,DATE),COLORLIRED;
十一:REFDATE(H12,DATE),COLORYELLOW;
十二:REFDATE(H13,DATE),COLORLIBLUE;
十三:REFDATE(H14,DATE),COLORLIRED;
十四:REFDATE(H15,DATE),COLORYELLOW;
十五:REFDATE(H16,DATE),COLORLIBLUE;
十六:REFDATE(H17,DATE),COLORLIBLUE;
底:REFDATE(H1,DATE),COLORYELLOW;
顶:REFDATE(高,DATE),COLORYELLOW;
 DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
 MA1:MA(CLOSE,15);
 MA2:MA(CLOSE,60);
 IF(MA(CLOSE,15)<=MA(CLOSE,60) AND MA(CLOSE,15)<=REF(MA(CLOSE,15),1),MA(CLOSE,15),DRAWNULL),COLORLIBLUE;
 IF(MA(CLOSE,15)<=MA(CLOSE,60) AND MA(CLOSE,15)>REF(MA(CLOSE,15),1),MA(CLOSE,15),DRAWNULL),COLORMAGENTA;
 IF(MA(CLOSE,15)>MA(CLOSE,60) AND MA(CLOSE,15)>REF(MA(CLOSE,15),1),MA(CLOSE,15),DRAWNULL),COLORRED;
 IF(MA(CLOSE,15)>MA(CLOSE,60) AND MA(CLOSE,15)<=REF(MA(CLOSE,15),1),MA(CLOSE,15),DRAWNULL),COLORYELLOW;
 IF(MA(CLOSE,15)>MA(CLOSE,60) AND MA(CLOSE,60)<=REF(MA(CLOSE,60),1),MA(CLOSE,60),DRAWNULL),COLORMAGENTA;
 IF(MA(CLOSE,15)>MA(CLOSE,60) AND MA(CLOSE,60)>REF(MA(CLOSE,60),1),MA(CLOSE,60),DRAWNULL),COLORRED;
 IF(MA(CLOSE,15)<=MA(CLOSE,60) AND MA(CLOSE,60)<=REF(MA(CLOSE,60),1),MA(CLOSE,60),DRAWNULL),COLORLIBLUE;
 IF(MA(CLOSE,15)<=MA(CLOSE,60) AND MA(CLOSE,60)>REF(MA(CLOSE,60),1),MA(CLOSE,60),DRAWNULL),COLORYELLOW;
 IF(MA(CLOSE,15)>MA(CLOSE,60) AND MA(CLOSE,15)<=REF(MA(CLOSE,15),1),MA(CLOSE,60),DRAWNULL),COLORYELLOW;
 IF(MA(CLOSE,15)<=MA(CLOSE,60) AND MA(CLOSE,15)<=REF(MA(CLOSE,15),1) AND MA(CLOSE,60)>REF(MA(CLOSE,60),1),MA(CLOSE,60),DRAWNULL),COLORWHITE;
 IF(MA(CLOSE,15)<=MA(CLOSE,60) AND MA(CLOSE,15)>REF(MA(CLOSE,15),1) AND MA(CLOSE,60)<REF(MA(CLOSE,60),1),MA(CLOSE,60),DRAWNULL),COLORMAGENTA;
 DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
 DRAWTEXT(CURRBARSCOUNT=1 ,MA1*1.0,'1');
 DRAWTEXT(CURRBARSCOUNT=5 ,MA1*1.0,'5');
 DRAWTEXT(CURRBARSCOUNT=10,MA1*1.0,'10');
 DRAWTEXT(CURRBARSCOUNT=15,MA1*1.0,'15');
 DRAWTEXT(CURRBARSCOUNT=20,MA1*1.0,'20');
 DRAWTEXT(CURRBARSCOUNT=30,MA1*1.0,'30');
 DRAWTEXT(CURRBARSCOUNT=35,MA1*1.0,'35');
 DRAWTEXT(CURRBARSCOUNT=44,MA1*1.0,'40');
 DRAWTEXT(CURRBARSCOUNT=50,MA1*1.0,'50');
 DRAWTEXT(CURRBARSCOUNT=60,MA1*1.0,'60');
 DRAWICON(CROSS(MA(CLOSE,15),MA(CLOSE,60)),MA(CLOSE,60),17);
 DRAWICON(CROSS(MA(CLOSE,60),MA(CLOSE,15)),MA(CLOSE,15),19);