|
论坛版主
指标公式版主 - 帖子
- 3110
- 积分
- 15982
- 注册时间
- 2007-4-11
|
17楼
大 中
小 发表于 2008-5-3 15:31 只看该作者
引用:《五星连珠》改进版，通用源码
新近，网上出现一个《五星连珠》组合公式。感到图形单调，不适合公式爱好者使用（有兴趣的可搜索对比），为了便于大家使用，对其进行了改进，突出了庄家控盘和趋势线，现提供给喜欢的朋友。
飞狐和大智慧的：
{使用方法:
1 红柱线是中线指示
2 其余四色柱线是短线指示
3连续发出三个以上短线指示,可以短线买入.
4连续发出三个以上短线指示后,发出中线指示,可以重仓买入.}
k2:=EMA(c,5);
k3:=EMA(c,10);
k5:=EMA(c,30);
k6:=2*(k2-k5);
k7:=2*(k2-k3);
k8:=2*(k7+k6);
中线指示:STICKLINE(CROSS(k8,0),0,40,8,0),COLORRED;
p1:= ma(close,2);
p2:= ma(close,5);
diff :=ema(close,12) - ema(close,26);
dea :=ema(diff,9);
vma1:=ma (vol,2)/100000;
vma2:=ma(vol,5)/100000;
ppday:= barslast(cross(p1,p2));
vvday:= barslast(cross(vma1,vma2));
macdday:= barslast(cross(diff,dea));
A1:=BARSLAST(ref(cross(diff,dea),1));
金叉:if(ref(c,A1+1)>c and ref(diff,A1+1)<diff and cross(diff,dea),25,0),LINETHICK2,coloraaccff;
sjcjd:= if((ppday<=3 and vvday<=3 and macdday<=3)and (diff<0),1,0);
STICKLINE(sjcjd,50,60,6,0),colorwhite,linethick2;
短趋势:=((3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1)-50)*1.032+50);
Var2:=(2*CLOSE+HIGH+LOW+OPEN)/5;
Var3:=LLV(LOW,34);
Var4:=HHV(HIGH,34);
长趋势:=EMA((Var2-Var3)/(Var4-Var3)*100,13),color00ff00;
判断底:SQRT(SQRT(FLOOR(SQRT(MA(1/WINNER(CLOSE)*100,4)/10000))))*15;
Var5:=CROSS(短趋势,长趋势)AND 长趋势<25;
STICKLINE(Var5,60,70,8,0) ,colorgreen;
XX:=((((CLOSE-MA(CLOSE,34))/MA(CLOSE,34))*100)*5);
B001:=(((((CLOSE-MA(CLOSE,42))/MA(CLOSE,42)))*100)*5);
B002:=(((((CLOSE-MA(CLOSE,67))/MA(CLOSE,67)))*100)*5);
B003:=(((XX+B001)/2)-B002);
B004:=(((0-100)*(Var4-CLOSE))/(Var4- Var3));
B005:=(((0-100)*(HHV(HIGH,42) - CLOSE))/(HHV(HIGH,42) - LLV(LOW,42)));
B006:=(((0-100)*(HHV(HIGH,72) - CLOSE))/(HHV(HIGH,72) - LLV(LOW,72)));
B007:=EMA((((B004+B005)/2)-B006),6);
B008:=REF(CLOSE,1);
B009:=((((SMA(MAX((CLOSE - B008),0),19,1) / SMA(ABS((CLOSE - B008)),19,1)) * 100) - 50) * 1.25);
B010:=((((SMA(MAX((CLOSE - B008),0),34,1) / SMA(ABS((CLOSE - B008)),34,1)) * 100) - 50) * 1.25);
B011:=((((SMA(MAX((CLOSE - B008),0),72,1) / SMA(ABS((CLOSE - B008)),72,1)) * 100) - 50) * 1.25);
多头:EMA(((((B009 + B010)/2) - B011) * 5),6);
空头:=(((-1*((B007 + B003) + 多头))/3) * 1.5);
多均:EMA(多头,4);
空均:=EMA(空头,4);
C026:=WINNER(CLOSE);
W:=(DMA(C026,(VOL/CAPITAL)) * 100);
XD1:=EMA(W,6);
庄家控盘:((W-XD1)*15),COLORSTICK,LINETHICK2;
STICKLINE(cross(多头,空均),80,70,8,0),COLORYELLOW;
Varb1:=(2*CLOSE+HIGH+LOW)/4;
Varb2:=LLV(LOW,34);
Varb3:=HHV(HIGH,34);
Varb4:=ma(HIGH,8);
xx1:=EMA((Varb1-Varb2)/(Varb3-Varb2)*100,13);
yy:=EMA(0.667*REF(xx1,1)+0.333*xx1,2) , ;
STICKLINE(CROSS(xx1,20) AND yy<xx1 and Varb4>ref(Varb4,1),70,80,8,0),COLORFF0000;
逃顶:IF(FILTER(CROSS(YY,XX) AND xx>80 ,3),70,90),COLORFF0000;
DRAWTEXT(CROSS(多头,多均)AND 多均<-15,多均,'☆'),COLORRED;
DRAWTEXT(CROSS(多均,多头)AND 多均>35,多均+7,'☆'),COLOR00FF00;
分析家的（对庄家控盘进行了改动，与飞狐不完全一样）：
{使用方法:
1 红柱线是中线指示
2 其余四色柱线是短线指示
3连续发出三个以上短线指示,可以短线买入.
4连续发出三个以上短线指示后,发出中线指示,可以重仓买入.}
k2:=EMA(c,5);
k3:=EMA(c,10);
k5:=EMA(c,30);
k6:=2*(k2-k5);
k7:=2*(k2-k3);
k8:=2*(k7+k6);
中线指示:STICKLINE(CROSS(k8,0),0,40,8,0),COLORRED;
p1:=ma(close,2);
p2:=ma(close,5);
diff:=ema(close,12) - ema(close,26);
dea:=ema(diff,9);
vma1:=ma(vol,2)/100000;
vma2:=ma(vol,5)/100000;
ppday:= barslast(cross(p1,p2));
vvday:= barslast(cross(vma1,vma2));
macdday:= barslast(cross(diff,dea));
A1:=BARSLAST(ref(cross(diff,dea),1));
金叉:if(ref(c,A1+1)>c and ref(diff,A1+1)<diff and cross(diff,dea),25,0),LINETHICK2,coloraaccff;
sjcjd:= if((ppday<=3 and vvday<=3 and macdday<=3)and (diff<0),1,0);
STICKLINE(sjcjd,50,60,6,0),colorwhite,linethick2;
短趋势:=((3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1)-50)*1.032+50);
Var2:=(2*CLOSE+HIGH+LOW+OPEN)/5;
Var3:=LLV(LOW,34);
Var4:=HHV(HIGH,34);
长趋势:=EMA((Var2-Var3)/(Var4-Var3)*100,13);
判断底:SQRT(SQRT(FLOOR(SQRT(MA(1/WINNER(CLOSE)*100,4)/10000))))*15;
Var5:=CROSS(短趋势,长趋势)AND 长趋势<25;
STICKLINE(Var5,60,70,8,0) ,colorgreen;
XX:=((((CLOSE-MA(CLOSE,34))/MA(CLOSE,34))*100)*5);
B001:=(((((CLOSE-MA(CLOSE,42))/MA(CLOSE,42)))*100)*5);
B002:=(((((CLOSE-MA(CLOSE,67))/MA(CLOSE,67)))*100)*5);
B003:=(((XX+B001)/2)-B002);
B004:=(((0-100)*(Var4-CLOSE))/(Var4- Var3));
B005:=(((0-100)*(HHV(HIGH,42) - CLOSE))/(HHV(HIGH,42) - LLV(LOW,42)));
B006:=(((0-100)*(HHV(HIGH,72) - CLOSE))/(HHV(HIGH,72) - LLV(LOW,72)));
B007:=EMA((((B004+B005)/2)-B006),6);
B008:=REF(CLOSE,1);
B009:=((((SMA(MAX((CLOSE - B008),0),19,1) / SMA(ABS((CLOSE - B008)),19,1)) * 100) - 50) * 1.25);
B010:=((((SMA(MAX((CLOSE - B008),0),34,1) / SMA(ABS((CLOSE - B008)),34,1)) * 100) - 50) * 1.25);
B011:=((((SMA(MAX((CLOSE - B008),0),72,1) / SMA(ABS((CLOSE - B008)),72,1)) * 100) - 50) * 1.25);
多头:EMA(((((B009 + B010)/2) - B011) * 5),6);
空头:=(((-1*((B007 + B003) + 多头))/3) * 1.5);
多均:EMA(多头,4);
空均:=EMA(空头,4);
Va1:=EMA(EMA(CLOSE,13),13);
庄家控盘:(Va1-REF(Va1,1))/REF(Va1,1)*3000,POINTDOT;
STICKLINE(庄家控盘<0,庄家控盘,0,4,0),colorffff00;
STICKLINE(庄家控盘>0,庄家控盘,0,4,0),colorred;
STICKLINE(cross(多头,空均),80,70,8,0),COLORYELLOW;
Varb1:=(2*CLOSE+HIGH+LOW)/4;
Varb2:=LLV(LOW,34);
Varb3:=HHV(HIGH,34);
Varb4:=ma(HIGH,8);
xx1:=EMA((Varb1-Varb2)/(Varb3-Varb2)*100,13);
yy:=EMA(0.667*REF(xx1,1)+0.333*xx1,2);
STICKLINE(CROSS(xx1,20) AND yy<xx1 and Varb4>ref(Varb4,1),70,80,8,0),COLORFF0000;
逃顶:IF(FILTER(CROSS(YY,XX) AND xx>80 ,3),70,90),COLORFF0000;
DRAWTEXT(CROSS(多头,多均)AND 多均<-15,多均,'☆'),COLORRED;
DRAWTEXT(CROSS(多均,多头)AND 多均>35,多均+7,'☆'),COLOR00FF00; 附件: 您所在的用户组无法下载或查看附件
骤雨过，琼珠乱撒，打遍新荷。
人生百年有几，念良辰美景，休放虚过。
穷通前定，何用苦张罗。
命友邀宾玩赏，对芳尊浅酌低歌。
且酩酊，任他两轮日月，来往如梭。
|
