主题：[原创]Portfolio Lion

以下内容为程序代码:

1 if strcmp(marketlabel,'SQ')=0 then begin
2     p:=strleft(stklabel,2);
3     
4     if strcmp(p,'RU')=0 then begin
5         n:=50;
6         s1:=50;
7         s2:=100;
8         r:=1;
9     end;
10     if strcmp(p,'ZN')=0 then begin
11         n:=54;
12         s1:=30;
13         s2:=80;
14         r:=2;        
15     end;    
16     if strcmp(p,'RB')=0 then begin
17         n:=64;
18         s1:=20;
19         s2:=40;
20         r:=4;        
21     end;    
22     if strcmp(p,'CU')=0 then begin
23         n:=80;
24         s1:=20;
25         s2:=60;
26         r:=1;        
27     end;
28     if strcmp(p,'AU')=0 then begin
29         n:=56;
30         s1:=90;
31         s2:=90;
32         r:=1;        
33     end;
34     if strcmp(p,'AL')=0 then begin
35         n:=74;
36         s1:=60;
37         s2:=100;
38         r:=2;        
39     end;
40     if strcmp(p,'FU')=0 then begin
41         n:=70;
42         s1:=20;
43         s2:=30;
44         r:=4;        
45     end;                
46 end;
47
48 if strcmp(marketlabel,'DQ')=0 then begin
49     p:=strleft(stklabel,1);    
50
51     if strcmp(p,'Y')=0 then begin
52         n:=42;
53         s1:=20;
54         s2:=70;
55         r:=2;        
56     end;    
57     if strcmp(p,'L')=0 then begin
58         n:=68;
59         s1:=30;
60         s2:=100;
61         r:=4;        
62     end;
63 end;
64
65 if strcmp(marketlabel,'ZQ')=0 then begin
66     p:=strleft(stklabel,2);
67     
68     if strcmp(p,'CF')=0 then begin
69         n:=86;
70         s1:=20;
71         s2:=80;
72         r:=1;        
73     end;    
74     if strcmp(p,'SR')=0 then begin
75         n:=76;
76         s1:=20;
77         s2:=100;    
78         r:=2;    
79     end;
80     if strcmp(p,'TA')=0 then begin
81         n:=74;
82         s1:=50;
83         s2:=100;
84         r:=4;        
85     end;        
86 end;