通达信沉船寻宝指标公式图

以下是通达信沉船寻宝指标公式源码和截图

通达信沉船寻宝指标公式源码：

   Var1:=100*(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21));

   Var2:=100*(INDEXC-LLV(INDEXL,21))/(HHV(INDEXH,21)-LLV(INDEXL,21));

   海面情况:SMA(Var1,3,1),COLORB0FFFF,linethick0;

   下潜深度:SMA(Var2,3,1),LINETHICK1,COLORGREEN;

   有暗礁:IF(CROSS(93,海面情况),97,100),COLOR55AAFF,linethick1;

   DRAWGBKLAST(c 0,STRIP(RGB(50,10,0),RGB(10,60,0),0));

   DRAWTEXT(CROSS(93,海面情况),90,'▲有暗礁。转航'),LINETHICK2,colorf0f000;

   STICKLINE(下潜深度 12,0,16,8,0),COLOR55AAFF;

   海底宝物:IF(CROSS(12,下潜深度),3,0),color00cccc,linethick0;

   DRAWTEXT(海底宝物=3,32,'有宝物'),ALIGN1;

   drawicon(海底宝物,43,12),ALIGN1;

   a:=c/ref(c,1) =1.099;

   b:=o=landh=c;

   d:=v ma(v,5)andv ref(v,1);

   印钞机:IF((aandbanddandcount(aandbandd,20)=1),100,0),stick,color00cccc,linethick3;

   D1:=LLV(L,34);

   D2:=SMA(ABS(L-REF(L,1)),34,1);

   D3:=SMA(MAX(L-REF(L,1),0),34,2);

   DD:-(EMA(IF(L =D1,D2/D3,-3),9)),STICK,COLORRED,LINETHICK1;

   F1:=LLV(L,8);

   F2:=SMA(ABS(L-REF(L,1)),34,1);

   F3:=SMA(MAX(L-REF(L,1),0),34,2);

   A:-(EMA(IF(L =F1,F2/F3,-3),9)),COLORYELLOW,LINETHICK1;

   A1:IF(A 0,A,0),STICK,COLORGREEN,LINETHICK1;

   DRAWICON(REF(A,1) 0ANDREF(A,2) REF(A,1)ANDA REF(A,1),0,34);

   A2:IF(FILTER(REF(A,1) 0ANDREF(A,2) REF(A,1)ANDA REF(A,1),3),2.6,0),COLORGREEN,LINETHICK3,STICK;

   XG:=FILTER(REF(A,1) 0ANDREF(A,2) REF(A,1)ANDA REF(A,1),3);

   DRAWICON(XG,1.0,9);

   DRAWICON(XG,1.35,9);

   DRAWICON(XG,1.7,9);

   DRAWICON(XG,2.05,9);

   DRAWICON(XG,2.45,9);

   VAR1:=(HIGH+LOW+OPEN+2*CLOSE)/5;

   VAR2:=REF(VAR1,1);

   VAR3:=SMA((CLOSE-VAR2),6,1)/SMA(ABS(CLOSE-VAR2),6,1)*100;

   VAR4:=(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;

   VAR5:=EMA(0.667*REF(VAR4,1)+0.333*VAR4,5);

   VAR6:=IF(VOL =1.3*MA(VOL,5)ANDCOUNT(VAR4 =VAR5ANDVAR4 -17,3)ANDREF(LOW,1)=LLV(LOW,120),1,0);

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

   MC:(FILTER(REF(VAR3,1) 81ANDVAR3 80ORCROSS(82,VAR7),5))*2,COLORCYAN,LINETHICK3,STICK;

   DRAWICON(FILTER(REF(VAR3,1) 81ANDVAR3 80ORCROSS(82,VAR7),5),2.3,35);

   DRAWICON(FILTER(REF(VAR3,1) 81ANDVAR3 80ORCROSS(82,VAR7),5),1.8,2);

   DRAWTEXT(FILTER(REF(VAR3,1) 81ANDVAR3 80ORCROSS(82,VAR7),5),1.8,'-卖');

   stICKLINE(C ma(C,15),REFDATE(HHV(MA(C,15)*1.22,130),DATE),REFDATE(LLV(MA(C,15)*

   0.78,130),DATE),10,0),COLOR660066;

   STICKLINE(C MA(C,15),REFDATE(HHV(MA(C,15)*1.22,130),DATE),REFDATE(LLV(MA(C,15)*

   0.78,130),DATE),10,0),COLOR553300;

   金矿:MA(C,15)*0.78,COLOR00FFFF;

   银矿:MA(C,15)*0.84,COLORCCCCCC;

   铁矿:MA(C,15)*0.9,COLOR999966;

   玉石矿:MA(C,15)*1.1,COLORCCCC00;

   翡翠矿:MA(C,15)*1.16,COLOR00FF00;

   钻石矿:MA(C,15)*1.22,COLORFFFFFF;

   翡翠:IF(H 翡翠矿ANDC H*0.94AND(C=HHV(C,10)ORH=HHV(H,10))ANDC REF(C,1)*

   1.0985,H*1.1,DRAWNULL),LINETHICK9,POINTDOT,COLOR00FF00;

   钻石:IF(H 钻石矿ANDC H*0.94AND(C=HHV(C,10)ORH=HHV(H,10))ANDC REF(C,1)*

   1.0985,H*1.1,DRAWNULL),LINETHICK7,crOSSDOT,COLORFFFFFF;

   金币:IF(L MA(C,15)*0.84ANDC L*1.07AND(C=LLV(C,10)ORL=LLV(L,10))ANDC REF(C,1)*

   0.9015,L*0.9,DRAWNULL),LINETHICK9,POINTDOT,COLORCCCC99;

   银币:IF(L MA(C,15)*0.78ANDC L*1.07AND(C=LLV(C,10)ORL=LLV(L,10))ANDC REF(C,1)*0.9015,L*0.9,DRAWNULL),LINETHICK9,POINTDOT,COLOR00CCFF;

   DRAWKLINE(H,O,L,C);

通达信沉船寻宝指标公式截图