- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2004-11-11
|
|

楼主 |
发表于 2005-7-31 11:47
|
显示全部楼层
好事做到家,我把自己常用的公式源码也弄出来了,贴在这,自己掌握一定的技术比盲目光听别人的要好的多。
金龙起舞 N(1,111,20)N1(1,111,7)N2(1,111,69)}
M3:= EMA(CLOSE,3);
M8: EMA(CLOSE,8), , COLORGREEN;
M13: EMA(M8,13), , COLORRED;
M62: eMA(M8,55), , COLORf0f000;
Var1:=EMA(M13,62);
M81: EMA(M62,81), , COLORYELLOW;
M144: EMA(Var1,144),LINETHICK2 , COLORRED;
M250: EMA(Var1,250),LINETHICK2 , COLORf00ff0,pointdot;
Var2:=(CLOSE+HIGH+LOW)/3;
Var3:=EMA(Var2,10);
Var4:=REF(Var3,1);
STICKLINE(Var3>Var4,Var3,Var4,8,0), , COLORYELLOW;
STICKLINE(Var3<Var4,Var3,Var4,8,0), , COLORBLUE;
Var5:=(REF(HIGH,1)+REF(LOW,1))/2;
Var6:=MA(CLOSE,N)+2*STD(CLOSE,N);
DRAWICON(CROSS(Var5,Var6),HIGH*1.035,1);
DRAWTEXT(CROSS(Var5,Var6),HIGH*1.04,'卖出'), , COLORGREEN;
Var7:=REF(CLOSE,1);
Var8:=SMA(MAX(CLOSE-Var7,0),N1,1)/SMA(ABS(CLOSE-Var7),N1,1)*100;
Var9:=CROSS(N2,Var8);
VarA:=FILTER(Var9,4);
DRAWICON(VarA,HIGH*1.035,1);
DRAWTEXT(VarA,HIGH*1.04,'卖出'), , COLORWHITE;
VarB:=(2*CLOSE+HIGH+LOW)/4;
VarC:=LLV(LOW,34);
VarD:=HHV(HIGH,34);
VarE:=EMA((VarB-Var1)/(Var5-Var1)*100,7);
VarF:=EMA(0.667*REF(VarE,1)+0.333*VarE,5);
DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.6 AND VOL>=1.5*MA(VOL,5) AND COUNT(VarE>=VarF,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW,'●买进'), , {00010001};
DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),13)/13>0.6 AND COUNT(VarE>VarF,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,'●买进'), , COLORYELLOW;
Var10:=MA(CLOSE,80)-MA(CLOSE,10)/3;
DRAWTEXT(IF(CLOSE<Var10 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;
bb:=hhv(hhv(low,14),60);
x:=hhv(ma((l+h+c)/3,8),60),colorff6600;
阻力1:ema(ema(bb,16)-2*std(bb,16),3),colorffffff;
阻力2:ema(ema(bb,14)+2*std(bb,14),18),colorffffff;
STICKLINE(阻力1>0 ,阻力1 ,阻力2 ,1 ,1 ),color006699;
---------------------------------------------------
这个可看压力线,目前大盘的每次反弹基本不可能有效越过兰线,一般超跌个股反弹也基本上不了此线,上了兰线阻力就是黄线,所以600990极限位可走到8。99-9。24附近(上下差0。10),大家可以过些天验证。
另两个我常用的凤舞九天和龙腾虎跃实在导不出源码,就再贴个过山车,反正在死叉往下或者红线变软弯头时不要乱买就是,我反正能帮大家的都尽量已帮了。
过山车
Var0:=SMA((C-LLV(L,30))/(HHV(H,30)-LLV(L,30)),3,1);
Var1:=SMA(Var0,3,1)*100;
★优化版★:Var1;
Var1,coloryellow,POINTDOT,LINETHICK3;
Var2:=MA(Var1,7);
Var2-3, COLORf00ff0;
Var2+3, COLORf00ff0;
IF((CROSS(Var1,Var2) AND Var1<25),Var2,50),LINETHICK2, COLOR00ff00;
STICKLINE(Var2>REF(Var2, 1), Var2, Var2, 8, 1),LINETHICK2, COLORRED;
STICKLINE(Var2<REF(Var2, 1), Var2, Var2, 8, 1),LINETHICK2, COLOR00ff00;
STICKLINE(Var2=REF(Var2, 1), Var2, Var2, 8, 1),LINETHICK3, COLORf0f000;
[ Last edited by 洗兵雨 on 2005-7-31 at 11:50 ] |
|
|