2016-11-17 11:43:00

{时期上10分上市日历}A0:=IF(CURRBARSCOUNT=1,BARSSINCE(C>0),DRAWNULL);{第二阶段分段}A11:=INTPART(IF(A0>0,A0*0.15,0));STICKLINE(CURRBARSCOUNT<36 AND A11>0,REF(C,A11),REF(C,A11),A0*0.85,-1)COLORGRAY;A12:=INTPART(IF(A0>0,A0*0.25,0));STICKLINE(CURRBARSCOUNT<36 AND A12>0,REF(C,A12),REF(C,A12),A0*0.75,-1)COLORGRAY;A13:=INTPART(IF(A0>0,A0*0.35,0));STICKLINE(CURRBARSCOUNT<36 AND A13>0,REF(C,A13),REF(C,A13),A0*0.65,-1)COLORGRAY;A14:=INTPART(IF(A0>0,A0*0.45,0));STICKLINE(CURRBARSCOUNT<36 AND A14>0,REF(C,A14),REF(C,A14),A0*0.55,0-1)COLORGRAY;A15:=INTPART(IF(A0>0,A0*0.55,0));STICKLINE(CURRBARSCOUNT<36 AND A15>0,REF(C,A15),REF(C,A15),A0*0.45,0-1)COLORGRAY;A16:=INTPART(IF(A0>0,A0*0.65,0));STICKLINE(CURRBARSCOUNT<36 AND A16>0,REF(C,A16),REF(C,A16),A0*0.35,0-1)COLORGRAY;A17:=INTPART(IF(A0>0,A0*0.75,0));STICKLINE(CURRBARSCOUNT<36 AND A17>0,REF(C,A17),REF(C,A17),A0*0.25,0-1)COLORGRAY;A18:=INTPART(IF(A0>0,A0*0.85,0));STICKLINE(CURRBARSCOUNT<36 AND A18>0,REF(C,A18),REF(C,A18),A0*0.15,0-1)COLORGRAY;A19:=INTPART(IF(A0>0,A0*0.95,0));STICKLINE(CURRBARSCOUNT<36 AND A19>0,REF(C,A19),REF(C,A19),A0*0.05,0-1)COLORGRAY;{第三阶段分段}A21:=INTPART(IF(A0>0,A0*0.17,0));STICKLINE(CURRBARSCOUNT<36 AND A21>0,REF(C,A21),REF(C,A21),A0*0.83,-1)COLORLIGREEN;A22:=INTPART(IF(A0>0,A0*0.27,0));STICKLINE(CURRBARSCOUNT<36 AND A22>0,REF(C,A22),REF(C,A22),A0*0.73,-1)COLORLIGREEN;A23:=INTPART(IF(A0>0,A0*0.37,0));STICKLINE(CURRBARSCOUNT<36 AND A23>0,REF(C,A23),REF(C,A23),A0*0.63,-1)COLORLIGREEN;A24:=INTPART(IF(A0>0,A0*0.47,0));STICKLINE(CURRBARSCOUNT<36 AND A24>0,REF(C,A24),REF(C,A24),A0*0.53,0-1)COLORLIGREEN;A25:=INTPART(IF(A0>0,A0*0.57,0));STICKLINE(CURRBARSCOUNT<36 AND A25>0,REF(C,A25),REF(C,A25),A0*0.43,0-1)COLORLIGREEN;A26:=INTPART(IF(A0>0,A0*0.67,0));STICKLINE(CURRBARSCOUNT<36 AND A26>0,REF(C,A26),REF(C,A26),A0*0.33,0-1)COLORLIGREEN;A27:=INTPART(IF(A0>0,A0*0.77,0));STICKLINE(CURRBARSCOUNT<36 AND A27>0,REF(C,A27),REF(C,A27),A0*0.23,0-1)COLORLIGREEN;A28:=INTPART(IF(A0>0,A0*0.87,0));STICKLINE(CURRBARSCOUNT<36 AND A28>0,REF(C,A28),REF(C,A28),A0*0.13,0-1)COLORLIGREEN;A29:=INTPART(IF(A0>0,A0*0.97,0));STICKLINE(CURRBARSCOUNT<36 AND A29>0,REF(C,A29),REF(C,A29),A0*0.03,0-1)COLORLIGREEN;{第四阶段分段}A31:=INTPART(IF(A0>0,A0*0.13,0));STICKLINE(CURRBARSCOUNT<36 AND A31>0,REF(C,A31),REF(C,A31),A0*0.87,-1)COLORLIGREEN;A32:=INTPART(IF(A0>0,A0*0.23,0));STICKLINE(CURRBARSCOUNT<36 AND A32>0,REF(C,A32),REF(C,A32),A0*0.77,-1)COLORLIGREEN;A33:=INTPART(IF(A0>0,A0*0.33,0));STICKLINE(CURRBARSCOUNT<36 AND A33>0,REF(C,A33),REF(C,A33),A0*0.67,-1)COLORLIGREEN;A34:=INTPART(IF(A0>0,A0*0.43,0));STICKLINE(CURRBARSCOUNT<36 AND A34>0,REF(C,A34),REF(C,A34),A0*0.57,0-1)COLORLIGREEN;A35:=INTPART(IF(A0>0,A0*0.53,0));STICKLINE(CURRBARSCOUNT<36 AND A35>0,REF(C,A35),REF(C,A35),A0*0.47,0-1)COLORLIGREEN;A36:=INTPART(IF(A0>0,A0*0.63,0));STICKLINE(CURRBARSCOUNT<36 AND A36>0,REF(C,A36),REF(C,A36),A0*0.37,0-1)COLORLIGREEN;A37:=INTPART(CURRBARSCOUNT<200 AND IF(A0>0,A0*0.73,0));STICKLINE(CURRBARSCOUNT<36 AND A37>0,REF(C,A37),REF(C,A37),A0*0.27,0-1)COLORLIGREEN;A38:=INTPART(IF(A0>0,A0*0.83,0));STICKLINE(CURRBARSCOUNT<36 AND A38>0,REF(C,A38),REF(C,A38),A0*0.17,0-1)COLORLIGREEN;A39:=INTPART(IF(A0>0,A0*0.93,0));STICKLINE(CURRBARSCOUNT<36 AND A39>0,REF(C,A39),REF(C,A39),A0*0.07,0-1)COLORLIGREEN;A1:=INTPART(IF(A0>0,A0*0.1,0));STICKLINE(A1>0,REF(C,A1),REF(C,A1),A0*0.9,0),COLORWHITE;DRAWNUMBER(A1>0,REF(C,A1)*1.01,REF(C,A1))COLORYELLOW;DRAWTEXT(A1>0,REF(C,A1)*1.01,'_______90%')COLORWHITE;A2:=INTPART(IF(A0>0,A0*0.2,0));STICKLINE(A2>0,REF(C,A2),REF(C,A2),A0*0.8,0);DRAWNUMBER(A2>0,REF(C,A2)*1.01,REF(C,A2))COLORYELLOW;DRAWTEXT(A2>0,REF(C,A2)*1.01,'_______80%')COLORWHITE;A3:=INTPART(IF(A0>0,A0*0.3,0));STICKLINE(A3>0,REF(C,A3),REF(C,A3),A0*0.7,0);DRAWNUMBER(A3>0,REF(C,A3)*1.01,REF(C,A3))COLORYELLOW;DRAWTEXT(A3>0,REF(C,A3)*1.01,'_______70%')COLORWHITE;A4:=INTPART(IF(A0>0,A0*0.4,0));STICKLINE(A4>0,REF(C,A4),REF(C,A4),A0*0.6,0);A5:=INTPART(IF(A0>0,A0*0.5,0));STICKLINE(A5>0,REF(C,A5),REF(C,A5),A0*0.5,0);A6:=INTPART(IF(A0>0,A0*0.6,0));STICKLINE(A6>0,REF(C,A6),REF(C,A6),A0*0.4,0);A7:=INTPART(IF(A0>0,A0*0.7,0));STICKLINE(A7>0,REF(C,A7),REF(C,A7),A0*0.3,0);A8:=INTPART(IF(A0>0,A0*0.8,0));STICKLINE(A8>0,REF(C,A8),REF(C,A8),A0*0.2,0);A9:=INTPART(IF(A0>0,A0*0.9,0));STICKLINE(A9>0,REF(C,A9),REF(C,A9),A0*0.1,0);DRAWKLINE(H,O,L,C);

图片

本站仅提供存储管事，总共本体均由用户发布，如发现存害或侵权本体，请点击举报。