[文华源码] 波段台阶[文华赢智源码]

源码如下：

1. [N,0.000000,100000.000000,225.000000]
   
2. H:=HIGH;
   
3. L:=LOW;
   
4. 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);
   
5. 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);
   
6. H2:=BARSLAST(H>REF(H,1)&&H>REF(H,2)&&H>REF(H,3)&&H>REF(H,4)&&H>REF(H,5));
   
7. L2:=BARSLAST(L<REF(L,1)&&L<REF(L,2)&&L<REF(L,3)&&L<REF(L,4)&&L<REF(L,5));
   
8. OP:=IF(H2>L2,H1,L1);
   
9. M:=BARPOS;
   
10. K1:=VALUEWHEN(ISLASTBAR,OP);
    
11. M4:=IF(K1>=0,K1,M);
    
12. P2:=IF(M4-1=REF(M4,1),REFX(M4,1),M4);
    
13. P3:=IF(P2-1=REF(P2,1),REFX(P2,2),P2);
    
14. P4:=IF(P3-1=REF(P3,1),REFX(P3,3),P3);
    
15. P5:=IF(P4-1=REF(P4,1),REFX(P4,4),P4);
    
16. P6:=IF(P5-1=REF(P5,1),REFX(P5,5),P5);
    
17. P7:=IF(P6-1=REF(P6,1),REFX(P6,6),P6);
    
18. P8:=IF(P7-1=REF(P7,1),REFX(P7,7),P7);
    
19. P9:=IF(P8-1=REF(P8,1),REFX(P8,8),P8);
    
20. P10:=IF(P9-1=REF(P9,1),REFX(P9,9),P9);
    
21. P11:=IF(P10-1=REF(P10,1),REFX(P10,10),P10);
    
22. P12:=IF(P11-1=REF(P11,1),REFX(P11,11),P11);
    
23. P13:=IF(P12-1=REF(P12,1),REFX(P12,12),P12);
    
24. P14:=IF(P13-1=REF(P13,1),REFX(P13,13),P13);
    
25. P15:=IF(P14-1=REF(P14,1),REFX(P14,14),P14);
    
26. P16:=IF(P15-1=REF(P15,1),REFX(P15,15),P15);
    
27. P17:=IF(P16-1=REF(P16,1),REFX(P16,16),P16);
    
28. P18:=IF(P17-1=REF(P17,1),REFX(P17,17),P17);
    
29. P19:=IF(P18-1=REF(P18,1),REFX(P18,18),P18);
    
30. P20:=IF(P19-1=REF(P19,1),REFX(P19,19),P19);
    
31. P21:=IF(P20-1=REF(P20,1),REFX(P20,20),P20);
    
32. P22:=IF(P21-1=REF(P21,1),REFX(P21,21),P21);
    
33. P23:=IF(P22-1=REF(P22,1),REFX(P22,22),P22);
    
34. P24:=IF(P23-1=REF(P23,1),REFX(P23,23),P23);
    
35. P25:=IF(P24-1=REF(P24,1),REFX(P24,24),P24);
    
36. P26:=IF(P25-1=REF(P25,1),REFX(P25,25),P25);
    
37. P27:=IF(P26-1=REF(P26,1),REFX(P26,26),P26);
    
38. P28:=IF(P27-1=REF(P27,1),REFX(P27,27),P27);
    
39. P29:=IF(P28-1=REF(P28,1),REFX(P28,28),P28);
    
40. P30:=IF(P29-1=REF(P29,1),REFX(P29,29),P29);
    
41. P31:=IF(P30-1=REF(P30,1),REFX(P30,30),P30);
    
42. P32:=IF(P31-1=REF(P31,1),REFX(P31,31),P31);
    
43. P33:=IF(P32-1=REF(P32,1),REFX(P32,32),P32);
    
44. P34:=IF(P33-1=REF(P33,1),REFX(P33,33),P33);
    
45. P35:=IF(P34-1=REF(P34,1),REFX(P34,34),P34);
    
46. P36:=IF(P35-1=REF(P35,1),REFX(P35,35),P35);
    
47. P37:=IF(P36-1=REF(P36,1),REFX(P36,36),P36);
    
48. P38:=IF(P37-1=REF(P37,1),REFX(P37,37),P37);
    
49. P39:=IF(P38-1=REF(P38,1),REFX(P38,38),P38);
    
50. P40:=IF(P39-1=REF(P39,1),REFX(P39,39),P39);
    
51. P41:=IF(P40-1=REF(P40,1),REFX(P40,40),P40);
    
52. P42:=IF(P41-1=REF(P41,1),REFX(P41,41),P41);
    
53. P43:=IF(P42-1=REF(P42,1),REFX(P42,42),P42);
    
54. P44:=IF(P43-1=REF(P43,1),REFX(P43,43),P43);
    
55. P45:=IF(P44-1=REF(P44,1),REFX(P44,44),P44);
    
56. P46:=IF(P45-1=REF(P45,1),REFX(P45,45),P45);
    
57. P47:=IF(P46-1=REF(P46,1),REFX(P46,46),P46);
    
58. P48:=IF(P47-1=REF(P47,1),REFX(P47,47),P47);
    
59. P49:=IF(P48-1=REF(P48,1),REFX(P48,48),P48);
    
60. P50:=IF(P49-1=REF(P49,1),REFX(P49,49),P49);
    
61. P51:=IF(P50-1=REF(P50,1),REFX(P50,50),P50);
    
62. P52:=IF(P51-1=REF(P51,1),REFX(P51,51),P51);
    
63. P53:=IF(P52-1=REF(P52,1),REFX(P52,52),P52);
    
64. P54:=IF(P53-1=REF(P53,1),REFX(P53,53),P53);
    
65. P55:=IF(P54-1=REF(P54,1),REFX(P54,54),P54);
    
66. P56:=IF(P55-1=REF(P55,1),REFX(P55,55),P55);
    
67. P57:=IF(P56-1=REF(P56,1),REFX(P56,56),P56);
    
68. P58:=IF(P57-1=REF(P57,1),REFX(P57,57),P57);
    
69. P59:=IF(P58-1=REF(P58,1),REFX(P58,58),P58);
    
70. P60:=IF(P59-1=REF(P59,1),REFX(P59,59),P59);
    
71. P61:=IF(P60-1=REF(P60,1),REFX(P60,60),P60);
    
72. O:=IF(P61<>REF(P61,1),REFX(P61,200),P61);
    
73. F:=MOD(O*10,N)/10;
    
74. P1:=MOD(CLOSE*10,N)/10;
    
75. C:=CLOSE-P1+F;
    
76. B:=(C*10+N)/10;
    
77. A:=(C*10-N)/10;
    
78. G:=VALUEWHEN(ISLASTBAR,A);
    
79. S:=VALUEWHEN(ISLASTBAR,C);
    
80. R:=VALUEWHEN(ISLASTBAR,B);
    
81. E:=VALUEWHEN(ISLASTBAR,O);
    
82. DRAWNUMBER(G>0,G,G,0,COLORYELLOW);
    
83. DRAWNUMBER(S>0,S,S,0,COLORYELLOW);
    
84. DRAWNUMBER(R>0,R,R,0,COLORYELLOW);
    
85. DRAWNUMBER(O>0,E,E,0,COLORWHITE);
    
86. DRAWSL(O>0,C,0,1,3,COLORYELLOW);
    
87. POLYLINE(O>0,O,COLORWHITE);

复制代码