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); 嚴(yán)格紀(jì)律: 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;股票論壇 www.55188.com |
|