查看完整版本: GET程式交易

GET程式交易

老友付氏是位指标高手，编制了许多的精品公式。在此发老友的三个公式源码，以为多时不见之念！

    GET程式交易直接把浪标示在k线上，会数浪的朋友看看请把心得告诉我（我不懂波浪理论:plaster:）

GET程式交易

kxs:=sysparam(2);
dsj:=1;
GET:zig(3,n),coloryellow;
pl5:=zig(3,5)*dsj;
en1:=zig(3,5)>ref(zig(3,5),1) and ref(zig(3,5),1)<=ref(zig(3,5),2) and

ref(zig(3,5),2)<=ref(zig(3,5),3)*dsj;
ex1:=zig(3,5)<ref(zig(3,5),1) and ref(zig(3,5),1)>=ref(zig(3,5),2) and

ref(zig(3,5),2)>=ref(zig(3,5),3)*dsj;
pl10:=zig(3,10)*dsj;
en2:=zig(3,10)>ref(zig(3,10),1) and ref(zig(3,10),1)<=ref(zig(3,10),2)

and ref(zig(3,10),2)<=ref(zig(3,10),3)*dsj;
ex2:=zig(3,10)<ref(zig(3,10),1) and ref(zig(3,10),1)>=ref(zig(3,10),2)

and ref(zig(3,10),2)>=ref(zig(3,10),3)*dsj;
pl20:=zig(3,20)*dsj;
en3:=zig(3,20)>ref(zig(3,20),1) and ref(zig(3,20),1)<=ref(zig(3,20),2)

and ref(zig(3,20),2)<=ref(zig(3,20),3)*dsj;
ex3:=zig(3,20)<ref(zig(3,20),1) and ref(zig(3,20),1)>=ref(zig(3,20),2)

and ref(zig(3,20),2)>=ref(zig(3,20),3)*dsj;
pl40:=zig(3,40)*dsj;
走强1:=barslast(pl5<ref(pl5,1));
走弱1:=barslast(pl5>ref(pl5,1));
走强2:=barslast(pl10<ref(pl10,1));
走弱2:=barslast(pl10>ref(pl10,1));
走强3:=barslast(pl20<ref(pl20,1));
走弱3:=barslast(pl20>ref(pl20,1));
ztjz5:=if(pl10>ref(pl10,1),count(en1,走强2),0);
ztjd5:=if(pl10>ref(pl10,1),count(ex1,走强2),0);
dtjz5:=if(pl10<ref(pl10,1),count(en1,走弱2),0);
dtjd5:=if(pl10<ref(pl10,1),count(ex1,走弱2),0);
ztjz10:=if(pl20>ref(pl20,1),count(en2,走强3),0);
ztjd10:=if(pl20>ref(pl20,1),count(ex2,走强3),0);
dtjz10:=if(pl20<ref(pl20,1),count(en2,走弱3),0);
dtjd10:=if(pl20<ref(pl20,1),count(ex2,走弱3),0);
drawtext(en1 and dtjz5=1,l*0.98,'㈠'),colorffff00;
drawtext(ex1 and dtjd5=2,h*1.02,'㈡'),colorffff00;
drawtext(en2 and ztjz5=1,l*0.98,'㈢'),colorffff00;
drawtext(ex1 and pl10>ref(pl10,1) and ztjd5=1,h*1.02,'⑴'),colorff;
drawtext(en1 and pl10>ref(pl10,1) and ztjz5=2,l*0.98,'⑵'),colorff;
drawtext(ex1 and pl10>ref(pl10,1) and ztjz5=2,h*1.02,'⑶'),colorff;
drawtext(en1 and pl10>ref(pl10,1) and ztjz5=3,l*0.98,'⑷'),colorff;
drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=1,h*1.02,'⑸'),colorff;
drawtext(en2 and dtjz10=1,l*0.94,'Ⅰ'),colorff0000;
drawtext(ex2 and dtjd10=2,h*1.06,'Ⅱ'),colorff0000;
drawtext(en3 and ztjz10=1,l*0.94,'Ⅲ'),colorff0000;
drawtext(ex2 and pl20>ref(pl20,1) and

ztjd10=1,h*1.06,'①'),Linethick3,colorffff;
drawtext(en2 and pl20>ref(pl20,1) and

ztjz10=2,l*0.94,'②'),Linethick3,colorffff;
drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=2 or (ztjd10=0 or

ztjd10=2) and ex2,h*1.06*dsj,'③'),Linethick3,colorffff;
drawtext(en2 and pl20>ref(pl20,1) and

ztjz10=3,l*0.94,'④'),Linethick3,colorffff;

n:1,99,2

●环宇魔鬼

应用周期》》》(日线 、60分种趋势)


