查看完整版本: 改公式

改公式

找了俩公式，但不能代入，对循环不懂，请老师帮忙改下．谢谢！！！！

{公称名称: 私募-控盘度排序㊣}


KK:=(DATE < 1061230);
LGL:=IF((((((EMA(CLOSE,5) / EMA(EMA(CLOSE,9),16)) <= 0.85) AND ((CLOSE / REF(CLOSE,1)) > 0.905)) AND ((CLOSE / REF(CLOSE,1)) < 1.05)) AND (((VOL / CAPITAL) * 100) < 5)),50,0);
WR1:=((0 - ((100 * (HHV(HIGH,34) - CLOSE)) / (HHV(HIGH,34) - LLV(LOW,34)))) + 100);
WR2:=((0 - ((100 * (HHV(HIGH,50) - CLOSE)) / (HHV(HIGH,50) - LLV(LOW,50)))) + 100);
WR3:=((0 - ((100 * (HHV(HIGH,70) - CLOSE)) / (HHV(HIGH,70) - LLV(LOW,70)))) + 100);
BIAS1:=(((((CLOSE - MA(CLOSE,34)) / MA(CLOSE,34)) * 100) + 10) * 5);
BIAS2:=(((((CLOSE - MA(CLOSE,50)) / MA(CLOSE,50)) * 100) + 10) * 5);
BIAS3:=(((((CLOSE - MA(CLOSE,70)) / MA(CLOSE,70)) * 100) + 10) * 5);
SX:=((((((WR1 + WR2) + WR3) + BIAS1) + BIAS2) + BIAS3) / 6);
XC1:=EMA(SX,3);
CCC:=ABS((BIAS1 - BIAS3));
ZJZ:=((SX + CCC) / 2);
LXL:=(((0 - 1) * (EMA((100 * (1 - WINNER(CLOSE))),1) - 50)) + 50);
JBJ:=(LXL + ZJZ);
MA3:=IF(((LGL > 0) AND (JBJ < 0)),200,0);
C0:=IF((((((ZJZ < 0) AND (CLOSE = LLV(CLOSE,5))) AND ((CLOSE / REF(CLOSE,1)) > 0.905)) AND ((CLOSE / REF(CLOSE,1)) < 1.05)) AND (((VOL / CAPITAL) * 100) < 5)),(0 - 50),0);
BOT:=IF(((JBJ < 0) AND (C0 = (0 - 50))),100,0);
HSL:=MA(CLOSE,3);
MA13:=(REF(CLOSE,2) * 0.865);
CXC:=(REF(CLOSE,13) * 0.772);
VMC:=MIN(MA13,CXC);
V满仓:=((100 * VOL) / CAPITAL);
VAR1:=MA(CLOSE,13);
VAR2:=IF(((((CLOSE - VMC) / CLOSE) < (3 / 100)) AND ((SUM(V满仓,5) / 5) < 1.8)),1,0);
VAR3:=IF(((VAR2 > 0) AND ((C0 < 0) OR (LGL > 0))),100,0);
VAR4:=VAR3;
VAR11:=DMA(CLOSE,(VOL / SUM(VOL,34)));
VAR12:=DMA(CLOSE,(VOL / SUM(VOL,13)));
VAR13:=(((CLOSE - VAR11) / VAR11) * 100);
VAR14:=(((CLOSE - VAR12) / VAR12) * 100);
VAR15:=(AMOUNT / (100 * VOL));
VAR16:=(1.3 * CLOSE);
VAR21:=MA(VAR15,5);
VAR22:=MA(VAR15,13);
VAR23:=((100 * (CLOSE - VAR21)) / VAR21);
WPW:=((100 * (CLOSE - VAR22)) / VAR22);
FV:=((((CLOSE - MA(CLOSE,48)) / MA(CLOSE,48)) * 100) < (0 - 28));
FC:=(((SMA(MAX((CLOSE - REF(CLOSE,1)),0),12,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),12,1)) * 100) > 23);
FCP:=(FV AND FC);
A:=(((((((((VAR14 <= (0 - 20)) AND (VAR13 <= (0 - 30))) AND (FINANCE(35) > 1)) AND (CLOSE > 2.5)) AND (CLOSE > (0.905 * REF(CLOSE,1)))) AND ((OPEN - REF(CLOSE,1)) < (0.048 * REF(CLOSE,1)))) OR VAR4) OR ((((VAR23 <= 5) AND (WPW <= (0 - 20))) AND ((100 * (WINNER(VAR16) - WINNER(CLOSE))) <= 10)) AND ((100 * WINNER(CLOSE)) <= 20))) OR ((((((((FCP AND (VOL > MA(VOL,18))) AND ((REF(CLOSE,1) > REF(OPEN,1)) OR (REF(CLOSE,1) < REF(OPEN,1)))) AND ((REF(CLOSE,2) > REF(OPEN,2)) OR (REF(CLOSE,2) < REF(OPEN,2)))) AND ((REF(CLOSE,3) > REF(OPEN,3)) OR (REF(CLOSE,3) < REF(OPEN,3)))) AND ((REF(CLOSE,4) > REF(OPEN,4)) OR (REF(CLOSE,4) < REF(OPEN,4)))) AND ((REF(CLOSE,5) > REF(OPEN,5)) OR (REF(CLOSE,5) < REF(OPEN,5)))) AND ((REF(CLOSE,6) > REF(OPEN,6)) OR (REF(CLOSE,6) < REF(OPEN,6)))) AND (CLOSE > 0.01)));
FVMAX:=VOL;
FVMAXP:=CLOSE;
FVTEMP:=FVMAXP;
FBMAX:=SORTPOS(42,0,1,DATACOUNT);
FBMAXP:=0;
FBTEMP:=1;
I:=FVMAX[FVTEMP[1]];
SVMIN:=0;
SVMINP:=1;
SVMAX:=1;
IF  (DATACOUNT > 1)  THEN
FOR    SVMAXP=2 to DATACOUNT   DO
IF  (FVMAXP[FVTEMP[SVMAXP]] = FVMAXP[FVTEMP[(SVMAXP - 1)]])  THEN
I:=(I + FVMAX[FVTEMP[SVMAXP]]);
SVMAX:=(SVMAX + 1);
ELSE
IF  (FBMAXP < I)  THEN
FBMAXP:=I;
FBTEMP:=(SVMAXP - 1);
IF  (SVMIN < SVMAX)  THEN
SVMIN:=SVMAX;
SVMINP:=(SVMAXP - 1);
I:=FVMAX[FVTEMP[SVMAXP]];
SVMAX:=1;
IF  (FBMAXP < I)  THEN
FBMAXP:=I;
FBTEMP:=(SVMAXP - 1);
IF  (SVMIN < SVMAX)  THEN
SVMIN:=SVMAX;
SVMINP:=(SVMAXP - 1);
AA:=0;
BB:=FVMAX[FVTEMP[1]];
上方:=0;
A1:=FVMAX[FVTEMP[1]];
FOR    SVMAXP=1 to DATACOUNT   DO
AA:=(AA + FVMAX[FVTEMP[SVMAXP]]);
IF  (AA >= (DYNAINFO(8) / 6))  THEN
BB:=SVMAXP;
FOR    SVMAXP=DATACOUNT downto 1   DO
上方:=(上方 + FVMAX[FVTEMP[SVMAXP]]);
IF  (上方 >= (DYNAINFO(8) / 6))  THEN
A1:=SVMAXP;
A2:=(WINNER((CLOSE + ((CLOSE * 30) / 100))) * 100);
A10:=(WINNER((CLOSE + ((CLOSE * 0) / 100))) * 100);
A11:=(A2 - A10);
A12:=((WINNER((CLOSE - ((CLOSE * 0.001) / 100))) - WINNER((CLOSE - ((CLOSE * 100) / 100)))) * 100);
A14:=((WINNER((CLOSE - ((CLOSE * 10) / 100))) - WINNER((CLOSE - ((CLOSE * 100) / 100)))) * 100);
A15:=((WINNER((CLOSE - ((CLOSE * 15) / 100))) - WINNER((CLOSE - ((CLOSE * 100) / 100)))) * 100);
A16:=((WINNER((CLOSE - ((CLOSE * 0.001) / 100))) - WINNER((CLOSE - ((CLOSE * 100) / 100)))) * 100);
A17:=((WINNER((CLOSE - ((CLOSE * 0.001) / 100))) - WINNER((CLOSE - ((CLOSE * 20) / 100)))) * 100);
VAR64:=((WINNER((CLOSE - ((CLOSE * 30) / 100))) - WINNER((CLOSE - ((CLOSE * 100) / 100)))) * 100);
VAR65:=(EMA((VAR64 + A17),5) * 0.8);
VAR66:=IF((A14 > 30),A14,(A16 * 0.6));
VAR67:=((VOL / CAPITAL) * 100);
VAR68:=SUM(VAR67,5);
控盘度:IF(((KK AND ISLASTBAR) AND (VAR68 < 20)),(VAR66 - A11),0),LINETHICK0,colorFF;


{公称名称: 盘口-关键位㊣}


KK:=(DATE < 1051130);
K1:=((TIME > 93300) AND (TIME <= 100000));
FV:=IF((K1 AND KK),VOL,0);
FC:=IF((K1 AND KK),CLOSE,0);
FCP:=FC;
A:=SORTPOS(4,0,1,DATACOUNT);
FVMAX:=0;
FVMAXP:=1;
FVTEMP:=FV[FCP[1]];
FBMAX:=0;
FBMAXP:=1;
FBTEMP:=1;
IF  (DATACOUNT > 1)  THEN
FOR    I=2 to DATACOUNT   DO
IF  (FC[FCP[I]] = FC[FCP[(I - 1)]])  THEN
FVTEMP:=(FVTEMP + FV[FCP[I]]);
FBTEMP:=(FBTEMP + 1);
ELSE
IF  (FVMAX < FVTEMP)  THEN
FVMAX:=FVTEMP;
FVMAXP:=(I - 1);
IF  (FBMAX < FBTEMP)  THEN
FBMAX:=FBTEMP;
FBMAXP:=(I - 1);
FVTEMP:=FV[FCP[I]];
FBTEMP:=1;
IF  (FVMAX < FVTEMP)  THEN
FVMAX:=FVTEMP;
FVMAXP:=(I - 1);
IF  (FBMAX < FBTEMP)  THEN
FBMAX:=FBTEMP;
FBMAXP:=(I - 1);
SVMIN:=0;
SVMINP:=FV[FCP[1]];
SVMAX:=0;
SVMAXP:=FV[FCP[1]];
FOR    I=1 to DATACOUNT   DO
SVMIN:=(SVMIN + FV[FCP[I]]);
IF  (SVMIN >= (DYNAINFO(8) / 6))  THEN
SVMINP:=I;
FOR    I=DATACOUNT downto 1   DO
SVMAX:=(SVMAX + FV[FCP[I]]);
IF  (SVMAX >= (DYNAINFO(8) / 6))  THEN
SVMAXP:=I;
K2:FC[FCP[FVMAXP]],colorFF00;
K3:FC[FCP[FBMAXP]];

:crying: :crying: :crying: :crying:

:steaming: :steaming: :steaming:

错误句 :
FBMAX:=SORTPOS(42,0,1,DATACOUNT)
详细信息 : 您在括号前写的不是函数、公式等，
且缺少必要的运算符!
错误起始位置 : 2821 ; 长度: 5

当前公式 : 盘口-关键位 (指标画线公式)  
错误句 :
A:=SORTPOS(4,0,1,DATACOUNT)
详细信息 : 您在括号前写的不是函数、公式等，
且缺少必要的运算符!
错误起始位置 : 99 ; 长度: 2

回复 4楼 的帖子

42为语句行