| 源码： 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; { WWW.88GS.COM} 海面: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; |
