大智慧指標轉換為通達信主圖指標
作者：通達信 來源：cxh99.com 發布時間：2017年08月12日
-
咨詢內容：
variable:bj=0; variable:i=0; MA5:="電子股評.MA5#day"; MA10:="電子股評.MA10#day"; MA20:="電子股評.MA20#day"; MA30:="電子股評.MA30#day"; MA60:="電子股評.MA60#day"; MA120:="電子股評.MA120#day"; {計算均線在分時圖中占位} MA5P:=(DYNAINFO(7)-MA5)/DYNAINFO(7)*100; MA10P:=(DYNAINFO(7)-MA10)/DYNAINFO(7)*100; MA20P:=(DYNAINFO(7)-MA20)/DYNAINFO(7)*100; MA30P:=(DYNAINFO(7)-MA30)/DYNAINFO(7)*100; MA60P:=(DYNAINFO(7)-MA60)/DYNAINFO(7)*100; MA120P:=(DYNAINFO(7)-MA120)/DYNAINFO(7)*100; a1:=L > REF(H,1); a2:=H < REF(L,1); cond:=c<=ref(CLOSE,10); ma10:=ma(c,10); if cond then aa:=ma10; else bb:=ma10; partline(ma10,c<=ref(CLOSE,10), rgb(0,255,0),c>ref(CLOSE,10), rgb(255,0,0)),linethick2; cond1:=c<=ref(CLOSE,22); ma22:=ma(c,22); if cond1 then aa1:=ma22; else bb1:=ma22; partline(ma22,c<=ref(CLOSE,22), rgb(0,255,0),c>ref(CLOSE,22),rgb(255,0,0)),linethick3; cond2:=c<=ref(CLOSE,51); ma51:=(ma(c,30)+ma(c,72))/2; if cond2 then aa2:=ma51; else bb2:=ma51; a3:=IF(C / REF(C,1) > 1.04 and H / C < 1.01 and IF(C > REF(C,1),88,0) > 0,91,0); a4:=ma51 * 0.99; a5:=LLV(H,240); a6:=100 * (C - a5) / a5; a7:=(C - LLV(L,528)) / (HHV(H,528) - LLV(L,528)) * 100; a8:=(C - LLV(C,530)) / (HHV(C,530) - LLV(C,530)) * 100; a9:=(0); a10:=SMA(MAX(C - REF(C,1),0),34,1) / SMA(ABS(C - REF(C,1)),7,1) * 100; a11:=SMA(MAX(C - REF(C,1),0),13,1) / SMA(ABS(C - REF(C,1)),13,1) * 100; a12:=IF(TROUGHBARS(3,16,1) = 0 and H > L + 0.04,4,0); a13:=ZIG(3,6) > REF(ZIG(3,6),1) and REF(ZIG(3,6),1) <= REF(ZIG(3,6),2) and REF(ZIG(3,6),2) <= REF(ZIG(3,6),3); a14:=ZIG(3,6) < REF(ZIG(3,6),1) and REF(ZIG(3,6),1) >= REF(ZIG(3,6),2) and REF(ZIG(3,6),2) >= REF(ZIG(3,6),3); a15:=ZIG(3,22) > REF(ZIG(3,22),1) and REF(ZIG(3,22),1) <= REF(ZIG(3,22),2) and REF(ZIG(3,22),2) <= REF(ZIG(3,22),3); a16:=ZIG(3,22) < REF(ZIG(3,22),1) and REF(ZIG(3,22),1) >= REF(ZIG(3,22),2) and REF(ZIG(3,22),2) >= REF(ZIG(3,22),3); a17:=ZIG(3,51) > REF(ZIG(3,51),1) and REF(ZIG(3,51),1) <= REF(ZIG(3,51),2) and REF(ZIG(3,51),2) <= REF(ZIG(3,51),3); a18:=ZIG(3,51) < REF(ZIG(3,51),1) and REF(ZIG(3,51),1) >= REF(ZIG(3,51),2) and REF(ZIG(3,51),2) >= REF(ZIG(3,51),3); a19:=ZIG(3,72) > REF(ZIG(3,72),1) and REF(ZIG(3,72),1) <= REF(ZIG(3,72),2) and REF(ZIG(3,72),2) <= REF(ZIG(3,72),3); a20:=ZIG(3,72) < REF(ZIG(3,72),1) and REF(ZIG(3,72),1) >= REF(ZIG(3,72),2) and REF(ZIG(3,72),2) >= REF(ZIG(3,72),3); a21:=EMA(C,2) - EMA(C,150); a22:=(a12); a23:=a13 + a15 + a17 + a19; a24:=a14 + a16 + a18 + a20; a25:=(HHV(V,30) = V or V / REF(V,1) >= 5); a26:=BARSLAST(a25); a27:=(ZIG(3,10) < REF(ZIG(3,10),1) and REF(ZIG(3,10),1) > REF(ZIG(3,10),2)); a28:=ZIG(3,10) > REF(ZIG(3,10),1) and REF(ZIG(3,10),1) < REF(ZIG(3,10),2); a29:=(H + L + O + 2 * C) / 5; a30:=(C - LLV(L,36)) / (HHV(H,36) - LLV(L,36)) * 100; a31:=SMA(a30,3,1); a32:=SMA(a31,3,1); a33:=SMA(a32,3,1); a34:=REF(H,5) = HHV(H,2 * 5 + 1); a35:=FILTER(a34,5); a36:=BACKSET(a35,5 + 1); a37:=FILTER(a36,5); a38:=REF(L,5) = LLV(L,2 * 4 + 1); a39:=FILTER(a38,5); a40:=BACKSET(a39,5 + 1); a41:=FILTER(a40,5); a42:=(REF(LLV(L,2 * 5),1) + REF(HHV(H,2 * 5),1)) / 2; a43:=(H + L) / 2; a44:=(a37 and NOT(a41 and a42 >= a43)) or BARSTATUS = 2 or BARSCOUNT(C) = 1; a45:=a41 and NOT(a37 and a42 < a43); a46:=REF(BARSLAST(a44),1) + 1; a47:=BACKSET(a44 and COUNT(a45,a46) > 0,LLVBARS(IF(a45,L,10000),a46)); a48:=a47 > REF(a47,1); a49:=BACKSET(a48,2); a50:=a49 > REF(a49,1); a51:=a50 or BARSTATUS = 2 or BARSCOUNT(C) = 1; a52:=REF(BARSLAST(a51),1) + 1; a53:=BACKSET(a51 and COUNT(a37 and NOT(a41 and a42 >= a43),a52) > 0,HHVBARS(IF(a37 and NOT(a41 and a42 >= a43),H,0),a52)); a54:=a53 > REF(a53,1); a55:=BACKSET(a54,2); a56:=a55 > REF(a55,1); a57:=BACKSET(BARSTATUS = 2,BARSLAST(a56) + 1); a58:=a57 > REF(a57,1); a59:=BACKSET(BARSTATUS = 2,BARSLAST(a50) + 1); a60:=a59 > REF(a59,1); a61:=BACKSET(a58,REF(BARSLAST(a56),1) + 2); a62:=a61 > REF(a61,1); a63:=BACKSET(a60,REF(BARSLAST(a50),1) + 2); a64:=a63 > REF(a63,1); a65:=BACKSET(a64,REF(BARSLAST(a50),1) + 2); a66:=a65 > REF(a65,1); a67:=BACKSET(a66,REF(BARSLAST(a50),1) + 2); a68:=a67 > REF(a67,1); a69:=BACKSET(a62,REF(BARSLAST(a56),1) + 2); a70:=a69 > REF(a69,1); a71:=BACKSET(a70,REF(BARSLAST(a56),1) + 2); a72:=a71 > REF(a71,1); a74:=(C + H + L) / 3; a75:=MA(a74,4); a76:=C = HHV(C,4) and REF(C,1) = LLV(C,4); a77:=(C = LLV(C,4) and (REF(C,1) < REF(C,2) or REF(C,1) < REF(C,3))) or (REF(C,1) = LLV(C,4) and C < REF(C,2)) or (REF(C,2) = LLV(C,4) and REF(C,1) <> HHV(C,4) and C < REF(C,1)) or (REF(C,3) = LLV(C,4) and C < REF(C,1) and C < REF(C,2)); a78:=(REF(C,1) = LLV(C,4) and C >= REF(C,2)) or (REF(C,2) = LLV(C,4) and REF(C,1) <= REF(C,3) and REF(C,2) < REF(C,4) and C >= REF(C,1)); a79:=(REF(C,1) = HHV(C,4) and C < REF(C,2)) or (((REF(C,2) = HHV(C,4) and REF(C,1) > REF(C,3)) or (REF(C,3) = HHV(C,4) and REF(C,1) > REF(C,2))) and REF(C,2) >= REF(C,4) and C < REF(C,1)); a80:=(10); a81:=REF(H,a80) = HHV(H,2 * a80 + 1); a82:=BACKSET(a81,a80 + 1); a83:=FILTER(a82,a80) and H = HHV(H,a80 + 1); DRAWTEXT(a83,H * 1.04,'頂'),colorGreen; DRAWTEXT(a22 > 0 or a23 > 0,L * 0.99,'底'),colorRed; aaa:=a22 > 0 or a23 > 0; a84:=BARSLAST(a83); a85:=IF(a83,BARSCOUNT(CURRENTDATE),0); a86:=IF(a84,REF(H,a84),H); a87:=IF(a84,REF(a85,a84),a85); a88:=REF(a86,a84 + 1); a89:=CEILING(a87); a90:=REF(a87,a84 + 1); a91:=CEILING(a90); a92:=REF(a88,a84 + 1); a93:=IF(BARSCOUNT(CURRENTDATE) > a91,0,1); a94:=3 * SMA((C - LLV(L,27)) / (HHV(H,27) - LLV(L,27)) * 100,5,1) - 2 * SMA(SMA((C - LLV(L,27)) / (HHV(H,27) - LLV(L,27)) * 100,5,1),3,1); a95:=HHV(H,200); a96:=LLV(L,200); a97:=(a95 - a96) / 40; a98:=L - a97; a99:=(5); DRAWTEXTABS(5,0,BKNAME),ColorDDDDDD; a127:=(IF(C / REF(C,1) > 1.05 and H / C < 1.01 and IF(C > REF(C,1),88,0) > 0,91,0)); a100:=100 * (C - LLV(L,5)) / (HHV(C,5) - LLV(L,5)); a101:=100 * (C - LLV(L,10)) / (HHV(C,10) - LLV(L,10)); a102:=100 * (C - LLV(L,20)) / (HHV(C,20) - LLV(L,20)); a103:=100 * (C - LLV(L,30)) / (HHV(C,30) - LLV(L,30)); a104:=BARSLAST(CROSS(30,a100)) < 2 and BARSLAST(CROSS(a100,50)) < 2; A6a:=REF(HIGH,6)=HHV(HIGH,2*6+1); B6a:=FILTER(A6a,6); C6a:=BACKSET(B6a,6+1); D6a:=FILTER(C6a,6); A7a:=REF(LOW,6)=LLV(LOW,2*6+1); B7a:=FILTER(A7a,6); C7a:=BACKSET(B7a,6+1); D7a:=FILTER(C7a,6); E6a:=(REF(LLV(LOW,2*6),1)+REF(HHV(HIGH,2*6),1))/2; E7a:=(HIGH+LOW)/2; H6a:=(D6a AND NOT(D7a AND E6a>=E7a)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1; H7a:=D6a AND NOT(D7a AND E6a>=E7a); L6a:=D7a AND NOT(D6a AND E6a=E7a); X6a:=REF(BARSLAST(H6a),1)+1; F6a:=BACKSET(H6a AND COUNT(L6a,X6a)>0,LLVBARS(IF(L6a,LOW,10000),X6a)); G6a:=F6a>REF(F6a,1); I6a:=BACKSET(G6a,2); LD2a:=I6a>REF(I6a,1); L7a:=LD2a OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1; X7a:=REF(BARSLAST(L7a),1)+1; F7a:=BACKSET(L7a AND COUNT(H7a,X7a)>0,HHVBARS(IF(H7a,HIGH,0),X7a)); G7a:=F7a>REF(F7a,1); I7a:=BACKSET(G7a,2); HD2a:=I7a>REF(I7a,1); UU3a:=BACKSET(BARSTATUS=2,BARSLAST(LD2a)+1); VV3a:=UU3a>REF(UU3a,1); WW3a:=BACKSET(VV3a,REF(BARSLAST(LD2a),1)+2); XX3a:=WW3a>REF(WW3a,1); {DRAWLINE(XX3a,L,VV3a,L,1),Colorred;} UU4a:=BACKSET(BARSTATUS=2,BARSLAST(HD2a)+1); VV4a:=UU4a>REF(UU4a,1); WW4a:=BACKSET(VV4a,REF(BARSLAST(HD2a),1)+2); XX4a:=WW4a>REF(WW4a,1); {DRAWLINE(XX4a,H,VV4a,H,1),Colorwhite;} {37} HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0; AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1); QY:=BACKSET(AA,HIGHN+1); CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1); {DRAWICON(CC,H*1.02,2); } DDD:=BARSLAST(CC); GDTS:=IF(CC,BARSCOUNT(CURRENTDATE),0); DINGBU:=IF(DDD,REF(H,DDD),H); DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS); DINGBU1:=REF(DINGBU,DDD+1); GDCS1:=CEILING(DINGBUTS); DINGBUTS1:=REF(DINGBUTS,DDD+1); GDCS2:=CEILING(DINGBUTS1); DINGBU2:=REF(DINGBU1,DDD+1); MM:=IF(BARSCOUNT(CURRENTDATE)>GDCS2,0,1); a105:=BARSLAST(CROSS(a103,a100)) < 2 and a100 > a103; a106:=a100 > 60 and a103 > 70; DRAWTEXTABS(35,15,'流通盤：'+CAPITAL / 100+'萬股，利潤增長：'+FINANCE2(10)+'%。每股收益：'+FINANCE2(3)+'元。'),Color00DDDD; {中軸:=(MA(CLOSE,30)+ma(close,72))/2; 上端:中軸+中軸*0.1,DOTLINE,colorgreen; 上極端:中軸+中軸*0.2,DOTLINE,colorblue; 下端:中軸 - 中軸*0.1,DOTLINE,colorred; 下極端:中軸-中軸*0.2,DOTLINE,color000999;} mm:=ref(h,1)=hhv(h,3) or ref(h,2)=hhv(h,3) or ref(h,3)=hhv(h,3); nn:=ref(l,1)=llv(l,3) or ref(l,2)=hhv(l,3) or ref(l,3)=hhv(l,3); if mm then bj:=1; if nn then bj:=-1; nn1:=barslast(mm); nn2:=barslast(nn); if cref(h,nn2+1) and bj=-1 then i:=-1; uu3:=cross(i=1,0.5); uu4:=cross(i=-1,0.5); STICKLINE(uu3,C,O,7.5,0),COLOR00AA00; STICKLINE(uu4,C,O,7.5,0),COLOR00AAFF; {黃金分割線} lhnh:=BARSLAST(DISPSTATUS=1)+1; nnl:=DISPSTATUS=2; Al:=BACKSET(nnl,hhvBARS(h,lhnh)+1); Bl:=Al>REF(Al,1); Al2:=BACKSET(nnl,LLVBARS(L,lhnh)+1); Bl2:=Al2>REF(Al2,1); 前高:REF(H,BARSLAST(bl)),PRECIS2,COLOR00A800,LINETHICK1; DRAWTEXT(nnl,前高*0.995,'前高:'+NUMTOSTRN(前高,2)),ALIGN2,COLOR00A800,PRECIS2; 前低:REF(L,BARSLAST(Bl2)),PRECIS2,COLOR580058,LINETHICK1; {DRAWTEXT(nnl,前低*1.010,'前低： '+NUMTOSTRN(前低,2)),ALIGN2,COLOR380088,PRECIS2; Fl1:((前高-前低)*0.191)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2; DRAWTEXT(nnl,Fl1,'191(809)： '+NUMTOSTRN(Fl1,2)),ALIGN2,Color282828; Fl2:((前高-前低)*0.236)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2; DRAWTEXT(nnl,Fl2,'236(764)： '+NUMTOSTRN(Fl2,2)),ALIGN2,Color383838;} Fl3:((前高-前低)*0.382)+前低,DOTLINE,Color003838,LINETHICK1,PRECIS2; DRAWTEXT(nnl,Fl3,'382(618)： '+NUMTOSTRN(Fl3,2)),ALIGN2,COLOR003838; {Fl4:((前高-前低)*0.5)+前低,DOTLINE,COLOR383800,LINETHICK1,PRECIS2; DRAWTEXT(nnl,Fl4,'0.50： '+NUMTOSTRN(Fl4,2)),ALIGN2,Color000058;} Fl5:((前高-前低)*0.618)+前低,DOTLINE,Color003838,LINETHICK1,PRECIS2; DRAWTEXT(nnl,Fl5,'618(382)： '+NUMTOSTRN(Fl5,2)),ALIGN2,COLOR003838; {Fl6:((前高-前低)*0.764)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2; DRAWTEXT(nnl,Fl6,'764(236)： '+NUMTOSTRN(Fl6,2)),ALIGN2,COLOR383838; Fl7:((前高-前低)*0.809)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2; DRAWTEXT(nnl,Fl7,'809(191)： '+NUMTOSTRN(Fl7,2)),ALIGN2,COLOR282828;}; 以上是大智慧主圖疊加指標，能幫忙轉換成通達信的指標嗎？
打印本文
關閉窗口