通达信龙抬头源码

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;

A85:=(REF(CLOSE,2)) * 0.865;

A86:=(REF(CLOSE,13)) * 0.772;

A87:=MIN(A85,A86);

A88:=((100 * VOL) / CAPITAL) * A68;

A89:=IF(((((CLOSE - A87) / CLOSE) < (3 / 100)) AND (((SUM(A88,5)) / 5) < 1.8)),1,0);

A90:=IF(((A89 > 0) AND ((A83 < 0) OR (A69 > 0))),100,0);

A91:=IF((((((A82 > 0) AND (A84 > 0)) AND (((SUM(((VOL / CAPITAL) * 100),5)) / 5) < 1)) OR ((A89 > 0) AND (((REF(CLOSE,1)) / (REF(CLOSE,2))) > 0.902))) OR ((((((A82 > 0) AND (A84 > 0)) AND (((SUM(((VOL / CAPITAL) * 100),5)) / 5) < 1)) OR (A89 > 0)) AND ((A83 < 0) OR (A69 > 0))) AND (A90 < 10))),50,0);

A92:=(((((A82 > 0) AND (A84 > 0)) AND (((SUM(((VOL / CAPITAL) * 100),5)) / 5) < 1)) OR (A89 > 0)) AND ((A83 < 0) OR (A69 > 0))) OR ((((A82 > 0) AND (A84 > 0)) AND (((SUM(((VOL / CAPITAL) * 100),5)) / 5) < 1)) OR ((A89 > 0) AND (((REF(CLOSE,1)) / (REF(CLOSE,2))) > 0.902)));

A93:=A90 OR A92;

A94:=(A90);

A95:=(MA(CLOSE,80)) - ((A11 / 3) * A68);

A96:=AMOUNT / VOL;

A97:=EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) * 80),5);

A98:=VOL * CLOSE;

A99:=(EMA(A98,5)) / (EMA(VOL,5));

A100:=((CLOSE - A99) / A99) * 100;

A101:=A96 / 100;

A102:=MA(A101,5);

A103:=MA(A101,20);

A104:=MA(A101,30);

A105:=MA(CLOSE,27);

A106:=((CLOSE - A105) / A105) * 100;

A107:=(MA(A106,3));

A108:=(A100 < -2) AND ((A102 > (A101 * 1.03)) AND (A103 > (A101 * 1.13)));

A109:=(((2 * CLOSE) + HIGH) + LOW) / 4;

A110:=EMA((((((EMA(A109,3)) + (EMA(A109,6))) + (EMA(A109,12))) + (EMA(A109,24))) / 4),2);

A111:=(1 + (100 / 1000)) * A110;

A112:=((CLOSE - COST(10)) / CLOSE) * 100;

A113:=(1 + (-120 / 1000)) * A110;

A114:=IF((((LOW < A113) AND (CLOSE < OPEN)) AND ((A112 < -13) = 1)),65,0);

A115:=(SUM((VOL / CAPITAL),13)) * 100;

A116:=(((REF(CLOSE,13)) - CLOSE) / (REF(CLOSE,13))) * 100;

A117:=(((A115 <= 30) AND (A115 >= 2)) AND (((VOL / CAPITAL) * 100) < 2)) AND (((((REF(CLOSE,1)) - CLOSE) / (REF(CLOSE,1))) * 100) < 6);

A118:=MA(CLOSE,44);

A119:=(CLOSE - A118) / A118;

A120:=((((3 * HIGH) + LOW) + OPEN) + (2 * CLOSE)) / 7;

A121:=((SUM(AMOUNT,13)) / A101) / 100;

A122:=DMA(A120,(VOL / A121));

A123:=((CLOSE - A122) / A122) * 100;

A124:=(9999);

A125:=CLOSE - (REF((MA(CLOSE,20)),11));

A126:=(IF(((A69 > 0) AND (A81 < 0)),200,0)) * A125;

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

A128:=((100 * VOL) / CAPITAL) * A125;

A129:=IF(((((CLOSE - A87) / CLOSE) < (3 / 100)) AND (((SUM(A128,5)) / 5) < 1.8)),1,0);

A130:=IF(((A129 > 0) AND ((A83 < 0) OR (A69 > 0))),100,0);

A131:=IF((A130 > 0),60,0);

A132:=IF((((((A126 > 0) AND (A127 > 0)) AND (((SUM(((VOL / CAPITAL) * 100),5)) / 5) < 1)) OR ((A129 > 0) AND (((REF(CLOSE,1)) / (REF(CLOSE,2))) > 0.902))) OR ((((((A126 > 0) AND (A127 > 0)) AND (((SUM(((VOL / CAPITAL) * 100),5)) / 5) < 1)) OR (A129 > 0)) AND ((A83 < 0) OR (A69 > 0))) AND (A130 < 10))),50,0);

A133:=(((((A126 > 0) AND (A127 > 0)) AND (((SUM(((VOL / CAPITAL) * 100),5)) / 5) < 1)) OR (A129 > 0)) AND ((A83 < 0) OR (A69 > 0))) OR ((((A126 > 0) AND (A127 > 0)) AND (((SUM(((VOL / CAPITAL) * 100),5)) / 5) < 1)) OR ((A129 > 0) AND (((REF(CLOSE,1)) / (REF(CLOSE,2))) > 0.902)));

