多空斧 + 漓江渔歌 源码

好股网(www.goodgupiao.com)提示：您正在下载的是：多空斧 + 漓江渔歌 源码

{多空斧-长阳真人}
DRAWGBK(c,colorrgb(0,20,70),colorrgb(0,30,80),1);
INPUT:T(2,1,24),N(21,1,100),M(42,1,250),P(7,1,100),N1(5,1,100),N2(34,5,60);
A1:=ref(h,N1)=hhv(h,2*N1+1);
B1:=filter(A1,N1);
C1:=backset(B1,N1+1);
D1:=filter(C1,n1);{高点}
A2:=ref(l,N1)=llv(l,2*N1+1);
B2:=filter(A2,N1);
C2:=backset(B2,N1+1);
D2:=filter(C2,N1);{低点}
E1:=(ref(llv(l,2*N1),1)+ref(hhv(h,2*N1),1))/2; E2:=(h+l)/2;{高低点出现在同一K线上时可作取舍}
H1:=(D1 AND not(D2 AND E1>=E2)) OR barstatus=2 OR barscount(c)=1;
L1:=(D2 AND not(D1 AND E1<E2)); H2:=D1 AND not(D2 AND E1>=E2);
X1:=ref(barslast(H1),1)+1; F1:=backset(H1 AND count(L1,X1)>0,llvbars
(if(L1,l,10000),X1));
G1:=F1>ref(F1,1); I1:=backset(G1,2); LD:=I1>ref(I1,1);{过滤后低点}
L2:=LD OR barstatus=2 OR barscount(c)=1;
X2:=ref(barslast(L2),1)+1; F2:=backset(L2 AND count(H2,X2)>0,hhvbars
(if(H2,h,0),X2));
G2:=F2>ref(F2,1); I2:=backset(G2,2); HD:=I2>ref(I2,1);{过滤后高点}
R1:=backset(barstatus=2,barslast(HD)+1); S1:=R1>ref(R1,1); {前一高}
T1:=backset(barstatus=2,barslast(LD)+1); U1:=T1>ref(T1,1); {前一低}
R2:=backset(S1,ref(barslast(HD),1)+2); S2:=R2>ref(R2,1); {前二高}
T2:=backset(U1,ref(barslast(LD),1)+2); U2:=T2>ref(T2,1); {前二低}
T3:=backset(U2,ref(barslast(LD),1)+2); U3:=T3>ref(T3,1); {前三低}
T4:=backset(U3,ref(barslast(LD),1)+2); U4:=T4>ref(T4,1); {前四低}
R3:=backset(S2,ref(barslast(HD),1)+2); S3:=R3>ref(R3,1); {前三高}
R4:=backset(S3,ref(barslast(HD),1)+2); S4:=R4>ref(R4,1); {前四高}
drawline(S2,h,S1,h,1),Colorred;
drawline(U2,l,U1,l,1),Colorgreen;
drawline(S3,h,S2,h,1),Coloryellow;
drawline(U3,l,U2,l,0),Colorgreen;
DRAWICON(S1,H*1.01,10);
DRAWICON(S2,H*1.01,10);
DRAWICON(S3,H*1.01,10);
DRAWICON(S4,H*1.01,10);
DRAWICON(U1,L*0.99,9);
DRAWICON(U2,L*0.99,9);
DRAWICON(U3,L*0.99,9);
DRAWICON(U4,L*0.99,9);

{一般K线}

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,9,0 ),COLORaaaa55;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLORbbbb66;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2.4,0 ),COLORcccc77;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1.1,0 ),COLORdddda8;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,9,0 ),COLOr3322cc;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6 ,0 ),COLOR4433dd;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.4 ,0 ),COLOR5544ee;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.1 ,0 ),COLOR6655ff;
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR1199ff;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR1199ff;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLORcccccc;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR008364;

{筹码K线}
主筹估算:=指数平滑移动平均(获利盘比例(收盘价)*70,3);
散筹估算:=指数平滑移动平均((获利盘比例((收盘价)*1.1)-获利盘比例((收盘价)*0.9))*70,3);
筹码锁定:=散筹估算-主筹估算 ;
动态底部:=指数平滑移动平均(条件函数(最低价<= 最低值(最低价,60),移动平均(绝对值(最低价-向前引用(最低价,1)),60,1)/移动平均(最大值(最低价-向前引用(最低价,1),0),99,1),0)*5,3);
涨:=交叉函数(主筹估算,筹码锁定);
强:=交叉函数(主筹估算,散筹估算);
画柱线(涨,开盘价,收盘价,6,0),COLORYELLOW;
画柱线(涨,开盘价,最高价,0,0),COLORYELLOW;
画柱线(涨,最低价,收盘价,0,0),COLORYELLOW;
画柱线(强, 开盘价,收盘价,6,0),colormagenta;
画柱线(强,开盘价,最高价,0,0),colormagenta;
画柱线(强,最低价,收盘价,0,0),colormagenta;

G13:简单移动平均(收盘价,13);
画分段线(简单移动平均(收盘价,5)>G13,G13),linethick2,Colorred;
画分段线(简单移动平均(收盘价,5)<G13,G13),linethick2,Colorgreen;

