通达信拨开云天主图指标(源码)

MM5:=5;
MM10:=10;
MM20:=20;
MM30:=30;
MM40:=0;
MM60:=0;
NC:=14;
M3:=MA(O,3),COLORBLUE;
M5:=MA(O,5),COLORBLUE;
M10:=MA(O,10),COLORGREEN;
M20:=MA(O,20),COLORCYAN;
M30:=MA(O,30),COLORRED;
M40:=MA(O,40),COLORMAGENTA;
M60:=MA(O,60),COLORLIGRAY;
M80:=MA(O,80),COLORGRAY;
M90:=MA(O,90),COLORLIBLUE;
M120:=MA(O,120),COLORLIGREEN;
M180:=MA(O,180),COLORLIRED;
M270:=MA(O,270),COLORLIRED;
M360:=MA(O,360),COLORLIMAGENTA;
M480:=MA(O,480),COLORYELLOW;
M540:=MA(O,540),COLORWHITE;
M640:=MA(O,640),COLORBLUE;
M720:=MA(O,BARSCOUNT(L)*0.1),COLORGREEN;
M810:=MA(O,BARSCOUNT(L)*0.2),COLORCYAN;
M960:=MA(O,BARSCOUNT(L)*0.3),COLORLIGRAY;
M1080:=MA(O,BARSCOUNT(L)*0.4),COLORLIRED;
M1440:=MA(O,BARSCOUNT(L)*0.5),COLORLIGRAY;
M1920:=MA(O,BARSCOUNT(L)*0.6),COLORLIMAGENTA;
M2160:=MA(O,BARSCOUNT(L)*0.7),COLORBROWN;
M2560:=MA(O,BARSCOUNT(L)*0.8),COLORCYAN;
M3240:=MA(O,BARSCOUNT(L)*0.9),COLORRED;
M4320:=MA(O,BARSCOUNT(L)*1),COLORMAGENTA;
MLLV:=MA(LLV(L,BARSCOUNT(L)*0.1),100);
MHHV:=MA(HHV(H,BARSCOUNT(H)*0.1),100);
MAZZQ:=MA(L,BARSCOUNT(L)),COLORGRAY,LINETHICK3;
B5:=MIN(M5,M3),LINETHICK3,COLORLIGRAY;
B10:=MIN(M10,B5),COLORBLUE;
B20:=MIN(M20,B10),COLORBLUE;
B30:=MIN(M30,B20),COLORGREEN;
B720:=MIN(M720,B30),COLORLIRED;
B810:=MIN(M810,B720),COLORLIMAGENTA;
B960:=MIN(M960,B810),COLORLIMAGENTA;
B1080:=MIN(M1080,B960),COLORLIMAGENTA;
B1440:=MIN(M1440,B1080),COLORYELLOW;
B1920:=MIN(M1920,B1440),COLORYELLOW;
B2160:=MIN(M2160,B1920),COLORYELLOW;
B2560:=MIN(M2560,B2160),COLORWHITE;
B3240:=MIN(M3240,B2560),COLORGREEN;
B4320:=MIN(M4320,B3240),COLORGREEN;
BMAZZQ:=MIN(MAZZQ,B4320),COLORBLUE,LINETHICK2;
BMLLV:MIN(MLLV,BMAZZQ),COLORLIGRAY,LINETHICK2;
S5:=MAX(M5,M3),LINETHICK3,COLORLIMAGENTA;
S10:=MAX(M10,S5),COLORRED;
S20:=MAX(M20,S10),COLORBLUE;
S30:=MAX(M30,S20),COLORGREEN;
S720:=MAX(M720,S30),COLORLIRED;
S810:=MAX(M810,S720),COLORLIMAGENTA;
S960:=MAX(M960,S810),COLORLIMAGENTA;
S1080:=MAX(M1080,S960),COLORLIMAGENTA;
S1440:=MAX(M1440,S1080),COLORYELLOW;
S1920:=MAX(M1920,S1440),COLORYELLOW;
S2160:=MAX(M2160,S1920),COLORYELLOW;
S2560:=MAX(M2560,S2160),COLORWHITE;
S3240:=MAX(M3240,S2560),COLORGREEN;
S4320:=MAX(M4320,S3240),COLORGREEN;
SMAZZQ:=MAX(MAZZQ,S4320),COLORRED,LINETHICK2;
SMHHV:MAX(MHHV,SMAZZQ),COLORLIGRAY,LINETHICK2;
MA5:MA(C,MM5),COLORBLUE;
MA10:MA(C,MM10),COLORGREEN;
MA20:MA(C,MM20),COLORCYAN;
MA30:MA(C,MM30),COLORRED;
MA40:MA(C,MM40),COLORMAGENTA;
MA60:MA(C,MM60),COLORLIGRAY;
HV1N :=(H-BMLLV)/H;
LV1N :=L/SMHHV;
QUL20:=RANGE(LV1N,0.7,0.80);
QUL30:=RANGE(LV1N,0.6,0.70);
QUL40:=RANGE(LV1N,0.5,0.60);
QUL50:=RANGE(LV1N,0.4,0.5);
QUL60:=RANGE(LV1N,0.3,0.4);
QUL70:=RANGE(LV1N,0.2,0.3);
QUL80:=RANGE(LV1N,0.1,0.2);
QUL90:=RANGE(LV1N,0,0.1);
QU01:=RANGE(HV1N,0.9,1.00);
QU10:=RANGE(HV1N,0.8,0.90);
QU20:=RANGE(HV1N,0.7,0.80);
QU30:=RANGE(HV1N,0.6,0.70);
QU40:=RANGE(HV1N,0.5,0.60);
QU50:=RANGE(HV1N,0.4,0.5);
QU60:=RANGE(HV1N,0.3,0.4);
SB5B60:IF(B5=BMLLV AND QUL20=1,MA5,DRAWNULL),COLORWHITE,LINETHICK4;
SB10B60:IF(B5=BMLLV AND QUL20=1,MA10,DRAWNULL),COLORWHITE,LINETHICK4;
SB20B60:IF(B5=BMLLV AND QUL20=1,MA20,DRAWNULL),COLORWHITE,LINETHICK4;
SB30B60:IF(B5=BMLLV AND QUL20=1,MA30,DRAWNULL),COLORWHITE,LINETHICK4;
SB5B61:IF(B5=BMLLV AND QUL30=1,MA5,DRAWNULL),COLORCYAN,LINETHICK4;
SB10B61:IF(B5=BMLLV AND QUL30=1,MA10,DRAWNULL),COLORCYAN,LINETHICK4;
SB20B61:IF(B5=BMLLV AND QUL30=1,MA20,DRAWNULL),COLORCYAN,LINETHICK4;
SB30B61:IF(B5=BMLLV AND QUL30=1,MA30,DRAWNULL),COLORCYAN,LINETHICK4;
SB5B62:IF(B5=BMLLV AND QUL40=1,MA5,DRAWNULL),COLORGRAY,LINETHICK4;
SB10B62:IF(B5=BMLLV AND QUL40=1,MA10,DRAWNULL),COLORGRAY,LINETHICK4;
SB20B62:IF(B5=BMLLV AND QUL40=1,MA20,DRAWNULL),COLORGRAY,LINETHICK4;
SB30B62:IF(B5=BMLLV AND QUL40=1,MA30,DRAWNULL),COLORGRAY,LINETHICK4;
SB5B63:IF(B5=BMLLV AND QUL50=1,MA5,DRAWNULL),COLORLIBLUE,LINETHICK4;
SB10B63:IF(B5=BMLLV AND QUL50=1,MA10,DRAWNULL),COLORLIBLUE,LINETHICK4;
SB20B63:IF(B5=BMLLV AND QUL50=1,MA20,DRAWNULL),COLORLIBLUE,LINETHICK4;
SB30B63:IF(B5=BMLLV AND QUL50=1,MA30,DRAWNULL),COLORLIBLUE,LINETHICK4;
SB5B64:IF(B5=BMLLV AND QUL60=1,MA5,DRAWNULL),COLORCYAN,LINETHICK4;
SB10B64:IF(B5=BMLLV AND QUL60=1,MA10,DRAWNULL),COLORCYAN,LINETHICK4;
SB20B64:IF(B5=BMLLV AND QUL60=1,MA20,DRAWNULL),COLORCYAN,LINETHICK4;
SB30B64:IF(B5=BMLLV AND QUL60=1,MA30,DRAWNULL),COLORCYAN,LINETHICK4;
SB5B65:IF(B5=BMLLV AND QUL70=1,MA5,DRAWNULL),COLORBLUE,LINETHICK4;
SB10B65:IF(B5=BMLLV AND QUL70=1,MA10,DRAWNULL),COLORBLUE,LINETHICK4;
SB20B65:IF(B5=BMLLV AND QUL70=1,MA20,DRAWNULL),COLORBLUE,LINETHICK4;
SB30B65:IF(B5=BMLLV AND QUL70=1,MA30,DRAWNULL),COLORBLUE,LINETHICK4;
SB5B66:IF(B5=BMLLV AND QUL80=1,MA5,DRAWNULL),COLORRED,LINETHICK4;

[1] [2] [3]  下一页