飞狐真人均线公式源码 飞狐指标公式源码(3)

{真人均线}

均价线:=MA(C,1),colorDDDDDD;
EXPMA:=均价线;

K0:=LBOUND(EXPMA);K1:=UBOUND(EXPMA);
FOR I=K0+1 TO K1 do begin
EXPMA[I]:(EXPMA[I]-EXPMA[I-1])/(N+线数/2)+EXPMA[I-1],COLORFF9966; 
END;
/////////做多K线
//KLINE(O,H,L,C,0);
STICKLINE(均价线<EXPMA AND C>O,o,c,7,0),COLORFF66AA;
STICKLINE(均价线<EXPMA AND C<=O,o,c,7,0),COLORFF6633;
STICKLINE(均价线>EXPMA AND C>O,o,c,7,0),COLOR6666FF;
STICKLINE(均价线>EXPMA AND C<=O,o,c,7,0),COLOR66FF33;
IF 线数=1 THEN EXIT;
EXPMB:=EXPMA;
FOR I=K0+1 TO K1 do begin
EXPMB[I]:(EXPMA[I]-EXPMB[I-1])/(N+线数/2)+EXPMB[I-1],COLORFFBBEE; 
END;
IF 线数=2 THEN EXIT;
EXPMc:=EXPMb;
FOR I=K0+1 TO K1 do begin
EXPMc[I]:(EXPMb[i]-EXPMc[I-1])/(N+线数/2)+EXPMc[I-1],COLOREEFF66;
END;
IF 线数=3 THEN EXIT;
EXPMd:=EXPMc;
FOR I=K0+1 TO K1 do begin
EXPMd[I]:(EXPMc[I]-EXPMd[I-1])/(N+线数/2)+EXPMd[I-1],COLORAAFFBB; 
END;
IF 线数=4 THEN EXIT;
EXPMe:=EXPMd;
FOR I=K0+1 TO K1 do begin
EXPMe[I]:(EXPMd[i]-EXPMe[I-1])/(N+线数/2)+EXPMe[I-1],COLOR00FFEE;
END;
IF 线数=5 THEN EXIT;
EXPMf:=EXPMe;
FOR I=K0+1 TO K1 do begin
EXPMf[I]:(EXPMe[I]-EXPMf[I-1])/(N+线数/2)+EXPMf[I-1],COLOR00CCFF;
END;
IF 线数=6 THEN EXIT;
EXPMG:=EXPMF;
FOR I=K0+1 TO K1 do begin
EXPMG[I]:(EXPMF[I]-EXPMG[I-1])/(N+线数/2)+EXPMG[I-1],COLORAA00FF,LINEDOT; 
END;          

更多飞狐指标公式请关注南方股票网 http://gupiao.southmoney.com

上一页  [1] [2] [3]