以下内容为程序代码:

1 收:=c;
2 pbei:=open/2500;
3 rc:=if(stktype=1,amount/(100*vol),(2*c+2*o+h+l)/6);
4 al0:=ref(max(rc,c),1)-l;
5 ah0:=(h-ref(rc,1));
6 a00:=ref(max(barslast(cross(c＜ref(c,1),0.5)),barslast(cross(c＞ref(c,1),0.5))),1)+1;
7 a1:=ref(a00,10-1)+10;
8 sbsal:=abs(al0);
9 jksbsal:=sbsal*a1;
10 jkah0:=ah0*a1;
11 jk:=a1;
12 for io=1 to a1 do
13 BEGIN
14 if io＜barpos Then
15 begin
16 jksbsal:=jksbsal+sbsal[barpos-io]*(a1-io);
17 jkah0:=jkah0+ah0[barpos-io]*(a1-io);
18 jk:=jk+a1-io;
19 end;
20 end;
21 al2:=jksbsal/jk,linethick0;
22 ah2:=jkah0/jk,linethick0;
23
24 al33:=c-al2*1;
25 ah33:=rc+abs(ah2)*1;
26 a3:=ref(ah33,1);
27 a33:=ref(al33,1);
28 upp:(a3+ref(a3,1))/2;
29 dnn:(a33+ref(a33,1))/2;