a:=成交量/简单移动平均(成交量,20);
d1:=上一次条件成立位置(a>=1.8);
短压:向前引用(最高价,d1),coloryellow;
短支:向前引用(收盘价,d1),coloryellow;

n3:=p;
TY:=收盘价;
A1:=向前引用(TY,N3)=最高值(TY,2*N3+1);
B1:=信号过滤(A1,N3);
C1:=向前赋值(B1,N3+1);
HD:=信号过滤(C1,N3);
A2:=向前引用(TY,N3)=最低值(TY,2*N3+1);
B2:=信号过滤(A2,N3);
C2:=向前赋值(B2,N3+1);
LD:=信号过滤(C2,N3);
A:=向前引用(收盘价,上一次条件成立位置(HD));
B:=向前引用(收盘价,上一次条件成立位置(LD));
t1:=上一次条件成立位置(HD) and 上一次条件成立位置(LD) AND 求逻辑非(LD);

jsg:=CROSS(c,a) and c>o and( c/a>1.008 or c/o>1.07);//价突破
jgw:=上一次条件成立位置(jsg);
放量:=ma(v,1)>ma(v,5)*1.298 and v>ref(v,1);//量突破
DRAWICON(jsg and 放量,l*0.99,4);
DRAWTEXT(jsg and 放量 and t1=1,l*0.99,' 放量突破'),COLORYELLOW;

fd:=hhv(h,jgw-1)/llv(l,jgw-1)<1.1;//突破后最高价回调至低价的幅度不大于10%,如要调为不大于3%可将 <1.1 改为 <1.03
jht:=c<ref(c,1) and c>a and fd ;
lj:=v<ref(V,1);//量低于前一日量
选股1:=jht and lj ;//选股公式必需去掉 = 号
DRAWTEXT(BARPOS=SYSPARAM(3) and c>a,a*0.99,'目前支撑:'+NUMTOSTR(a,2)),COLORffffff,ALIGN2;
DRAWTEXT(BARPOS=SYSPARAM(3) and c<a,a*1.02,'目前阻力:'+NUMTOSTR(a,2)),COLORffffff,ALIGN2;
DRAWTEXT(BARPOS=SYSPARAM(3) and c=a,a*1.02,'面临突破:'+NUMTOSTR(a,2)),COLORffffff,ALIGN2;

画柱线(t1,A,A,8,0),ColorFF00FF,LINETHICK2;//画压力线

画柱线(选股1,o,c,8,0),COLOR00ff00,LINETHICK2;//突破压力线后选股点

STICKLINE(t1=0 and o>c and c<ref(c,1),o,c,5,0),COLORffffff,LINETHICK2;//底
STICKLINE(t1=0 and o<c ,o,c,5,0),COLORff0000,LINETHICK2;//顶

开:=WINNER(O)*100;
收:=WINNER(C)*100;
无量长阳:=收-开>15 AND V/CAPITAL<0.02;
DRAWICON(无量长阳,l*0.97,10);

ll:=COST(0);
hh:=COST(100);
aa1:=(hh-ll)/100;//把区间分成100份
tm1:=WINNER(ll[DATACOUNT]+aa1[DATACOUNT]);
tm:=tm1[DATACOUNT];
dyjw[1]:=ll[DATACOUNT]+aa1[DATACOUNT];
for k=2 to 100 do begin
dyjw[k]:=(ll[DATACOUNT]+k*aa1[DATACOUNT]);
dyhlp:=WINNER(dyjw[k]);
hlp:=dyhlp-tm1;
tm1:=dyhlp;
IF hlp[DATACOUNT]>tm then begin
tm:=hlp[DATACOUNT];
jg:=dyjw[k];
end;
end;
筹码密集峰价位:jg-aa1[DATACOUNT]/2,LINETHICK1,COLORGRAY;

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
DRAWICON(FILTER(B1>0,5),L*0.94,10);
DRAWTEXT(FILTER(B1>0,5),L*0.94,'M底'),COLORGREEN;{MACD底背离}
A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
DRAWICON(FILTER(B2>0,5),L*0.96,10);
DRAWTEXT(FILTER(B2>0,5),L*0.96,'K底'),COLORYELLOW;{KDJ底背离}
A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
DRAWICON(FILTER(B3>0,5),L*0.98,10);
DRAWTEXT(FILTER(B3>0,5),L*0.98,'R底'),COLORwhite;{RSI底背离}

C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
DRAWICON(FILTER(D1>0,5),H*1.07,12);
DRAWTEXT(FILTER(D1>0,5),H*1.07,'M顶'),COLORblue;{MACD顶背离}
C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K");
DRAWICON(FILTER(D2>0,5),H*1.05,12);
DRAWTEXT(FILTER(D2>0,5),H*1.05,'K顶'),COLORRED;{KDJ顶背离}
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
DRAWICON(FILTER(D3>0,5),H*1.03,12),;
DRAWTEXT(FILTER(D3>0,5),H*1.03,'R顶'),COLORgreen;{RSI顶背离};
MA1:MA(CLOSE,N1);

