以下内容为程序代码:

1 if stricmp(marketlabel,\'sq\')=0 then
2     label:=strleft(stklabel,2);
3         
4 if stricmp(marketlabel,\'dq\')=0 then
5     label:=strleft(stklabel,1);
6
7 if stricmp(marketlabel,\'zq\')=0 then
8     label:=strleft(stklabel,2);    
9     
10 if stricmp(marketlabel,\'zj\')=0 then
11     label:=strleft(stklabel,2);
12
13 cbs_period:if(stricmp(label,\'cu\')=0,60,
14 if(stricmp(label,\'al\')=0,60,
15 if(stricmp(label,\'zn\')=0,60,
16 if(stricmp(label,\'ru\')=0,60,
17 if(stricmp(label,\'au\')=0,60,
18 if(stricmp(label,\'fu\')=0,60,
19 if(stricmp(label,\'rb\')=0,60,
20 if(stricmp(label,\'wr\')=0,60,
21 if(stricmp(label,\'a\')=0,60,
22 if(stricmp(label,\'b\')=0,60,
23 if(stricmp(label,\'c\')=0,60,
24 if(stricmp(label,\'m\')=0,60,
25 if(stricmp(label,\'y\')=0,100,
26 if(stricmp(label,\'l\')=0,60,
27 if(stricmp(label,\'p\')=0,60,
28 if(stricmp(label,\'v\')=0,60,
29 if(stricmp(label,\'wt\')=0,60,
30 if(stricmp(label,\'ws\')=0,60,
31 if(stricmp(label,\'er\')=0,60,
32 if(stricmp(label,\'cf\')=0,60,
33 if(stricmp(label,\'sr\')=0,60,
34 if(stricmp(label,\'ta\')=0,60,
35 if(stricmp(label,\'ro\')=0,60,
36 if(stricmp(label,\'if\')=0,60,0)))))))))))))))))))))))),linethick0;
37
38 cbs_initialstop:if(stricmp(label,\'cu\')=0,20,
39 if(stricmp(label,\'al\')=0,20,
40 if(stricmp(label,\'zn\')=0,20,
41 if(stricmp(label,\'ru\')=0,20,
42 if(stricmp(label,\'au\')=0,20,
43 if(stricmp(label,\'fu\')=0,20,
44 if(stricmp(label,\'rb\')=0,20,
45 if(stricmp(label,\'wr\')=0,20,
46 if(stricmp(label,\'a\')=0,20,
47 if(stricmp(label,\'b\')=0,20,
48 if(stricmp(label,\'c\')=0,20,
49 if(stricmp(label,\'m\')=0,20,
50 if(stricmp(label,\'y\')=0,15,
51 if(stricmp(label,\'l\')=0,20,
52 if(stricmp(label,\'p\')=0,20,
53 if(stricmp(label,\'v\')=0,20,
54 if(stricmp(label,\'wt\')=0,20,
55 if(stricmp(label,\'ws\')=0,20,
56 if(stricmp(label,\'er\')=0,20,
57 if(stricmp(label,\'cf\')=0,20,
58 if(stricmp(label,\'sr\')=0,20,
59 if(stricmp(label,\'ta\')=0,20,
60 if(stricmp(label,\'ro\')=0,20,
61 if(stricmp(label,\'if\')=0,20,0)))))))))))))))))))))))),linethick0;
62
63 cbs_trailingstop:if(stricmp(label,\'cu\')=0,40,
64 if(stricmp(label,\'al\')=0,40,
65 if(stricmp(label,\'zn\')=0,40,
66 if(stricmp(label,\'ru\')=0,40,
67 if(stricmp(label,\'au\')=0,40,
68 if(stricmp(label,\'fu\')=0,40,
69 if(stricmp(label,\'rb\')=0,40,
70 if(stricmp(label,\'wr\')=0,40,
71 if(stricmp(label,\'a\')=0,40,
72 if(stricmp(label,\'b\')=0,40,
73 if(stricmp(label,\'c\')=0,40,
74 if(stricmp(label,\'m\')=0,40,
75 if(stricmp(label,\'y\')=0,50,
76 if(stricmp(label,\'l\')=0,40,
77 if(stricmp(label,\'p\')=0,40,
78 if(stricmp(label,\'v\')=0,40,
79 if(stricmp(label,\'wt\')=0,40,
80 if(stricmp(label,\'ws\')=0,40,
81 if(stricmp(label,\'er\')=0,40,
82 if(stricmp(label,\'cf\')=0,40,
83 if(stricmp(label,\'sr\')=0,40,
84 if(stricmp(label,\'ta\')=0,40,
85 if(stricmp(label,\'ro\')=0,40,
86 if(stricmp(label,\'if\')=0,40,0)))))))))))))))))))))))),linethick0;
87
88 cbs_stopratio:if(stricmp(label,\'cu\')=0,0,
89 if(stricmp(label,\'al\')=0,0,
90 if(stricmp(label,\'zn\')=0,0,
91 if(stricmp(label,\'ru\')=0,0,
92 if(stricmp(label,\'au\')=0,0,
93 if(stricmp(label,\'fu\')=0,0,
94 if(stricmp(label,\'rb\')=0,0,
95 if(stricmp(label,\'wr\')=0,0,
96 if(stricmp(label,\'a\')=0,0,
97 if(stricmp(label,\'b\')=0,0,
98 if(stricmp(label,\'c\')=0,0,
99 if(stricmp(label,\'m\')=0,0,
100 if(stricmp(label,\'y\')=0,0,
101 if(stricmp(label,\'l\')=0,0,
102 if(stricmp(label,\'p\')=0,0,
103 if(stricmp(label,\'v\')=0,0,
104 if(stricmp(label,\'wt\')=0,0,
105 if(stricmp(label,\'ws\')=0,0,
106 if(stricmp(label,\'er\')=0,0,
107 if(stricmp(label,\'cf\')=0,0,
108 if(stricmp(label,\'sr\')=0,0,
109 if(stricmp(label,\'ta\')=0,0,
110 if(stricmp(label,\'ro\')=0,0,
111 if(stricmp(label,\'if\')=0,0,0)))))))))))))))))))))))),linethick0;

以下内容为程序代码:

1 period:=selfdata(\'cbs_period\');
2 initialstop:=selfdata(\'cbs_initialstop\');
3 trailingstop:=selfdata(\'cbs_trailingstop\');
4 stopratio:=selfdata(\'cbs_stopratio\');