Varp1:="KDJ.K";
Varp2:="KDJ.D";
Varp3:="KDJ.J";
Varp4:=Varp3>REF(Varp3,1)*1.002 AND Varp1>Varp2;
Varp5:=Varp1>Varp2 AND CLOSE>=OPEN*1.05;
Varp6:=Varp2<100 AND Varp3>Varp1*1.006;
kpp:=if(Varp4 AND Varp5 AND Varp6,1,0);
Var1:=DMA(EMA(CLOSE,12),SUM(VOL,5)/3/CAPITAL);
Var2:=(CLOSE-Var1)/Var1*100;
Var3:=EMA(CLOSE,6);
Var4:=EMA(CLOSE,36);
Var5:=EMA(CLOSE,11);
tkj:=IF(REF(Var2,1)>25 AND Var2<REF(Var2,1) AND REF(Var2,1)>REF(Var2,2) AND REF(Var2,1)-Var2>2 OR REF(Var2,1)>30 AND Var2<REF(Var2,1) AND REF(Var2,1)>REF(Var2,2) OR REF(Var2,1)>20 AND Var2<REF(Var2,1) AND REF(Var2,1)>REF(Var2,2) AND REF(Var2,2)>REF(Var2,3) AND REF(Var2,1)-Var2>3 AND REF(Var2,1)-REF(Var2,2)>2 OR Var2>60,1,0);
HY:=IF(REF(Var2,1)<-25 AND Var2>REF(Var2,1) AND REF(Var2,1)<REF(Var2,2) AND Var2-REF(Var2,1)>2 OR REF(Var2,1)<-30 AND REF(Var2,1)<Var2 AND REF(Var2,1)<REF(Var2,2) OR Var2<-33,1,0);
LO := REF(OPEN,1);
RSIO:=SMA(MAX(OPEN-LO,0),6,1)/SMA(ABS(OPEN-LO),6,1)*100;
LC := REF(CLOSE,1);
RSIC:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
LH := REF(HIGH,1);
RSIH:=SMA(MAX(HIGH-LH,0),6,1)/SMA(ABS(HIGH-LH),6,1)*100;
LL := REF(LOW,1);
RSIL:=SMA(MAX(LOW-LL,0),6,1)/SMA(ABS(LOW-LL),6,1)*100;
pb:=IF(RSIC<REF(RSIC,1) AND RSIC>79,RSIC,0);
DRAWTEXT(pb,110,'★ '),colorgreen;
DRAWTEXT(RSIC<12,-1,'★ '),colorred;
开盘:=RSIO, LINETHICK0;
收盘:=RSIC, LINETHICK0 ;
最高:=RSIH, LINETHICK0 ;
最低:=RSIL, LINETHICK0;
gf:=(开盘+收盘)/2;
STICKLINE(收盘>开盘,开盘,最低,0.5,0),colorred;
STICKLINE(收盘>开盘,最高,收盘,0.5,0),colorred;
STICKLINE(收盘>开盘,收盘,开盘,6,0),colorred;
STICKLINE(收盘<开盘,最高,开盘,0.5,0),COLORcyan;
STICKLINE(收盘<开盘,最低,收盘,0.5,0),COLORcyan;
STICKLINE(收盘<开盘,收盘,开盘,6,0),COLORcyan;
STICKLINE(hy=1,gf,收盘,4,0),colormagenta;
STICKLINE(tkj=1,gf,收盘,4,0),colorblue;
STICKLINE(kpp=1,gf,收盘,4,0),coloryellow;
aa:=MIN(开盘,收盘);
bb:=MIN(aa,最高);
cc:=MIN(bb,最低),COLORRED;
xt1:=cc=最高;xt2:=cc=开盘;
底线:((xt1<20 or xt2<20) and cc<20),colorred;
DRAWTEXT(FILTER((xt1<12 or xt2<12) and cc<12,3),-1,'★ '),colorred;
aa1:=MAX(开盘,收盘);
bb1:=MAX(aa1,最高);
cc1:=MAX(bb1,最低),COLORGREEN;
顶线:100-if(cc1>80,5,0),COLORGREEN;
DRAWTEXT(ref(cc1,1)>84 and cc1<83 ,110,'★ '),colorgreen;