input:N2(34,5,60);
A:=EMA(AMOUNT/C/1000000,7);
MID :=EMA(A,N2);
UPPER:=MID + 2*STD(A,N2);
LOWER:=MID - 2*STD(A,N2);
量能:=(A-LOWER)/(UPPER-LOWER)*100,COLORFFFFFF;
放量:=IF(CROSS(量能,70),70,50),COLOR00FF00;
↑:=IF(CROSS(量能,50),1,0),COLORFF00FF;
攻击:=IF(CROSS(量能,100),1,0),COLOR0000FF,POINTDOT,LINETHICK0;
缩量:=IF(CROSS(30,量能),1,0),COLORFFFF00,POINTDOT,LINETHICK0;
DRAWTEXT(↑,l,'↑\n放\n量'),COLORFF00FF,ALIGN1;
DRAWTEXT(攻击,l, '↑\n攻\n击'),COLOR0000FF,ALIGN1;
DRAWTEXT(缩量,l, '↓\n缩\n量'),COLORFFFF00,ALIGN1;

 

{〓漓江渔歌〓长阳真人优化并配诗}
{用法：
1.买入： 倒影值<（16~21） 出现打渔船'︼'标志
2.卖出预警： T1>=88 OR 顶线<=90 出现南归雁'ω'标志
3.卖出: 顶线=100~90 出现南归雁'ω'标志}
INPUT:N(5,1,300),M1(5,1,300),M2(5,1,300);
VARA:=MA(CLOSE,20);
RSV:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27));
K:=SMA(RSV,5,1);
D:=SMA(K,3,1);
D2:=SMA(K,2,1);
T1:=(3*K-2*D)*100;
山:=(3*K-2*D)*100,COLOR004488;
天清云淡两相宜:FILLRGN(T1>-10,0,120),colorFFFF99;
A1:=MA(CLOSE,5);
A2:=MA(REF(HHV(CLOSE,10),1),5);
卖出A:=CROSS(A2,A1);
A4:=DATE=1020520;
DRAWICON(A4,115,'Z01');
A5:=CROSS(MA(CLOSE,120),MA(CLOSE,55));
DRAWICON(A5,115,'小云');
FILLRGN(山,0,山*0.82),colorFFAA;
FILLRGN(山,0,山*0.815),colorEE98;
FILLRGN(山,0,山*0.81),colorDD97;
FILLRGN(山,0,山*0.8),colorCC96;
FILLRGN(山,0,山*0.785),colorBB95;
FILLRGN(山,0,山*0.77),colorAA94;
FILLRGN(山,0,山*0.76),color9993;
FILLRGN(山,0,山*0.74),color8892;
FILLRGN(山,0,山*0.72),color7791;
FILLRGN(山,0,山*0.7),color6690;
FILLRGN(山,0,山*0.67),color5589;
FILLRGN(山,0,山*0.63),color4488;
T2:=(100-山-100)*2/3;
漓江水碧总流连:FILLRGN(T1>-10,0,-72),colorEEFF00;
红日初升渔家乐:DRAWICON(FILTER(山<1,5),山+50,'太阳');
倒影:T2,COLOR007799;
FILLRGN(倒影,0,倒影),colorEE99;
FILLRGN(倒影,0,倒影*0.96),colorDD99;
FILLRGN(倒影,0,倒影*0.91),colorCC99;
FILLRGN(倒影,0,倒影*0.85),colorBB99;
FILLRGN(倒影,0,倒影*0.78),colorAA99;
FILLRGN(倒影,0,倒影*0.7),color9999;
FILLRGN(倒影,0,倒影*0.61),color8899;
FILLRGN(倒影,0,倒影*0.5),color7799;
顶线:100-(HIGH-VARA)/VARA,COLOR004488;
卖出预警:=T1>=88 OR 顶线<=90;
卖出:=CROSS(顶线,T1) OR CROSS(90,T1);
T3:=卖出预警 OR 卖出A OR 卖出;
寒雁南飞报归期:DRAWICON(FILTER(T3,4),山+10,'小燕子');
AA:=(CLOSE-LLV(LOW,28))/(HHV(HIGH,28)-LLV(LOW,28))*100;
BB:=MA(AA,10);
CC:=SMA(BB,3,1)/10;
底线:=HHV(HIGH,34)/LLV(LOW,34);
DD:=REF(CC,1)<底线*1.2 AND REF(CC,1)<REF(CC,2) AND CC>=REF(CC,1);
T4:=FILTER(DD,5);
DRAWICON(FILTER(T4,5),山-60,'小鱼船');
T5:=MONTH=1 AND (DAY=7 OR DAY=8 OR DAY=9);
DRAWTEXT(FILTER(T5,3),140,' \n \n \n指标入画图,\n \n买进又卖出,'),color80;
太阳:山<1,COLOR4080FF,LINETHICK;
小云:A5,COLORE6E4EA,LINETHICK;
小鱼船:T4,COLORD4F0FF,LINETHICK;
小燕子:T3,COLORCD8418,LINETHICK;




 

好股网(www.goodgupiao.com)提醒您：股市有风险，投资需谨慎。