软件名称：[B]私募-分时形态图㊣[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2011-05-11 12:24:29
软件简介:

私暮-分时形态图㊣

KP:=1;
A1:=IF(KP,ZIG(3,0.5),0);
A2:A1*0.95,colorFF00;
P:=IF(SYSPARAM(1)<DATACOUNT-T,SYSPARAM(1),SYSPARAM(3)-T);
AX:=P=BARPOS;
YK:=SLOPE(A2,T+1);
YC:=FORCAST(A2,T+1);
AY:=YC[P+T]-(YK[P+T])*T;
BX:=REF(AX,T);
BY:=YC[P+T];
中:LINEVALUE(AX,AY,BX,BY,0,0);
JS:=HHV(A2-中,T+1);
JQ:=HHV(中-A2,T+1);
上:LINEVALUE(AX,AY+JS[P+T],BX,BY+JS[P+T],0,0),colorFF00FF;
下:LINEVALUE(AX,AY-(JQ[P+T]),BX,BY-(JQ[P+T]),0,0),colorFFCC00;
K1:=TIME>93300 AND TIME<=100000;
P1:=HHV(A2,240);
FV:=IF(K1,A2,0);
FC:=IF(K1,A2,0);
FCP:=FC;
A:=SORTPOS(FCP,0,1,DATACOUNT);
FVMAX:=0;
FVMAXP:=1;
FVTEMP:=FV[FCP[1]];
FBMAX:=0;
FBMAXP:=1;
FBTEMP:=1;
IF DATACOUNT>1 THEN BEGIN
FOR I=2 TO DATACOUNT DO BEGIN
IF FC[FCP[I]]=FC[FCP[I-1]] THEN BEGIN
FVTEMP:=FVTEMP+FV[FCP[I]];
FBTEMP:=FBTEMP+1;
END;ELSE BEGIN
IF FVMAX<FVTEMP THEN BEGIN
FVMAX:=FVTEMP;
FVMAXP:=I-1;
END;
IF FBMAX<FBTEMP THEN BEGIN
FBMAX:=FBTEMP;
FBMAXP:=I-1;
END;
FVTEMP:=FV[FCP[I]];
FBTEMP:=1;
END;
END;
IF FVMAX<FVTEMP THEN BEGIN
FVMAX:=FVTEMP;
FVMAXP:=I-1;
END;
IF FBMAX<FBTEMP THEN BEGIN
FBMAX:=FBTEMP;
FBMAXP:=I-1;
END;
END;
SVMIN:=0;
SVMINP:=FV[FCP[1]];
SVMAX:=0;
SVMAXP:=FV[FCP[1]];
FOR I=1 TO DATACOUNT DO BEGIN
SVMIN:=SVMIN+FV[FCP[I]];
IF SVMIN>=DYNAINFO(8)/6 THEN BEGIN
SVMINP:=I;
BREAK;
END;
END;
FOR I=DATACOUNT DOWNTO 1 DO BEGIN
SVMAX:=SVMAX+FV[FCP[I]];
IF SVMAX>=DYNAINFO(8)/6 THEN BEGIN
SVMAXP:=I;
BREAK;
END;
END;
K2:=FC[FCP[FVMAXP]];
 

[url=http://www.70822.com/soft/sort013/sort02/down-33713.html]私募-分时形态图㊣[/url]