通达信龙腾四海源码_新版

A2:=((EMA(CLOSE,12)) - (EMA(CLOSE,26))) * 10;

A3:=EMA(A2,27);

A4:=2 * (A2 - A3);

A5:=((CLOSE - (LLV(LOW,9))) / ((HHV(HIGH,9)) - (LLV(LOW,9)))) * 100;

A6:=SMA(A5,3,1);

A7:=SMA(A6,3,1);

A8:=(3 * A6) - (2 * A7);

A9:=((MA(CLOSE,3)));

A10:=MA(CLOSE,5);

A11:=MA(CLOSE,10);

A12:=((MA(CLOSE,13)));

A13:=MA(CLOSE,30);

A14:=MA(CLOSE,34);

A15:=MA(CLOSE,55);

A16:=MA(CLOSE,60);

A17:=MA(CLOSE,90);

A18:=MA(CLOSE,120);

A19:=MA(CLOSE,250);

A20:=((CLOSE - A10) / A10) * 100;

A21:=((CLOSE - A11) / A11) * 100;

A22:=((CLOSE - A12) / A12) * 100;

A23:=((CLOSE - A13) / A13) * 100;

A24:=((CLOSE - A14) / A14) * 100;

A25:=((CLOSE - A16) / A16) * 100;

A26:=((CLOSE - A17) / A17) * 100;

A27:=((CLOSE - A18) / A18) * 100;

A28:=((CLOSE - A19) / A19) * 100;

A29:=MA(CLOSE,4);

A30:=MA(CLOSE,25);

A31:=MA(CLOSE,45);

A32:=MA(CLOSE,74);

A33:=MA(CLOSE,99);

A34:=MA(CLOSE,144);

A35:=MA(CLOSE,165);

A36:=MA(CLOSE,200);

A37:=MA(CLOSE,318);

A38:=MA(CLOSE,453);

A39:=EMA(CLOSE,17);

A40:=EMA(CLOSE,50);

A41:=(100 * (CLOSE - A13)) / A13;

龙腾四海:(100 - ((100 * ((HHV(HIGH,40)) - CLOSE)) / ((HHV(HIGH,40)) - (LLV(LOW,40))))),COLORFFFFCC;

A42:=(((((CLOSE / (REF(CLOSE,1))) <= 0.97) AND ((OPEN / CLOSE) >= 1.02)) OR (((CLOSE / (REF(CLOSE,1))) <= 0.95) AND (OPEN!= CLOSE))));

A43:=((SMA((MAX((CLOSE - (REF(CLOSE,1))),0)),9,1)) / (SMA(ABS((CLOSE - (REF(CLOSE,1)))),9,1))) * 100;

A44:=((SMA((MAX((CLOSE - (REF(CLOSE,1))),0)),14,1)) / (SMA(ABS((CLOSE - (REF(CLOSE,1)))),14,1))) * 100;

A45:=(((ABS((A44 - A43)) < 9) AND (A44 < 20)) AND (A43 > 9.5)) AND (A43 < 12);

A46:=((((A45 AND (A20 < -9)) AND A42) AND (VOL < ((REF(VOL,1)) * 3))) * VOL) * 1.5;

A47:=REF(A46,1);

A48:=((SMA((MAX((CLOSE - (REF(CLOSE,1))),0)),7,1)) / (SMA(ABS((CLOSE - (REF(CLOSE,1)))),7,1))) * 100;

A49:=((SMA((MAX((CLOSE - (REF(CLOSE,1))),0)),13,1)) / (SMA(ABS((CLOSE - (REF(CLOSE,1)))),13,1))) * 100;

TYP := (HIGH + LOW + CLOSE)/3;

CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));

A50:=(REF(CCI,1)) > (-180);

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

J:=3*K-2*D;

A51:=CROSS((J),0);

A52:=(((CLOSE / (REF(CLOSE,1))) >= 1.066) AND ((HIGH / CLOSE) < 1.005)) AND (((MA(CLOSE,46)) / CLOSE) >= 1.19);

A53:=(VOL / (REF(VOL,3))) >= 1.29;

A54:=(((A48 < 19) AND (A49 < 23)) AND A51) AND A50;

A55:=A52 AND ((COUNT(A52,10)) = 1);

A56:=(A54 >= 1) AND A53;

A57:=(A56 AND ((COUNT(A56,20)) = 1));

A58:=A57 OR A55;

A59:=(((((((((REF(CLOSE,1)) / (REF(CLOSE,2))) <= 0.97) AND (A4 > -2.5)) AND ((REF(A7,1)) < 20)) AND (CLOSE >= OPEN)) AND (CLOSE < A18)) AND ((REF(A8,1)) < 10)) AND (HIGH < (REF(OPEN,1)))) AND (LOW >= (REF(CLOSE,1)));

A60:=((((((REF(CLOSE,1)) / (REF(CLOSE,2))) <= 0.97) AND (CLOSE > (REF(HIGH,1)))) AND (CLOSE < A18)) AND (A6 > (REF(A6,1)))) AND (A8 < 30);

A61:=(((REF(A60,1)) AND (A7 < 30)) AND ((CLOSE / (REF(CLOSE,1))) < 0.98)) AND (VOL < (REF(VOL,1)));

A62:=((((((A8 < -3) AND (A7 < 25)) AND ((CLOSE / (REF(CLOSE,1))) <= 0.97)) AND ((OPEN / CLOSE) >= 1.02)) AND (VOL < ((REF(VOL,1)) * 2.5))));

A63:=(((REF(A62,1)) AND (CLOSE > OPEN)) AND ((A7 - A6) > 3.5)) AND (A8 > (REF(A8,1)));

A64:=((A59 OR A61) OR A63) * 2;

A65:=(CROSS(K,D)) * 60;

A66:=(((REF(CLOSE,1)) / (REF(CLOSE,2))) <= 0.97) AND (((REF(OPEN,1)) / (REF(CLOSE,1))) >= 1.02);

A67:=(((CLOSE / (REF(CLOSE,1))) <= 0.96) AND ((OPEN / CLOSE) >= 1.02)) OR (((CLOSE / (REF(CLOSE,1))) <= 0.95) AND (OPEN !=CLOSE));

A68:=(1);

A69:=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);

A70:=((-100 * ((HHV(HIGH,34)) - CLOSE)) / ((HHV(HIGH,34)) - (LLV(LOW,34)))) + (100 * A68);

A71:=((-100 * ((HHV(HIGH,50)) - CLOSE)) / ((HHV(HIGH,50)) - (LLV(LOW,50)))) + 100;

A72:=((-100 * ((HHV(HIGH,70)) - CLOSE)) / ((HHV(HIGH,70)) - (LLV(LOW,70)))) + (100 * A68);

A73:=(A24 + 10) * 5;

A74:=((((CLOSE - (MA(CLOSE,50))) / (MA(CLOSE,50))) * 100) + 10) * 5;

A75:=((((CLOSE - (MA(CLOSE,70))) / (MA(CLOSE,70))) * 100) + 10) * 5;

A76:=((((((A70 + A71) + A72) + A73) + A74) + A75) / 6) * A68;

A77:=EMA(A76,3);

A78:=ABS((A73 - A75));

A79:=(A76 + A78) / 2;

A80:=(-1 * ((EMA((100 * (1 - WINNER(CLOSE))),1)) - 50)) + 50;

A81:=A80 + A79;

A82:=(IF(((A69 > 0) AND (A81 < 0)),200,0)) * A68;

A83:=IF((((((A79 < 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)),-50,0);

A84:=(IF(((A81 < 0) AND (A83 = -50)),100,0)) * A68;

[1] [2] [3]  下一页