goldhill1965 2005-9-14 21:09
再来一个DIY,风险栅栏+均线+未来预测+二十四节气
DRAWGBK(CLOSE<HHV(H,0), COLORRGB(60,15,35) ,COLORRGB(50,50,90),1);
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
B1:=DMP*100/TR;
B2:=DMM*100/TR;
B3:=MA(ABS(B2-B1)/(B1+B2)*100,6);
B4:=(B3+REF(B3,6))/2;
x:=REF(CLOSE,1)<REF(CLOSE,2) and REF(VOL,1)>MAX(REF(MA(VOL,5),1),MAX(REF(MA(VOL,10),1),REF(MA(VOL,20),1))) and REF(VOL,1)>REF(MA(VOL,20),1)*1.1;
y:=IF(x,MIN(REF(LOW,1),LOW),0);
z1:REF(y,BARSLAST(x)),SHIFT5,Linethick5,colorffff;
x1:=REF(CLOSE,1)<REF(OPEN,1) and REF(VOL,1)>MAX(REF(MA(VOL,5),1),MAX(REF(MA(VOL,10),1),REF(MA(VOL,20),1))) and REF(AMOUNT,1)=REF(HHV(AMOUNT,20),1) or REF(CLOSE,1)<REF(OPEN,1) and REF(AMOUNT,1)=REF(HHV(AMOUNT,20),1);
y1:=IF(x1,REF(CLOSE,1),0);
z2:REF(y1,BARSLAST(x1)),SHIFT5,COLORred,Linethick5,colorffff;
STICKLINE(CLOSE>0 and (MAX(z1,z2)-MIN(z1,z2))/MIN(z1,z2)*100<3 and MAX(B1,B2)>MIN(B3,B4),z1,z2,5,0),COLORred;
STICKLINE(close>=open,open,close,5,1),colorred;
STICKLINE(open>close,close,open,5,0 ),color00ff00;
STICKLINE(close>=open,close,HIGH,0.5 ,1 ),colorred;
STICKLINE(close>=open,open,low,0.5 ,1 ),colorred;
STICKLINE(open>close,close,low,0.5 ,0 ),color00ff00;
STICKLINE(open>close,open,HIGH,0.5 ,0 ),color00ff00;
MA1:MA(CLOSE,5),SHIFT5;
MA2:MA(CLOSE,13),SHIFT5;
MA3:MA(CLOSE,21),SHIFT5;
MA4:MA(CLOSE,34),SHIFT5;
m1:=barslast(month<>ref(month,1));
w1:=barslast(weekday<ref(weekday,1));
wO:ref(O,w1),colorff00ff;//周開盤,
mO:ref(O,m1),colorwhite;//月開盤,
v1:=ma(c,5),color00ffff;
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA := EMA(DIFF,27);
MACD := 2*(DIFF-DEA);
r1:=cross(diff,dea);
r2:=macd>ref(macd,1);
r3:=ma(c,5)>=ma(c,10);
r4:=ma(v,5)>=ma(v,34);
r5:=v<ma(v,34)*3;
r6:=BARSLAST(r1)<3;
r7:=ma(c,10)>ma(c,30);
r8:=ma(c,30)>ref(ma(c,30),1);
买入:STICKLINE(r1 and r2 and r3 and r4 and r5 and
r6,v1,v1+0.5,8,0),colorf0f000;
drawtext(r1 and r2 and r3 and r4 and r5 and
r6,v1+1.2,'★'),colorf00ff0;
RSV:= (HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100;
LWR1:=SMA(RSV,5,1);
LWR2:=SMA(LWR1,3,1);
DRAWICON(cross(lwr1,lwr2),v1,1);
Var1:=EMA(CLOSE,3)-EMA(CLOSE,6)-(EMA(CLOSE,6)-EMA(CLOSE,12))*(-100);
Var2:=EMA(Var1,3);
Var3:=EMA(CLOSE,3)-EMA(CLOSE,6)-(EMA(CLOSE,24)-EMA(CLOSE,36))*(-100);
Var4:=EMA(Var3,9);
Var5:=CROSS(Var1,Var2);
Var6:=CROSS(Var2,Var1);
熊: STICKLINE(Var6,OPEN,CLOSE,10,0);
牛: STICKLINE(Var5,OPEN,CLOSE,10,0);
严格纪律: STICKLINE(Var5,OPEN,CLOSE-(CLOSE-OPEN)*0.33,10,0);
赚了就跑: STICKLINE(Var5,OPEN,CLOSE-(CLOSE-OPEN)*0.66,10,0);
a:=LSOLARTERM(date);
DRAWTEXT(a=1,l*0.9,'●小寒'),color00ff00;
DRAWTEXT(a=2,l*0.9,'●大寒'),color00ff00;
DRAWTEXT(a=3,l*0.9,'●立春'),color00ff00;
DRAWTEXT(a=4,l*0.9,'●雨水'),color00ff00;
DRAWTEXT(a=5,l*0.9,'●惊蛰'),color00ff00;
DRAWTEXT(a=6,l*0.9,'●春分'),color00ff00;
DRAWTEXT(a=7,l*0.9,'●清明'),color00ff00;
DRAWTEXT(a=8,l*0.9,'●谷雨'),color00ff00;
DRAWTEXT(a=9,l*0.9,'●立夏'),color00ff00;
DRAWTEXT(a=10,l*0.9,'●小满'),color00ff00;
DRAWTEXT(a=11,l*0.9,'●芒种'),color00ff00;
DRAWTEXT(a=12,l*0.9,'●夏至'),color00ff00;
DRAWTEXT(a=13,l*0.9,'●小暑'),color00ff00;
DRAWTEXT(a=14,l*0.9,'●大暑'),color00ff00;
DRAWTEXT(a=15,l*0.9,'●立秋'),color00ff00;
DRAWTEXT(a=16,l*0.9,'●处暑'),color00ff00;
DRAWTEXT(a=17,l*0.9,'●白露'),color00ff00;
DRAWTEXT(a=18,l*0.9,'●秋分'),color00ff00;
DRAWTEXT(a=19,l*0.9,'●寒露'),color00ff00;
DRAWTEXT(a=20,l*0.9,'●霜降'),color00ff00;
DRAWTEXT(a=21,l*0.9,'●立冬'),color00ff00;
DRAWTEXT(a=22,l*0.9,'●小雪'),color00ff00;
DRAWTEXT(a=23,l*0.9,'●大雪'),color00ff00;
DRAWTEXT(a=24,l*0.9,'●冬至'),color00ff00;