{公式名称:大盘趋势} input:N(14,-99,99); FO:="000001$OPEN"; FC:="000001$CLOSE"; FH:="000001$HIGH"; FL:="000001$LOW"; X:=0*"000001$CLOSE"; T1:=0*"000001$CLOSE"; FORI=1TODATACOUNTDOBEGIN IFI=1ANDFC[I]>=FO[I]THEN X[I]:=FC[I]; IFI=1ANDFC[I]<=FO[I]THEN X[I]:=FC[I]; IFI>1THEN X[I]:=X[I-1]; IFI>1ANDFC[I]>(X[I-1])*(1+N/100)THEN X[I]:=(X[I-1])*(1+N/100); IFI>1ANDFC[I]<(X[I-1])/(1+N/100)THEN X[I]:=(X[I-1])/(1+N/100); IFX[I]=X[I-1]THEN T1[I]:=T1[I-1]+1; END; CC:=X; X1:=REF(X,T1+1); X2:=REF(X1,T1+1); STICKLINE(CC<X1ANDX1>X2,FH,FL,0,0),color808080; STICKLINE(CC<X1ANDX1>X2ANDFO>FC,FO,FC,8,0),color808080; STICKLINE(CC<X1ANDX1>X2ANDFO<FC,FO,FC,8,1),color808080; STICKLINE(CC>X1ANDX1<X2,FH,FL,0,0),colorFFFF00; STICKLINE(CC>X1ANDX1<X2ANDFO>FC,FO,FC,8,0),colorFFFF00; STICKLINE(CC>X1ANDX1<X2ANDFO<FC,FO,FC,8,1),colorFFFF00; STICKLINE(CC<X1ANDX1<X2,FH,FL,0,0),colorFF00; STICKLINE(CC<X1ANDX1<X2ANDFO>FC,FO,FC,8,0),colorFF00; STICKLINE(CC<X1ANDX1<X2ANDFO<FC,FO,FC,8,1),colorFF00; STICKLINE(CC>X1ANDX1>X2,FH,FL,0,0),colorFF; STICKLINE(CC>X1ANDX1>X2ANDFO>FC,FO,FC,8,0),colorFF; STICKLINE(CC>X1ANDX1>X2ANDFO<FC,FO,FC,8,1),colorFF;
   |