各位大哥,帮忙小弟把以下的源码改为DZH 或 FXJ的!谢谢! <奇妙撑压> input:n(13,2,100),p(3,1,10); DRAWGBK(1, COLORRGB(100,50,0), COLORRGB(100,100,0),0); {K线} aa1:=wma(c,2);//短加权均线 bb1:=ema(aa1,2);//平滑 a:=ma(bb1,3);//平均 aa2:=wma((h+c+o)/3,18);//长加权均线 dd3:=a>=aa2 and c>aa2;//短>长,且收>长 dd4:=a<aa2 ;//短<长 dd5:=a>aa2 ;//短>长 STICKLINE((dd4 or dd5) and o<=c ,h,l,0.5,0),Color00cc99;//跌势阳线 STICKLINE((dd4 or dd5) and o<=c ,c,o,7,0),Color00cc99;//跌势阳线 STICKLINE((dd4 or dd5) and o>=c ,h,l,0.5,0),Color3F8C3A;//跌势阴线 STICKLINE((dd4 or dd5) and o>=c ,c,o,7,0),Color3F8C3A;//跌势阴线 STICKLINE((dd3 or c>aa2) and o<=c,c,o,7,0),Colorred;//涨势阳线 STICKLINE((dd3 or c>aa2) and o<=c,h,l,0.5,0),Colorred;//涨势阳线 STICKLINE((dd3 or c>aa2) and o>=c,c,o,7,0),Colorff33ff;//涨势阴线 STICKLINE((dd3 or c>aa2) and o>=c,h,l,0.5,0),Colorff33ff;//涨势阴线 {kdj} RSV1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100; KK:=SMA(RSV1,3,1); DD:=SMA(KK,3,1); JJ:=3*KK-2*DD; M:=BARSLAST(CROSS(DD,JJ)); G:=REF(H,M); 警示线:STICKLINE(G,G,G,10,1),COLORYELLOW,linethick2;//进场;止赢;止损;黄 {箱型区间操作指标} hh:=h;ll:=l; top:=h; bot:=l; xx[1]:=1; kk:=1; for i=1 to datacount do begin if xx[i]=1 then begin top[i]:=hh[i]; end; if xx[i-1]=1 then begin if hh[i]>top[i-1] then begin top[i]:=hh[i]; xx[i]:=1; end;else begin top[i]:=top[i-1]; xx[i]:=2; end; end; if xx[i-1]=2 then begin if hh[i]>top[i-1] then begin top[i]:=hh[i]; xx[i]:=1; end;else begin top[i]:=top[i-1]; bot[i]:=ll[i]; xx[i]:=3; end; end; if xx[i-1]=3 then begin top[i]:=top[i-1]; if ll[i]< bot [i-1] then begin bot[i]:=ll[i]; xx[i]:=3; end;else begin bot[i]:=bot[i-1]; xx[i]:=4; end; end; if xx[i-1]=4 then begin top[i]:=top[i-1]; if ll[i]<bot [i-1] then begin bot[i]:=ll[i]; xx[i]:=3; end;else begin bot[i]:=bot[i-1]; xx[i]:=5; end; end; if xx[i-1]=5 then begin if ll[i]<bot [i-1] or hh[i] > top[i-1] then begin top[i]:=hh[i]; bot[i]:=hh[i]; xx[i]:=1; end;else begin bot[i]:=bot[i-1]; top[i]:=top[i-1]; xx[i]:=5; end; end; end; for j=1 to datacount do begin if xx[j]=5 and xx[j-1]=4 then begin for k=j-1 downto j-kk do begin top[k]:=top[j]; bot[k]:=bot[j]; end; end; if xx[j-1]=5 and xx[j]=1 then kk:=0; kk:=kk+1; end; jj:=BARSLAST(top<>ref(top,1)); STICKLINE(top,top,top,10,1),SHIFT5,colorcyan; drawnumber(top<>ref(top,1),ref(top,jj)*1.015 ,(top-bot)*100/bot,2),SHIFT5,colorff9900; STICKLINE(bot,bot,bot,10,1),SHIFT5,COLORBLUE; drawnumber(top<>ref(top,1),ref(bot,jj)*0.99,top-bot ,2),SHIFT5,COLORBLUE; {主图RSI} x1:=REF(C,1); x2:=SMA(MAX(C-x1,0),N,1)/SMA(ABS(C-x1),N,1)*100; x3:=((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)-50)* 1.032+50); x4:=(x2+x3)/2; 奇妙:c+(x4/50-1)*(ma(c,30)/20)*p,PRECISION2,Color0098FF; 《百战不怠》----副图指标原码 DRAWGBK(1, COLORRGB(100,50,0), COLORRGB(100,100,0),0); {筹码空间} STICKLINE(c and WINNER(C)>ref(WINNER(C),1),WINNER(C)*100,0,5,1),COLORRED;//筹码空间 STICKLINE(c and WINNER(C)<ref(WINNER(C),1),WINNER(C)*100,0,5,0),COLORCYAN;//筹码空间 K: EMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,8),PRECISION2,COLORGREEN; Vx1:=EMA((C-LLV(L,55))/(HHV(H,34)-LLV(L,55))*100,3); D: EMA(0.667*REF(K,1)+0.333*K,2),PRECISION2,COLORYELLOW; 筹码快线:ema(WINNER(C)*100,13),PRECISION2,COLORMAGENTA; 筹码慢线:ema(WINNER(C)*100,55),PRECISION2,COLORBLUE; 以下是第三个公式源码 LC:=REF(CLOSE,1); RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100; DRAWTEXT(CROSS(84,RSI) , h*1.05,'卖出') ,colorblue; SK:=EMA(((2*C+H+L)/4-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100,n); SD:=EMA(0.667*REF(SK,1)+0.333*SK,p); DRAWTEXT(IF(count(close<ref(close,1),x)/x>q/10 and vol>=1.5*ma(vol,5) and count(sk>=sd,3) and ref(low,1)=LLV(Low,120),1,0),l*0.95,'买进') ,colorblue; DRAWTEXT(IF(count(close<ref(close,1),13)/13>6/10 and count(sk>sd,6) and ref(low,5)=LLV(Low,120) and ref(close>=open,4) and ref(close>open,3) and REF(CLOSE>OPEN,2) AND ref(open>close,1) and open>ref(close,1),1,0),l*0.95,'买进'),colorblue; DRAWTEXT(if(CLOSE<MA(CLOSE,80)-MA(CLOSE,10)/3 and VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3,1,0),l*0.95,'抄底'),colorblue; var1:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,5); 买入1:=(var1<6 AND CLOSE/MA(CLOSE,40)<0.85 AND (CLOSE-OPEN)/OPEN*100>4)*90,LINETHICK3,COLORFFAA66; 买入2:=(var1<6 AND CLOSE/MA(CLOSE,40)<0.76 AND LOW*1.051<HIGH AND COUNT(LOW*1.051<HIGH,5)>1)*70,LINETHICK2,COLORGREEN; 买入3:=(var1<6 AND INDEXC*1.03<MA(INDEXC,5) AND INDEXC*1.13<MA(INDEXC,20))*60,LINETHICK2,COLORblue; DRAWICON(var1<6 AND CLOSE/MA(CLOSE,40)<0.85 AND (CLOSE-OPEN)/OPEN*100>4,l*0.9,10); DRAWTEXT(var1<6 AND CLOSE/MA(CLOSE,40)<0.85 AND (CLOSE-OPEN)/OPEN*100>4,l*0.85,'--->买入1'),colorred; DRAWICON(var1<6 AND CLOSE/MA(CLOSE,40)<0.76 AND LOW*1.051<HIGH AND COUNT(LOW*1.051<HIGH,5)>1,l*0.9,10); DRAWTEXT(var1<6 AND CLOSE/MA(CLOSE,40)<0.76 AND LOW*1.051<HIGH AND COUNT(LOW*1.051<HIGH,5)>1,l*0.85,'--->买入2'),colorred; DRAWICON(var1<6 AND INDEXC*1.03<MA(INDEXC,5) AND INDEXC*1.13<MA(INDEXC,20),l*0.9,10); DRAWTEXT(var1<6 AND INDEXC*1.03<MA(INDEXC,5) AND INDEXC*1.13<MA(INDEXC,20),l*0.85,'--->买入3'),colorred; Var4:=EMA((EMA(CLOSE,95)-EMA(CLOSE,120)),35); Var5:=((EMA(CLOSE,95)-EMA(CLOSE,120))-Var4)*2; DRAWICON(FILTER(Var5>0.3,30),h*1.05,9); DRAWTEXT(FILTER(Var5>0.3,30),h*1.05,'--->顶'),colorred; Var6:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100; Var7:=SMA(Var6,5,1); Var8:=SMA(Var6,10,1); Var9:=Var8>80 OR Var7>80; DRAWICON(CROSS(Var8,Var7) AND Var9,h*1.1,11),ALIGN0; DRAWTEXT(CROSS(Var8,Var7) AND Var9,HIGH*1.11,'-->卖出'), colorblue; D1:=((AMOUNT)/(VOL))/(100); D2:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7); D3:=((SUM(AMOUNT,13))/(D1))/(100); D4:=DMA(D2,(VOL)/(D3)); D5:=((CLOSE-D4)/(D4))*(100); D6:=((INDEXC-LLV(INDEXL,10))/(HHV(INDEXH,10)-LLV(INDEXL,10)))*(100); KK:=SMA(D6,3,1); DD:=SMA(KK,3,1); DRAWICON(CROSS(KK,DD) AND (KK<50) AND (COUNT((D5<=(-17)),5)>=1),LOW,1),Color00FF00; AA1:=((CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15)))*(100); AA2:=SMA(AA1,5,1); K:=SMA(AA2,3,1); D:=SMA(K,3,1); S:=IF(CROSS(K,D) AND (K<20),100,0); S1:=IF(CROSS(D,K) AND (K>40),100,0); DRAWTEXT(FILTER(S,30),LOW,'买'),ColorFFFFFF; A6:=REF(CLOSE,1); A7:=((SMA(MAX(CLOSE-A6,0),6,1))/(SMA(ABS(CLOSE-A6),6,1)))*(100); A8:=EMA(((((2)*(CLOSE)+HIGH+LOW)/(4)-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100),6); A9:=EMA((0.66699999)*(REF(A8,1))+(0.333)*(A8),4); DRAWTEXT(IF(((COUNT((CLOSE<REF(CLOSE,1)),8))/(8)>0.30000001) AND COUNT((A8>A9),3) AND (REF(LOW,1)=LLV(LOW,120)) AND (CLOSE>OPEN),1,0),LOW,'-->买'),Color0000FF; DRAWTEXT(CROSS(85,A7),HIGH,'-进入风险'),Color0000FF; Var51:=EMA(EMA(EMA(CLOSE,8),13),62); Var52:=(REF(HIGH,1)+REF(LOW,1))/2; Var53:=MA(CLOSE,m)+2*STD(CLOSE,m); DRAWICON(CROSS(Var52,Var53),HIGH*1.035,11); DRAWTEXT(CROSS(Var52,Var53),HIGH*1.04,'-->卖出'), COLORGREEN; Var54:=SMA(MAX(CLOSE-REF(CLOSE,1),0),m1,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),m1,1)*100; Var55:=FILTER(CROSS(m2,Var54),4); DRAWICON(Var55,HIGH*1.035,11); DRAWTEXT(Var55,HIGH*1.04,'-->卖出'), COLORblue; Var56:=EMA(((2*CLOSE+HIGH+LOW)/4-Var51)/(Var52-Var51)*100,7); Var57:=EMA(0.667*REF(Var56,1)+0.333*Var56,5); DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.6 AND VOL>=1.5*MA(VOL,5) AND COUNT(Var56>=Var57,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW,'●买进'); DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),13)/13>0.6 AND COUNT(Var56>Var57,6) AND REF(LOW,5)=LLV(LOW,120) AND REF(CLOSE>=OPEN,4) AND REF(CLOSE>OPEN,3) AND REF(CLOSE>OPEN,2) AND REF(OPEN>CLOSE,1) AND OPEN>REF(CLOSE,1),1,0),LOW,'●买进'), , COLORblue; Var58:=MA(CLOSE,80)-MA(CLOSE,10)/3; DRAWTEXT(IF(CLOSE<Var58 AND VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3,1,0),LOW,'●抄底'), , COLORRED; DRAWICON(CROSS(MA(CLOSE,5),MA(CLOSE,30)),LOW-LOW*0.01,8); ma5:ma(c,5); bb5:=ma5-ref(ma5,1); ma10:ma(c,10); bb10:=ma10-ref(ma10,1); PARTLINE(bb5>0,MA5),colorcc00ff,LINETHICK2; PARTLINE(bb5<=0,MA5),colorff9999,LINETHICK2; PARTLINE(bb10>0,MA10),color0066ff,LINETHICK2; PARTLINE(bb10<=0,MA10),color00ff33,LINETHICK2; MA5速率:bb5*100,LINETHICK0; MA10速率:bb10*100,LINETHICK0; BB:=MA(((CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10)))*(100),20); VAR61:=(REF(HIGH,1))*(1.1); VAR62:=(HIGH)*(1.1); VAR63:=((VAR62)*(VOL)+(VAR61)*(CAPITAL-VOL))/(CAPITAL); VAR64:=(REF(LOW,1))*(0.89999997); VAR65:=(LOW)*(0.89999997); VAR66:=((VAR65)*(VOL)+(VAR64)*(CAPITAL-VOL))/(CAPITAL); VAR67:=EMA(VAR66,30); VAR68:=EMA(VAR63,30); VAR69:=VAR68-2; VAR70:=IF((CLOSE<=VAR67),VAR69,VAR68); 底:VAR70,,linethick2,ColorA5E2E; 趋:VAR69,,pointdot,linethick4,Color10578C; 【趋势线】:=(SMA(BB,30,1))/(20),linethick2,Colorblue; 【底部线】:=(HHV(HIGH,30))/(LLV(LOW,30)),linethick2,ColorFFFF00; STICKLINE(CROSS(【底部线】,【趋势线】),底*1.15,底*1.2,8,0),color972E6E; DRAWTEXT(CROSS(【底部线】,【趋势线】),底,'【进入底部】'),Color972E6E; STICKLINE(CROSS(【趋势线】,【底部线】),底*1.15,底*1.2,8,0),color395558; DRAWTEXT(CROSS(【趋势线】,【底部线】),底,'【冲出底部】'),Color395558; 很长有劳哪位热心的大哥了,小弟拜谢!股票论坛 www.55188.com |
|