使用說明: 適用通達信軟件使用,不同的軟件使用要修改。 直接復制以下源代碼,在公用管理器中新構建指標公用,復制進去就可以用了(僅供參考,下面有效果圖,可以先看看指標顯示出來效果如何): DRAWGBK(CURRBARSCOUNT=1, RGB(0,0,0),RGB(0,0,0),0,'1',0); 頂:90,COLORRED,LINETHICK1; 強:80,COLORRED,LINETHICK2; 弱:10,COLORGREEN,LINETHICK3; DRAWTEXT(ISLASTBAR, 頂,' 頂'),COLORYELLOW; DRAWTEXT(ISLASTBAR, 強,' 強'),COLORRED; DRAWTEXT(ISLASTBAR, 弱,' 弱'),COLORGREEN; cxh1:=(C-LLV(L,20))/(HHV(H,20)-LLV(L,20))*100; cxh22:=SMA(cxh1,20,1); cxh33:=SMA(cxh22,15,1); cxh44:=(3*cxh22+2*cxh33)/4; cxh55:= REF(cxh44,1); RSA:SMA(MAX(cxh44-cxh55,0),2,1)/SMA(ABS(cxh44-cxh55),2,1)*100 ,COLORRED,NODRAW ,LINETHICK1; RSB:MA(RSA,10),NODRAW; 拉升:IF(CROSS(RSA,RSB),20,0),STICK,COLORRED ,LINETHICK2,NODRAW; 落袋:IF(CROSS(RSB,90),20,0),STICK ,LINETHICK2,NODRAW; DRAWTEXT(CROSS(RSA,RSB),10,'拉升'),COLORRED ; DRAWTEXT(CROSS(RSB,90),15,'落袋'),COLORGREEN ; DIFF:=EMA(C,12)-EMA(C,26); DEA:=EMA(DIFF,9),COLORWHITE; MACD:=(DIFF-DEA)*2; A:STICKLINE(MACD>=0 AND MACD>=REF(MACD,1) AND REF(MACD,1)<0 AND MACD>=0.01,90,MACD,1,1) ,COLORRED; DRAWTEXT(A,90,' 飛天'),COLORYELLOW ; 啟動線:=10*SUM(EMA((CLOSE+L)/2,2),5)/10.158,NODRAW; 平衡線:=10*LLV(SUM( EMA((CLOSE+L)/2,2),5)/10.158,4),NODRAW; 平臺線:=10*LLV(SUM( EMA((CLOSE+L)/2,2),5)/10.158,10),NODRAW; 強弱線:=EMA(啟動線,21); Vcxh1:=2*MA(LLV((CLOSE+L)/2,8)*1.1,13)-EMA((CLOSE+L)/2,3)-((CLOSE+L)/2)*0.1; Vcxh2:=IF((EMA((CLOSE+L)/2,3)-Vcxh1)*5>0,POW((EMA((CLOSE+L)/2,3)-Vcxh1)*5,2)/10,-1*POW((EMA((CLOSE+L)/2,3)-Vcxh1)*5,2)/10); Vcxh3:=IF(Vcxh2>0,Vcxh2-0,0); STICKLINE(Vcxh3>0 AND REF(Vcxh3,1)=0 AND (CLOSE+L)/2>MA((CLOSE+L)/2,8),0,25,1,0),COLORYELLOW; DRAWTEXT(Vcxh3>0 AND REF(Vcxh3,1)=0 AND (CLOSE+L)/2>MA((CLOSE+L)/2,8),30,'動'); 散戶:= 100*(HHV(H,60)-C)/(HHV(H,60)-LLV(L,60)); RSV:=(C-LLV(L,30))/(HHV(H,30)-LLV(L,30))*100; RSV1:=(CLOSE-MA(CLOSE,4))/MA(CLOSE,4)*100; cxh2:=REF(L,1); cxh3:=SMA(ABS(L-cxh2),3,1)/SMA(MAX(L-cxh2,0),3,1)*100; cxh4:=EMA(IF(C*1.3,cxh3*10,cxh3/10),3); cxh5:=LLV(L,30); cxh6:=HHV(cxh4,30); cxh7:=IF(MA(C,58),1,0); cxh8:=EMA(IF(L<=cxh5,(cxh4+cxh6*2)/2,0),3)/618*cxh7; cxh9:=IF(cxh8>100,100,cxh8); K:=SMA(RSV,5,1); D:=SMA(K,3,1); J:=3*K-2*D; 主力:=EMA(J,6),COLORYELLOW; AA3:=(HHV(H,21)-C)/(HHV(H,21)-LLV(L,21))*100-10; AA4:=(C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100; AA5:=SMA(AA4,13,8); 走勢:=CEILING(SMA(AA5,13,8)),COLORRED,LINETHICK2; AA6:=SMA(AA3,21,8); {買觀注: STICKLINE(走勢-AA6<-65,0,7,15,2);} {DRAWICON(FILTER(J>REF(J,1)AND 走勢>=REF(走勢,1)AND 走勢<25 ,5),走勢,1);} {賣觀注: STICKLINE(走勢-AA6>85,98,90,15,1),COLORFFFF00;} {DRAWICON(FILTER(J<REF(J,1)AND 走勢<=REF(走勢,1)AND J>85 ,5),J,2);} 吸:STICKLINE(cxh9>-120,50,50+(cxh9/2),3,1),COLORRED ; CDMA:EMA(EMA(RSV1,7),7)*4,NODRAW,COLORWHITE; STICKLINE(CDMA>=0 AND CDMA>=REF(CDMA,1),50,50+CDMA,3.3,0),COLORYELLOW ;{粉色拉升資金塊} 短線:100*(CLOSE-LLV(LOW,10))/(HHV(CLOSE,10)-LLV(LOW,10)),COLORWHITE ,NODRAW ; {快線:(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,LINETHICK1,COLORWHITE ;} 散戶線:散戶,COLORGREEN , ; 主力線:主力,COLORMAGENTA,LINETHICK1 ; 拉升線:走勢,COLORYELLOW,LINETHICK1; DRAWTEXT(ISLASTBAR,散戶線,'←--空方線'),COLORGREEN; DRAWTEXT(ISLASTBAR,主力線,'←--主力線'),COLORMAGENTA ; DRAWTEXT(ISLASTBAR,拉升線,'←--拉升線'),COLORYELLOW; 走強線: 20,COLORCYAN ; 關注低買:IF(90>散戶 AND CROSS(90,散戶) ,98,0),COLORMAGENTA,STICK,NODRAW; 高拋低吸:IF(散戶<10 AND CROSS(10,散戶) ,20,0),COLORGREEN,STICK,NODRAW; 風險:COUNT('RSI.RSI1'(6,12,24)>80,3)=3 AND CROSS('RSI.RSI2'(6,12,24),79.5),NODRAW; 觀注頂:(散戶<8 AND 主力>90 AND 走勢>90 AND CDMA<=REF(CDMA,1)AND 散戶線),COLORGREEN,NODRAW; DRAWTEXT(觀注頂,-1,'◆'),COLORGREEN; DRAWTEXT(風險,100,'←風險'),COLOR00FFFF; STICKLINE(關注低買,0,20,1,1),COLORMAGENTA ; {STICKLINE(高拋低吸,0,100,0,-1),COLORGREEN;}; A77:=((C - (MA(C,13))) / (MA(C,13))) * -100; A78:=((C - (LLV(L,13))) / ((HHV(H,13)) - (LLV(L,13)))) * 100; A79:=SMA(A78,3,2); A80:=SMA(A79,3,2); A81:=SMA(A80,5,1); VAK1:=IF(YEAR>=2038 AND MONTH>=1,0,1); VAK2:=REF(L,1)*VAK1; VAK3:=SMA(ABS(L-VAK2),3,1)/SMA(MAX(L-VAK2,0),3,1)*100*VAK1; VAK4:=EMA(IF(C*1.3,VAK3*10,VAK3/10),3)*VAK1; VAK5:=LLV(L,30)*VAK1; VAK6:=HHV(VAK4,30)*VAK1; VAK7:=IF(MA(C,58),1,0)*VAK1; VAK8:=EMA(IF(L<=VAK5,(VAK4+VAK6*2)/2,0),3)/618*VAK7*VAK1; 吸籌:=IF(VAK8>100,100,VAK8)*VAK1; 跟莊吸:=IF(吸籌<REF(吸籌,1) AND (REF(吸籌,1)>REF(吸籌,2) OR REF(吸籌,1)=100),1,0); 吸籌累計:=SUM(吸籌,60); 莊三吸:=COUNT(跟莊吸,30)=3 AND 跟莊吸=1 AND 吸籌累計>200; 狠吸籌:=REF(吸籌,1)=100 AND 吸籌<REF(吸籌,1) AND 吸籌累計>260; 狠吸籌2:=REF(吸籌,1)>REF(吸籌,2) AND 90<REF(吸籌,1) AND 吸籌<REF(吸籌,1) AND 吸籌累計>260; 跟莊買:STICKLINE(莊三吸=1 OR 狠吸籌=1 OR 狠吸籌2=1,0,30,1,1),COLORFFFFFF; DRAWTEXT(跟莊買,40.4,'莊'),COLORFFFF00; 股價趨勢: 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),LINETHICK0; 底部警戒: 10,COLORRED,LINETHICK0; 買入警戒:STICKLINE(股價趨勢<=10,0,10,3,0),COLORMAGENTA ; 買入信號: STICKLINE(CROSS(股價趨勢,底部警戒),0,30,1,1),COLORYELLOW ,LINETHICK2; DRAWICON(CROSS(股價趨勢,底部警戒),45,24); N:=9; M:=14; N1:=6; TYP := (H + L + C)/3; CC1:=(TYP-MA(TYP,M))/(0.015*AVEDEV(TYP,M)),COLORFF00FF; C1:=SMA(CC1,3,1); C2:=SMA(C1,3,1); C3:=3*C1-2*C2; CB1:=EMA(C3,5); LC := REF(C,1); CXHWZ1:=STRCAT(':',' A26206'); CXHWZ2:=STRCAT('眾號',CXHWZ1); CXHWZ3:=STRCAT('關注公',CXHWZ2); RSI1:=SMA(MAX(C-LC,0),N1,1)/SMA(ABS(C-LC),N1,1)*100; RSI:(RSI1-50)*5,LINETHICK2,COLOR0000FF,NODRAW; R1:=SMA(RSI,3,1); DD1:=SMA(R1,3,1); J1:=3*R1-2*DD1; RR1:=EMA(J1,5); RR2:=REF(RR1,1); RR:=RR1>RR2; RRSV:=(C-LLV(L,N))/(HHV(H,N)-LLV(L,N))*100; KKK:=SMA(RSV,3,1); KK1:(K-50)*5,COLORFFFF00,NODRAW; K2:=SMA(KK1,3,1); D2:=SMA(K2,3,1); J2:=3*K2-2*D2; BB1:=EMA(J2,5); 買入:=RR AND NOT(REF(RR,1)) AND (RR1<-100 AND BB1<-100) AND CB1<-100; DRAWICON(買入,40,9); DRAWTEXT_FIX(1,0.01,0.92,0,STRCAT('代編寫或想要好指標模型',CXHWZ3)),COLORWHITE;{此行可刪除}; 效果圖: |
|