双人同笑 2008-3-15 17:09
请高手改为飞狐公式
{variable: zqs30 =0;}
variable: zqs60 =0;
variable: zqs120=0;
variable: zqs240=0;
ling:=0;
{60}
ma5 :=SUM(AMOUNT, 5 )/SUM(VOL,5 )/100;
ma10 :=SUM(AMOUNT, 10)/SUM(VOL,10 )/100;
ma15 :=SUM(AMOUNT, 15)/SUM(VOL,15 )/100;
ma20 :=SUM(AMOUNT, 20)/SUM(VOL,20 )/100;
ma25 :=SUM(AMOUNT, 25)/SUM(VOL,25 )/100;
ma30 :=SUM(AMOUNT, 30)/SUM(VOL,30 )/100;
ma35 :=SUM(AMOUNT, 35)/SUM(VOL,35 )/100;
ma40 :=SUM(AMOUNT, 40)/SUM(VOL,40 )/100;
ma45 :=SUM(AMOUNT, 45)/SUM(VOL,45 )/100;
ma50 :=SUM(AMOUNT, 50)/SUM(VOL,50 )/100;
ma55 :=SUM(AMOUNT, 55)/SUM(VOL,55 )/100;
ma60 :=SUM(AMOUNT, 60)/SUM(VOL,60 )/100;
gl5 :=-(ma60 -ma5 )/ma5 *100;
gl10 :=-(ma60 -ma10 )/ma10 *100;
gl15 :=-(ma60 -ma15 )/ma15 *100;
gl20 :=-(ma60 -ma20 )/ma20 *100;
gl25 :=-(ma60 -ma25 )/ma25 *100;
gl30 :=-(ma60 -ma30 )/ma30 *100;
gl35 :=-(ma60 -ma35 )/ma35 *100;
gl40 :=-(ma60 -ma40 )/ma40 *100;
gl45 :=-(ma60 -ma45 )/ma45 *100;
gl50 :=-(ma60 -ma50 )/ma50 *100;
gl55 :=-(ma60 -ma55 )/ma55 *100;
jxfx60:=(gl5+gl10+gl15+gl20+gl25+gl30+gl35+gl40+gl45+gl50+gl55)/11;
{zqs60}
if cross(jxfx60,ling)or cross(ling,jxfx60) or ling=jxfx60 then begin
zqs60:=0;
end;
if jxfx60>ling then begin
zqs60:=zqs60+1;
end;
if jxfx60<ling then begin
zqs60:=zqs60-1;
end;
{120}
ma70 :=SUM(AMOUNT,70)/SUM(VOL,70)/100;
ma80 :=SUM(AMOUNT,80)/SUM(VOL,80)/100;
ma90 :=SUM(AMOUNT,90)/SUM(VOL,90)/100;
ma100:=SUM(AMOUNT,100)/SUM(VOL,100)/100;
ma110:=SUM(AMOUNT,110)/SUM(VOL,110)/100;
ma120:=SUM(AMOUNT,120)/SUM(VOL,120)/100;
gl10 :=-(ma120-ma10 )/ma10 *100;
gl20 :=-(ma120-ma20 )/ma20 *100;
gl30 :=-(ma120-ma30 )/ma30 *100;
gl40 :=-(ma120-ma40 )/ma40 *100;
gl50 :=-(ma120-ma50 )/ma50 *100;
gl60 :=-(ma120-ma60 )/ma60 *100;
gl70 :=-(ma120-ma70 )/ma70 *100;
gl80 :=-(ma120-ma80 )/ma80 *100;
gl90 :=-(ma120-ma90 )/ma90 *100;
gl100:=-(ma120-ma100)/ma100*100;
gl110:=-(ma120-ma110)/ma110*100;
jxfx120:= (gl10+gl20 +gl30+gl40+gl50+gl60+gl70+gl80+gl90+gl100+gl110)/11;
{zqs120}
if cross(jxfx120,ling) or cross(ling,jxfx120) or ling=jxfx120 then begin
zqs120:=0;
end;
if jxfx120>ling then begin
zqs120:=zqs120+1;
end;
if jxfx120<ling then begin
zqs120:=zqs120-1;
end;
ma130:=SUM(AMOUNT,130)/SUM(VOL,130)/100;
ma140:=SUM(AMOUNT,140)/SUM(VOL,140)/100;
ma150:=SUM(AMOUNT,150)/SUM(VOL,150)/100;
ma160:=SUM(AMOUNT,160)/SUM(VOL,160)/100;
ma170:=SUM(AMOUNT,170)/SUM(VOL,170)/100;
ma180:=SUM(AMOUNT,180)/SUM(VOL,180)/100;
ma190:=SUM(AMOUNT,190)/SUM(VOL,190)/100;
ma200:=SUM(AMOUNT,200)/SUM(VOL,200)/100;
ma210:=SUM(AMOUNT,210)/SUM(VOL,210)/100;
ma220:=SUM(AMOUNT,220)/SUM(VOL,220)/100;
ma230:=SUM(AMOUNT,230)/SUM(VOL,230)/100;
ma240:=SUM(AMOUNT,240)/SUM(VOL,240)/100;
gl10:=-(ma240-ma10)/ma10*100;
gl20:=-(ma240-ma20)/ma20*100;
gl30:=-(ma240-ma30)/ma30*100;
gl40:=-(ma240-ma40)/ma40*100;
gl50:=-(ma240-ma50)/ma50*100;
gl60:=-(ma240-ma60)/ma60*100;
gl70:=-(ma240-ma70)/ma70*100;
gl80:=-(ma240-ma80)/ma80*100;
gl90:=-(ma240-ma90)/ma90*100;
gl100:=-(ma240-ma100)/ma100*100;
gl110:=-(ma240-ma110)/ma110*100;
gl120:=-(ma240-ma120)/ma120*100;
gl130:=-(ma240-ma130)/ma130*100;
gl140:=-(ma240-ma140)/ma140*100;
gl150:=-(ma240-ma150)/ma150*100;
gl160:=-(ma240-ma160)/ma160*100;
gl170:=-(ma240-ma170)/ma170*100;
gl180:=-(ma240-ma180)/ma180*100;
gl190:=-(ma240-ma190)/ma190*100;
gl200:=-(ma240-ma200)/ma200*100;
gl210:=-(ma240-ma210)/ma210*100;
gl220:=-(ma240-ma220)/ma220*100;
gl230:=-(ma240-ma230)/ma230*100;
jxfx240:=(gl10+gl20+gl30+gl40+gl50+gl60+gl70+gl80+gl90+gl100+gl110+gl120+gl130+gl140+gl150+gl60+gl170+gl180+gl190+gl200+gl210+gl220+gl230)/23;
{计算时间拐点}
{zqs240}
if cross(jxfx240,ling) or cross(ling,jxfx240) or ling=jxfx240 then begin
zqs240:=0;
end;
if jxfx240>ling then begin
zqs240:=zqs240+1;
end;
if jxfx240<ling then begin
zqs240:=zqs240-1;
end;
零:0;
{gd30:zqs30;}
gd60:zqs60;
gd120:zqs120;
gd240:zqs240;
双人同笑 2008-3-16 17:52
:crying: :crying: :crying: