分享

【图】版主请进源码修改飞弧改大智慧或分析家的

 海天云骞 2017-05-31
各位大哥,帮忙小弟把以下的源码改为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

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约