私募-分时形态图㊣(fox 5.0版本)
input:T(38,1,100);
KP:=1;
M1:=MA(CLOSE,1);
A1:=IF(KP,M1,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;
[ 本帖最后由 百变人生 于 2007-7-11 10:17 编辑 ]