A134:=A131 OR A133;

A135:=(A130);

A136:=(MA(CLOSE,80)) - ((A11 / 3) * A125);

A137:=(REF(("KDJ.J"),1)) < ("KDJ.J");

A138:=((((CLOSE / (REF(CLOSE,1))) < 0.98) AND (OPEN !=CLOSE)));

A140:=SMA((SMA((((CLOSE - (LLV(LOW,55))) / ((HHV(HIGH,55)) - (LLV(LOW,55)))) * 100),18,1)),12,1);

A141:=SMA((((CLOSE - (LLV(LOW,55))) / ((HHV(HIGH,55)) - (LLV(LOW,55)))) * 100),12,1);

A142:=IF((CROSS(A141,A140)),30,0);

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

A144:=(A143 - (MA(A143,14))) / (0.015 * (AVEDEV(A143,14)));

A145:=(A143 - (MA(A143,85))) / (0.015 * (AVEDEV(A143,85)));

A146:=IF(((A145 >= 200) AND (A144 >= 150)),10,0);

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

A148:=IF((CROSS(80,A147)),30,0);

A149:=BARSLAST(((CROSS(-10,A107)) = 1));

A150:=BARSLAST(((CROSS(A107,10)) = 1));

A151:=((A107 < -10) AND (A149 > 3));

A152:=((A107 > 10) AND (A150 > 3));

安全:(((IF(A151,A107,0)) < 0) * -10),DOTLINE,COLORGREEN;

风险:100,DOTLINE,COLORLIMAGENTA;

龙抬头:((((((A65 AND 安全) AND ((A6 - A7) > 1.5)) AND (OPEN != HIGH)) AND (A26 < -10)) OR (安全 AND (CROSS(A6,A7)))) * 10),STICK,LINETHICK1,COLORRED;

龙抬头1:STICKLINE((龙抬头 > 0),0,15,3,0),COLORYELLOW;

安全区:STICKLINE(((IF(A151,A107,0)) < 0),-10,0,10,1),COLORGREEN;

风险区:STICKLINE(((IF(A152,A107,0)) > 0),110,100,10,1),COLORRED;

A153:=MAX(MAX(MAX(MAX(A39,A40),A30),A33),A36) / MIN(MIN(MIN(MIN(A39,A40),A30),A33),A36) < 1.05;

A154:=((((((((CLOSE < A17) AND (CROSS(A6,A7))) AND ((REF(A2,1)) < 1)) AND (A2 > A3)) AND (A8 > (REF(A8,4)))) AND ((REF(A4,1)) < (REF(A4,2)))) AND (A4 > (REF(A4,1)))) * 55);

A155:=((FILTER(((((((REF(A40,1)) < (REF(A40,2))) AND (CLOSE > A33)) AND (A40 > (REF(A40,1)))) AND (A2 > A3)) AND (A8 > (REF(A8,1)))),5)) * 45);

A156:=((((((((((((((((MAX(A40,A39)) / (MIN(A40,A39))) > 1.01) AND (((MAX(A40,A39)) / (MIN(A40,A39))) < 1.03)) AND (A39 > (REF(A39,1)))) AND (A39 > (REF(A39,5)))) AND (A8 < 50)) AND (A30 > A40)) AND (A30 < A39)) AND (A39 > A40)) AND (CLOSE < (REF(CLOSE,1)))) AND (CLOSE > A40)) AND (CLOSE > A36)) AND (CLOSE < OPEN)) AND ((CLOSE - LOW) <= 0.04)) * 55);

A157:=MAX(MAX(MAX(MAX(A13,A16),A17),A18),A19) / MIN(MIN(MIN(MIN(A13,A16),A17),A18),A19) < 1.05;

A158:=MAX(MAX(MAX(A13,A16),A17),A18) / MIN(MIN(MIN(A13,A16),A17),A18) < 1.05;

海面:20,COLORLIBLUE;

DRAWTEXT(ISLASTBAR,海面,'海面'),COLORGREEN;

海天分界线:50,COLORYELLOW;

DRAWTEXT(ISLASTBAR,海天分界线,'分界线'),COLORYELLOW;

天际:80,COLORRED;

DRAWTEXT(ISLASTBAR,天际,'天际'),COLORRED;

YAR1:=HHV(HIGH,9)-LLV(LOW,9);

YAR2:=HHV(HIGH,9)-CLOSE;

YAR3:=CLOSE-LLV(LOW,9);

YAR4:=YAR2/YAR1*100-70;

YAR5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60));

YAR6:=(2*CLOSE+HIGH+LOW)/4;

YAR7:=SMA(YAR3/YAR1*100,3,1);

YAR8:=LLV(LOW,34);

YAR9:=SMA(YAR7,3,1)-SMA(YAR4,9,1);

YAR10:=IF(YAR9>100,YAR9-100,0);

YAR11:=HHV(HIGH,34);

多:EMA((YAR6-YAR8)/(YAR11-YAR8)*100,13),COLORRED;

空:EMA(0.667*REF(多,1)+0.333*多,2);

DRAWBAND(多,RGB(255,0,0),空,RGB(256,200,10));

DRAWTEXT((龙抬头 > 0),-5,'龙抬头'),COLORYELLOW;