以下是通达信优化龙腾四海副图指标公式源码和使用说明
通达信优化龙腾四海副图指标公式源码：
龙腾四海:100-100*(HHV(HIGH,5*100)-CLOSE)/(HHV(HIGH,5*100)-LLV(LOW,5*100));
海面:20,COLORGREEN;
海天分界线:50,COLORYELLOW;
天际:80,COLORRED;
买入:70,DOTLINE,COLORLIBLUE;
黄龙:EMA((C-LLV(L,7))/(HHV(H,7)-LLV(L,7)),2)*100,COLORYELLOW,LINETHICK9;
黄龙1:EMA((C-LLV(L,7))/(HHV(H,7)-LLV(L,7)),2)*100,POINTDOT,LINETHICK9,COLORRED;
VARB1:=SMA(SMA(黄龙,2,1),2,1);
VARB2:=(VARB1/2+22)*1;
量:=EMA(VOL,13);
:=EMA(AMOUNT,13);
过滤:=((资金/量)/100);
提纯:=(((CLOSE-过滤)/过滤)*100);
黄金:=((提纯 (0))ANDZXNH),COLORRED;
低买:IF(黄金AND黄龙 VARB2-2,40,0);
高卖:IF(黄金AND黄龙 VARB2,60,100);
RSV1:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
K1:=SMA(RSV1,5,1);
D1:=SMA(K1,5,1);
J1:=3*K1-2*D1;
AA1:=EMA(J1,5);
AA2:=REF(AA1,1);
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);
STICKLINE(AA1 AA2,AA1,AA2,3,0),COLOR0055AA;
STICKLINE(AA1 AA2,AA1,AA2,2,0),COLOR0077CC;
STICKLINE(AA1 AA2,AA1,AA2,1,0),COLOR0099DD;
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;
STICKLINE(AA1 AA2,AA1,AA2,0.5,0),colorwhite;
STICKLINE(AA1 =AA2,AA1,AA2,4,0),COLOR006600;
STICKLINE(AA1 =AA2,AA1,AA2,3,0),COLOR009900;
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;
STICKLINE(AA1 =AA2,AA1,AA2,2,0),COLOR00BB00;
STICKLINE(AA1 =AA2,AA1,AA2,0.5,0),colorwhite;
龙腾四海:(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
A46:=((((A45AND(A20 -9))ANDA42)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))ANDA51)ANDA50;
A55:=A52AND((COUNT(A52,10))=1);
A56:=(A54 =1)ANDA53;
A57:=(A56AND((COUNT(A56,20))=1));
A58:=A57ORA55;
A59:=(((((((((REF(CLOSE,1))/(REF(CLOSE,2))) =0.97)AND(A4 -2.5))AND((REF(A7,1)) 20))AND(CLOSE =OPEN))AND(CLOSE=(REF(CLOSE,1)));
A60:=((((((REF(CLOSE,1))/(REF(CLOSE,2))) =0.97)AND(CLOSE (REF(HIGH,1))))AND(CLOSE(REF(A6,1))))AND(A8
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:=((A59ORA61)ORA63)*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;
RSV2:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K2:=SMA(RSV2,3,1);
D2:=SMA(K2,3,1);
J2:=3*K2-2*D2;
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:=A90ORA92;
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=2))AND(((VOL/CAPITAL)*100) 2))AND(((((REF(CLOSE,1))-CLOSE)/(REF(CLOSE,1)))*100)
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:=A131ORA133;
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
A152:=((A107 10)AND(A150
BB1:=EMA(J2,5);
BB2:=REF(BB1,1);
安全:(((IF(A151,A107,0)) 0)*-10),DOTLINE,colorgreen;
风险:100,DOTLINE,colorlimagenta;
龙抬头:((((((A65AND安全)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:=((((((((CLOSEA3))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);
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;
STICKLINE(BB1 BB2,BB1,BB2,7,0),COLOR000045;
STICKLINE(BB1 BB2,BB1,BB2,5,0),COLOR000085;
STICKLINE(BB1 BB2,BB1,BB2,3,0),COLOR0000C5;
DRAWTEXT(ISLASTBAR,海面,'海面'),colorgreen;
海天分界线:50,coloryellow;
DRAWTEXT(ISLASTBAR,海天分界线,'分界线'),coloryellow;
天际:80,colorred;
DRAWTEXT(ISLASTBAR,天际,'天际'),colorred;
STICKLINE(BB1 BB2,BB1,BB2,1,0),COLOR0000E5;
STICKLINE(BB1 =BB2,BB1,BB2,7,0),COLOR353500;
STICKLINE(BB1 =BB2,BB1,BB2,5,0),COLOR555500;
STICKLINE(BB1 =BB2,BB1,BB2,3,0),COLOR757500;
STICKLINE(BB1 =BB2,BB1,BB2,1,0),COLOR858500;
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;
通达信优化龙腾四海副图指标公式截图