AA1:=REF(rsio,3)=HHV(rsio,2*3+1);
AAA:=FILTER(AA1,3);
BB1:=BACKSET(AAA,3+1);
CC1:=FILTER(BB1,3);
CC:=CC1 OR ISLASTBAR;
AA2:=REF(rsic,3)=LLV(rsic,2*3+1);
AAA2:=FILTER(AA2,3);
BB2:=BACKSET(AAA2,3+1);
CC22:=FILTER(BB2,3);
GG1:=ISLASTBAR AND REF(CC1,BARSLAST(CC1));
HH:=BACKSET(GG1,BARSLAST(CC1)+1);
II:=HH>REF(HH,1);
JJ1:=REF(BARSLAST(CC1),1);
KK:=BACKSET(II,JJ1+2);
LL:=KK>REF(KK,1);
DRAWLINE(LL,rsio,II,rsio,1),POINTDOT,COLORCYAN;
CS:=(REF(rsio,BARSLAST(II))-REF(rsio,BARSLAST(LL)))/(BARSLAST(LL)-BARSLAST(II));
阻力线:=REF(rsio,BARSLAST(II))+BARSLAST(II)*CS;
阻力:阻力线,LINETHICK0,COLORmagenta;
GG2:=ISLASTBAR AND REF(CC22,BARSLAST(CC22));
HH2:=BACKSET(GG2,BARSLAST(CC22)+1);
II2:=HH2>REF(HH2,1);
JJ2:=REF(BARSLAST(CC22),1);
KK2:=BACKSET(II2,JJ2+2);
LL2:=KK2>REF(KK2,1);
DRAWLINE(LL2,rsic,II2,rsic,1),POINTDOT,COLORGREEN;
CS1:=(REF(rsic,BARSLAST(II2))-REF(rsic,BARSLAST(LL2)))/(BARSLAST(LL2)-BARSLAST(II2));
阻力线1:=REF(rsic,BARSLAST(II2))+BARSLAST(II2)*CS1;
支撑:阻力线1,LINETHICK0,COLORGREEN;
Var43:=REF(CLOSE,1);
Var44:=SUM(VOL,2)/((HHV(HIGH,2)-LLV(LOW,2))*100);
Var45:=(CLOSE-Var43)*Var44;
Var46:=SUM(Var45,0);
Var47:=SMA(Var46,10,1);
Var48:=SMA(Var46,20,1);
Var49:=Var47-Var48;
Var4A:=MA(Var49,10);
Var4B:=Var47-Var48;
Var4C:=1/WINNER(CLOSE);
Var4D:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
Var4E:=100-ABS(Var4D);
Var4F:=3*SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,10,1)-2*SMA(SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,10,1),5,1);
Var50:=3*SMA((OPEN-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,10,1)-2*SMA(SMA((OPEN-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,10,1),5,1);
Var51:=100-Var50;
Var52:=100-Var4F;
Var53:=MA(WINNER(CLOSE*0.95)*100,3);
Var54:=IF(Var4C>5,IF(Var4C<100,Var4C,Var4E-10),0);
Var55:=(-1)*(EMA(Var52,1)-50)+50;
Var56:=(-1)*(EMA(Var52,12)-50)+50;
Var57:=(Var55-Var56)*10+Var4A;
Var58:=(Var49+Var57)/20;
Var59:=Var49/10+3;
Var5A:=Var49/10+3;
Var5B:=Var57/(-20);
Var5C:=Var57/(-20);
Var5D:=EMA(Var49/10+3,4);
Var5E:=EMA(Var57/(-20),4);
Var5F:=(Var49/10+3)*0.618;
Vart1:=(HIGH+LOW)/2;
Vart2:=SMA(Vart1,5,1)-SMA(Vart1,34,1);
Vart3:=SMA(Vart2-SMA(Vart2,5,1),5,1);
fs1:=Vart2>REF(Vart2,1) AND Vart3>REF(Vart3,1);
fs2:=Vart2<REF(Vart2,1) AND Vart3<REF(Vart3,1);
fs3:=Vart2>REF(Vart2,1) AND Vart3<REF(Vart3,1);
fs4:=Vart2<REF(Vart2,1) AND Vart3>REF(Vart3,1);
DRAWICON(fs1,-10,10);
DRAWICON(fs2,-10,11);
DRAWICON(fs3,-10,12);
DRAWICON(fs4,-10,12);
FILLRGN(Var5C>EMA(Var5C,4) AND Var5C>REF(Var5C,1),-20,-32),colorgreen;
FILLRGN(Var5C>EMA(Var5C,4) AND Var5C<REF(Var5C,1),-20,-32),colorwhite;
FILLRGN(Var5C<EMA(Var5C,4) AND Var5C>REF(Var5C,1),-20,-32),coloryellow;
FILLRGN(Var5C<EMA(Var5C,4) AND Var5C<REF(Var5C,1),-20,-32),colorred;

机构行为

应用周期》》》(3分种短线)
这是短线指标中最为重要的一个指标，他是短线系统的一次革命，有了他可以避免被骗进去，大大增加了出击的成功率，意义与出击提示相同，不过是从量上来判别的，内涵是：1.vol大于5及34日均量线，2，5日均线量大于34日均量线;
     短线是什么，如何增加成功率且不被假动作蒙骗：那就是形态，量，价格的三者结合!深刻理解，就能做到十枪九个！

input: m1(5,1,100),m2(34,1,100);
v,volstick;
ma1:ma(v,m1);
ma2:ma(v,m2);
lb:v/ma(v,21),linethick0;
持仓差:OPENINT-REF(OPENINT,1),linethick0;
vertline(v>=ma1 and v>=ma2 and ma1>=ma2),colorff3366;

好久不见，多谢yngs版:plain:

谢谢！

谢谢学习^_^。

谢谢 !谢谢 !!

谢谢学习

很有用，谢谢！

有朋友知道波浪理论吗？几浪是尾段啊～～～

谢谢学习 ...........
谢谢学习

保留字不可做变量是什么.那错了

请问  在GET程式交易的公式,64行出现了
保留字不可做变量是什么
谢谢

谢谢学习 ...........
谢谢学习

谢谢学习 ...........
谢谢学习

get不能输入！！！:no: :no: :no: :no: