һ��ǧ����Ʒ
�������汾������ϵͳ���ָ������������ģ�����Ҳ�бס�
��--����Ҫ����������ϡ�ֻҪ�Ƿɺ������Ͷ�����ʹ�á����Ҹij�ͨ����ָ��ʱ�����滻�����롣
��--��ӳ�İ����Ϣ����ȫ�棬֤����黮�ֵıȽϿ�����ϸ�¡�
��ˣ����кܶ����Ѿ��ò������ܷ�ӳ�������������
�������ָ����ǽ�����‘ǧ�����������İ��ָ��’״̬�µġ�
ע�⣺
1�����������ʹ�������еİ��ָ�����������Լ��������ģ����Էֱ����İ��ָ�������ĵ���ָ���Ӧ���������������д�ָ�ꡣ
2��û�������ҵİ��ָ�������ѣ��벻Ҫ��װ���ָ�꣬��Ϊ������������������С�
ͼʾ��
��ʽ�ļ������ȫϢ1.alg
������StkBlock.rar
�ڸ�����
Դ�룺
V1:="AA01$VOL"/ref(ma("AA01$VOL",5),1);V2:=("AA02$VOL")/ref(ma("AA02$VOL",5),1);
V3:=("AA03$VOL")/ref(ma("AA03$VOL",5),1);V4:=("AA04$VOL")/ref(ma("AA04$VOL",5),1);
V5:=("AA05$VOL")/ref(ma("AA05$VOL",5),1);V6:=("AA06$VOL")/ref(ma("AA06$VOL",5),1);
V7:=("AA07$VOL")/ref(ma("AA07$VOL",5),1);V8:=("AA08$VOL")/ref(ma("AA08$VOL",5),1);
V9:=("AA09$VOL")/ref(ma("AA09$VOL",5),1);V10:=("AA10$VOL")/ref(ma("AA10$VOL",5),1);
V11:=("AA11$VOL")/ref(ma("AA11$VOL",5),1);V12:=("AA12$VOL")/ref(ma("AA12$VOL",5),1);
V13:=("AA13$VOL")/ref(ma("AA13$VOL",5),1);V14:=("AA14$VOL")/ref(ma("AA14$VOL",5),1);
V15:=("AA15$VOL")/ref(ma("AA15$VOL",5),1);V16:=("AA16$VOL")/ref(ma("AA16$VOL",5),1);
V21:=("AA21$VOL")/ref(ma("AA21$VOL",5),1);V22:=("AA22$VOL")/ref(ma("AA22$VOL",5),1);
V23:=("AA23$VOL")/ref(ma("AA23$VOL",5),1);V24:=("AA24$VOL")/ref(ma("AA24$VOL",5),1);
V25:=("AA25$VOL")/ref(ma("AA25$VOL",5),1);V26:=("AA26$VOL")/ref(ma("AA26$VOL",5),1);
V27:=("AA27$VOL")/ref(ma("AA27$VOL",5),1);V28:=("AA28$VOL")/ref(ma("AA28$VOL",5),1);
V29:=("AA29$VOL")/ref(ma("AA29$VOL",5),1);V30:=("AA30$VOL")/ref(ma("AA30$VOL",5),1);
V31:=("AA31$VOL")/ref(ma("AA31$VOL",5),1);V32:=("AA35$VOL")/ref(ma("AA35$VOL",5),1);
V33:=("AA37$VOL")/ref(ma("AA37$VOL",5),1);V34:=("AA38$VOL")/ref(ma("AA38$VOL",5),1);
V35:=("AA39$VOL")/ref(ma("AA39$VOL",5),1);V36:=("AA40$VOL")/ref(ma("AA40$VOL",5),1);
V37:=("AA43$VOL")/ref(ma("AA43$VOL",5),1);V38:=("AA44$VOL")/ref(ma("AA44$VOL",5),1);
V39:=("399005$VOL")/ref(ma("399005$VOL",5),1);V40:=("399006$VOL")/ref(ma("399006$VOL",5),1);
V41:=("399314$VOL")/ref(ma("399314$VOL",5),1);V42:=("399316$VOL")/ref(ma("399316$VOL",5),1);
aa:=BLKNAME;BB:=STRLEFT(AA,STRFIND(AA,',',1)-1);K:=STKCOUNT(BB);DD:=(INDEXC/ref(INDEXC,1)-1)*100;
Z1:=("AA01$CLOSE"/ref("AA01$CLOSE",1)-1)*100;Z2:=("AA02$CLOSE"/ref("AA02$CLOSE",1)-1)*100;
Z3:=("AA03$CLOSE"/ref("AA03$CLOSE",1)-1)*100;Z4:=("AA04$CLOSE"/ref("AA04$CLOSE",1)-1)*100;
Z5:=("AA05$CLOSE"/ref("AA05$CLOSE",1)-1)*100;Z6:=("AA06$CLOSE"/ref("AA06$CLOSE",1)-1)*100;
Z7:=("AA07$CLOSE"/ref("AA07$CLOSE",1)-1)*100;Z8:=("AA08$CLOSE"/ref("AA08$CLOSE",1)-1)*100;
Z9:=("AA09$CLOSE"/ref("AA09$CLOSE",1)-1)*100;Z10:=("AA10$CLOSE"/ref("AA10$CLOSE",1)-1)*100;
Z11:=("AA11$CLOSE"/ref("AA11$CLOSE",1)-1)*100;Z12:=("AA12$CLOSE"/ref("AA12$CLOSE",1)-1)*100;
Z13:=("AA13$CLOSE"/ref("AA13$CLOSE",1)-1)*100;Z14:=("AA14$CLOSE"/ref("AA14$CLOSE",1)-1)*100;
Z15:=("AA15$CLOSE"/ref("AA15$CLOSE",1)-1)*100;Z16:=("AA16$CLOSE"/ref("AA16$CLOSE",1)-1)*100;
Z21:=("AA21$CLOSE"/ref("AA21$CLOSE",1)-1)*100;Z22:=("AA22$CLOSE"/ref("AA22$CLOSE",1)-1)*100;
Z23:=("AA23$CLOSE"/ref("AA23$CLOSE",1)-1)*100;Z24:=("AA24$CLOSE"/ref("AA24$CLOSE",1)-1)*100;
Z25:=("AA25$CLOSE"/ref("AA25$CLOSE",1)-1)*100;Z26:=("AA26$CLOSE"/ref("AA26$CLOSE",1)-1)*100;
Z27:=("AA27$CLOSE"/ref("AA27$CLOSE",1)-1)*100;Z28:=("AA28$CLOSE"/ref("AA28$CLOSE",1)-1)*100;
Z29:=("AA29$CLOSE"/ref("AA29$CLOSE",1)-1)*100;Z30:=("AA30$CLOSE"/ref("AA30$CLOSE",1)-1)*100;
Z31:=("AA31$CLOSE"/ref("AA31$CLOSE",1)-1)*100;Z32:=("AA35$CLOSE"/ref("AA35$CLOSE",1)-1)*100;
Z33:=("AA37$CLOSE"/ref("AA37$CLOSE",1)-1)*100;Z34:=("AA38$CLOSE"/ref("AA38$CLOSE",1)-1)*100;
Z35:=("AA39$CLOSE"/ref("AA39$CLOSE",1)-1)*100;Z36:=("AA40$CLOSE"/ref("AA40$CLOSE",1)-1)*100;
Z37:=("AA43$CLOSE"/ref("AA43$CLOSE",1)-1)*100;Z38:=("AA44$CLOSE"/ref("AA44$CLOSE",1)-1)*100;
Z39:=("399005$CLOSE"/ref("399005$CLOSE",1)-1)*100;Z40:=("399006$CLOSE"/ref("399006$CLOSE",1)-1)*100;
Z41:=("399314$CLOSE"/ref("399314$CLOSE",1)-1)*100;Z42:=("399316$CLOSE"/ref("399316$CLOSE",1)-1)*100;
HS3:=("399300$CLOSE"/ref("399300$CLOSE",1)-1)*100;P:=SYSPARAM(1);
STICKLINE(BARPOS=SYSPARAM(3) and Z1[p]>=0,0,Z1[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3) and Z1[p]<0,0,-Z1[p],10,0),COLOR00EE00;
STICKLINE(BARPOS=SYSPARAM(3)-7 and Z2[p]>=0,0,Z2[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-7 and Z2[p]<0,0,-Z2[p],10,0),COLOR00EE00;
STICKLINE(BARPOS=SYSPARAM(3)-14 and Z3[p]>=0,0,Z3[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-14 and Z3[p]<0,0,-Z3[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-21 and Z4[p]>=0,0,Z4[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-21 and Z4[p]<0,0,-Z4[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-28 and Z5[p]>=0,0,Z5[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-28 and Z5[p]<0,0,-Z5[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-35 and Z6[p]>=0,0,Z6[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-35 and Z6[p]<0,0,-Z6[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-42 and Z7[p]>=0,0,Z7[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-42 and Z7[p]<0,0,-Z7[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-49 and Z8[p]>=0,0,Z8[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-49 and Z8[p]<0,0,-Z8[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-56 and Z9[p]>=0,0,Z9[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-56 and Z9[p]<0,0,-Z9[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-63 and Z10[p]>=0,0,Z10[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-63 and Z10[p]<0,0,-Z10[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-70 and Z11[p]>=0,0,Z11[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-70 and Z11[p]<0,0,-Z11[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-77 and Z12[p]>=0,0,Z12[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-77 and Z12[p]<0,0,-Z12[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-84 and Z13[p]>=0,0,Z13[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-84 and Z13[p]<0,0,-Z13[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-91 and Z14[p]>=0,0,Z14[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-91 and Z14[p]<0,0,-Z14[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-98 and Z15[p]>=0,0,Z15[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-98 and Z15[p]<0,0,-Z15[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-105 and Z16[p]>=0,0,Z16[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-105 and Z16[p]<0,0,-Z16[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-112 and Z21[p]>=0,0,Z21[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-112 and Z21[p]<0,0,-Z21[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-119 and Z22[p]>=0,0,Z22[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-119 and Z22[p]<0,0,-Z22[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-126 and Z23[p]>=0,0,Z23[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-126 and Z23[p]<0,0,-Z23[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3) and Z24[p]>=0,6,6+Z24[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3) and Z24[p]<0,6,6-Z24[p],10,0),COLOR00EE00;
STICKLINE(BARPOS=SYSPARAM(3)-7 and Z25[p]>=0,6,6+Z25[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-7 and Z25[p]<0,6,6--Z25[p],10,0),COLOR00EE00;
STICKLINE(BARPOS=SYSPARAM(3)-14 and Z26[p]>=0,6,6+Z26[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-14 and Z26[p]<0,6,6--Z26[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-21 and Z27[p]>=0,6,6+Z27[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-21 and Z27[p]<0,6,6--Z27[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-28 and Z28[p]>=0,6,6+Z28[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-28 and Z28[p]<0,6,6--Z28[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-35 and Z29[p]>=0,6,6+Z29[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-35 and Z29[p]<0,6,6--Z29[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-42 and Z30[p]>=0,6,6+Z30[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-42 and Z30[p]<0,6,6-Z30[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-49 and Z31[p]>=0,6,6+Z31[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-49 and Z31[p]<0,6,6-Z31[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-56 and Z32[p]>=0,6,6+Z32[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-56 and Z32[p]<0,6,6-Z32[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-63 and Z33[p]>=0,6,6+Z33[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-63 and Z33[p]<0,6,6-Z33[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-70 and Z34[p]>=0,6,6+Z34[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-70 and Z34[p]<0,6,6-Z34[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-77 and Z35[p]>=0,6,6+Z35[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-77 and Z35[p]<0,6,6-Z35[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-84 and Z36[p]>=0,6,6+Z36[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-84 and Z36[p]<0,6,6-Z36[p],10,0),COLOR00ee00;
STICKLINE(BARPOS=SYSPARAM(3)-91 and Z37[p]>=0,6,6+Z37[p],10,0),COLOR0000EE;
STICKLINE(BARPOS=SYSPARAM(3)-91 and Z37[p