波段台阶[文华赢智源码]
源码如下：[code]
[N,0.000000,100000.000000,225.000000]
H:=HIGH;
L:=LOW;
H1:=VALUEWHEN(H>=REF(H,1)&&H>REF(H,2)&&H>REF(H,3)&&H>REF(H,4)&&H>REF(H,5)&&H>=REFX(H,1)&&H>REFX(H,2)&&H>REFX(H,3)&&H>REFX(H,4)&&H>REFX(H,5),H);
L1:=VALUEWHEN(L<=REF(L,1)&&L<REF(L,2)&&L<REF(L,3)&&L<REF(L,4)&&L<REF(L,5)&&L<=REFX(L,1)&&L<REFX(L,2)&&L<REFX(L,3)&&L<REFX(L,4)&&L<REFX(L,5),L);
H2:=BARSLAST(H>REF(H,1)&&H>REF(H,2)&&H>REF(H,3)&&H>REF(H,4)&&H>REF(H,5));
L2:=BARSLAST(L<REF(L,1)&&L<REF(L,2)&&L<REF(L,3)&&L<REF(L,4)&&L<REF(L,5));
OP:=IF(H2>L2,H1,L1);
M:=BARPOS;
K1:=VALUEWHEN(ISLASTBAR,OP);
M4:=IF(K1>=0,K1,M);
P2:=IF(M4-1=REF(M4,1),REFX(M4,1),M4);
P3:=IF(P2-1=REF(P2,1),REFX(P2,2),P2);
P4:=IF(P3-1=REF(P3,1),REFX(P3,3),P3);
P5:=IF(P4-1=REF(P4,1),REFX(P4,4),P4);
P6:=IF(P5-1=REF(P5,1),REFX(P5,5),P5);
P7:=IF(P6-1=REF(P6,1),REFX(P6,6),P6);
P8:=IF(P7-1=REF(P7,1),REFX(P7,7),P7);
P9:=IF(P8-1=REF(P8,1),REFX(P8,8),P8);
P10:=IF(P9-1=REF(P9,1),REFX(P9,9),P9);
P11:=IF(P10-1=REF(P10,1),REFX(P10,10),P10);
P12:=IF(P11-1=REF(P11,1),REFX(P11,11),P11);
P13:=IF(P12-1=REF(P12,1),REFX(P12,12),P12);
P14:=IF(P13-1=REF(P13,1),REFX(P13,13),P13);
P15:=IF(P14-1=REF(P14,1),REFX(P14,14),P14);
P16:=IF(P15-1=REF(P15,1),REFX(P15,15),P15);
P17:=IF(P16-1=REF(P16,1),REFX(P16,16),P16);
P18:=IF(P17-1=REF(P17,1),REFX(P17,17),P17);
P19:=IF(P18-1=REF(P18,1),REFX(P18,18),P18);
P20:=IF(P19-1=REF(P19,1),REFX(P19,19),P19);
P21:=IF(P20-1=REF(P20,1),REFX(P20,20),P20);
P22:=IF(P21-1=REF(P21,1),REFX(P21,21),P21);
P23:=IF(P22-1=REF(P22,1),REFX(P22,22),P22);
P24:=IF(P23-1=REF(P23,1),REFX(P23,23),P23);
P25:=IF(P24-1=REF(P24,1),REFX(P24,24),P24);
P26:=IF(P25-1=REF(P25,1),REFX(P25,25),P25);
P27:=IF(P26-1=REF(P26,1),REFX(P26,26),P26);
P28:=IF(P27-1=REF(P27,1),REFX(P27,27),P27);
P29:=IF(P28-1=REF(P28,1),REFX(P28,28),P28);
P30:=IF(P29-1=REF(P29,1),REFX(P29,29),P29);
P31:=IF(P30-1=REF(P30,1),REFX(P30,30),P30);
P32:=IF(P31-1=REF(P31,1),REFX(P31,31),P31);
P33:=IF(P32-1=REF(P32,1),REFX(P32,32),P32);
P34:=IF(P33-1=REF(P33,1),REFX(P33,33),P33);
P35:=IF(P34-1=REF(P34,1),REFX(P34,34),P34);
P36:=IF(P35-1=REF(P35,1),REFX(P35,35),P35);
P37:=IF(P36-1=REF(P36,1),REFX(P36,36),P36);
P38:=IF(P37-1=REF(P37,1),REFX(P37,37),P37);
P39:=IF(P38-1=REF(P38,1),REFX(P38,38),P38);
P40:=IF(P39-1=REF(P39,1),REFX(P39,39),P39);
P41:=IF(P40-1=REF(P40,1),REFX(P40,40),P40);
P42:=IF(P41-1=REF(P41,1),REFX(P41,41),P41);
P43:=IF(P42-1=REF(P42,1),REFX(P42,42),P42);
P44:=IF(P43-1=REF(P43,1),REFX(P43,43),P43);
P45:=IF(P44-1=REF(P44,1),REFX(P44,44),P44);
P46:=IF(P45-1=REF(P45,1),REFX(P45,45),P45);
P47:=IF(P46-1=REF(P46,1),REFX(P46,46),P46);
P48:=IF(P47-1=REF(P47,1),REFX(P47,47),P47);
P49:=IF(P48-1=REF(P48,1),REFX(P48,48),P48);
P50:=IF(P49-1=REF(P49,1),REFX(P49,49),P49);
P51:=IF(P50-1=REF(P50,1),REFX(P50,50),P50);
P52:=IF(P51-1=REF(P51,1),REFX(P51,51),P51);
P53:=IF(P52-1=REF(P52,1),REFX(P52,52),P52);
P54:=IF(P53-1=REF(P53,1),REFX(P53,53),P53);
P55:=IF(P54-1=REF(P54,1),REFX(P54,54),P54);
P56:=IF(P55-1=REF(P55,1),REFX(P55,55),P55);
P57:=IF(P56-1=REF(P56,1),REFX(P56,56),P56);
P58:=IF(P57-1=REF(P57,1),REFX(P57,57),P57);
P59:=IF(P58-1=REF(P58,1),REFX(P58,58),P58);
P60:=IF(P59-1=REF(P59,1),REFX(P59,59),P59);
P61:=IF(P60-1=REF(P60,1),REFX(P60,60),P60);
O:=IF(P61<>REF(P61,1),REFX(P61,200),P61);
F:=MOD(O*10,N)/10;
P1:=MOD(CLOSE*10,N)/10;
C:=CLOSE-P1+F;
B:=(C*10+N)/10;
A:=(C*10-N)/10;
G:=VALUEWHEN(ISLASTBAR,A);
S:=VALUEWHEN(ISLASTBAR,C);
R:=VALUEWHEN(ISLASTBAR,B);
E:=VALUEWHEN(ISLASTBAR,O);
DRAWNUMBER(G>0,G,G,0,COLORYELLOW);
DRAWNUMBER(S>0,S,S,0,COLORYELLOW);
DRAWNUMBER(R>0,R,R,0,COLORYELLOW);
DRAWNUMBER(O>0,E,E,0,COLORWHITE);
DRAWSL(O>0,C,0,1,3,COLORYELLOW);
POLYLINE(O>0,O,COLORWHITE);
[/code]
页:
[1]