|
回覆: [公式]
引用:
最初由 a4554539 發表
長短趨勢砸鍋莫錯沒未來
3q3q3q !謝謝提供 但公式有兩處無法通過 請檢測指導 3q!
/////////////////////////////////////////////////////////////////////
RSV:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,7)-LLV(LOW,7))*100;
短K:SMA(RSV,3,1),colorwhite;
短D:SMA(短K,3,1),coloryellow;
RSV1:=(CLOSE-LLV(LOW,38))/(HHV(HIGH,38)-LLV(LOW,38))*100;
長K:SMA(RSV1,3,1),colorred;
長D:SMA(長K,10,1),COLOR66CC33;
{stickline(短K>短D,短K,短D,3,0),coloryellow;}
{STICKLINE(短K<=短D,短K,短D,3,0),colorgreen;}
{STICKLINE(長K>長D,長K,長D,3,0),colorred;}
{STICKLINE(長K<=長D,長K,長D,3,0),COLOR669933;}
FILLRGN(長K>長D,長K,長D),colorred;
FILLRGN(長K<=長D,長K,長D),COLOR8900;
FILLRGN(短K>短D,短K,短D),COLORMAGENTA;
FILLRGN(短K<=短D,短K,短D),colorgreen;
VAR2:=TROUGHBARS(3,15,1)<10;
VAR3:=PEAKBARS(3,15,1)<10;
VAR4:=IF(VAR2=1,50,0);
VAR5:=IF(VAR3=1,50,0);
底部:=IF(VAR4=50,10,0);
買入:IF(底部=10 and REF(底部,1)=10 and REF(底部,2)=0,100,0),COLOR0000cc,linethick2;
VarF:=前M個波谷位置(3,15,1)<4;
畫柱線(信號過濾(VarF=1,5),100,0,4,0)colorblue;
畫圖示(信號過濾(VarF=1,5),100,1);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=sMA(RSV,3,1),colorwhite; D:=SMA(K,3,1),coloryellow;
短1:3*k-2*d; 短2:ref(短1,1);
VARC:=(ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1) <=REF(ZIG(3,5),2))AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3));
中短線:=VARC=1;
n:=5;m:=5;
BIAS :=(CLOSE-MA(CLOSE,N))/MA(CLOSE,N)*100;
BIASMA :=MA(BIAS,M);
乖離率錢龍版:=(CROSS(BIAS,BIASMA));
VAR2A:=TROUGHBARS(4,15,1)<10; VAR4A:=IF(VAR2A=1,50,0);
底部:=IF(VAR4A=50,10,0);
買入:=IF(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,50,0);
拚死進:=(中短線 AND 乖離率錢龍版 AND 買入);
STICKLINE(拚死進,100,0,0,0),COLORYELLOW;
DRAWTEXT(拚死進,100,'拚死進'),COLORRED;
{ N 5 0 5 M 5 0 5 }
VARC:=(ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1) <=REF(ZIG(3,5),2))AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3));
中短線:=VARC=1;
BIAS :=(CLOSE-MA(CLOSE,N))/MA(CLOSE,N)*100;
BIASMA :=MA(BIAS,M);
乖離率錢龍版:=(CROSS(BIAS,BIASMA));
VAR2A:=TROUGHBARS(3,15,1)<10;
VAR4A:=IF(VAR2A=1,50,0);
底部:=IF(VAR4A=50,10,0);
買入:=IF(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,50,0);
拚死進:=(中短線 AND 乖離率錢龍版 AND 買入);
STICKLINE(拚死進,100,0,2,0),COLORYELLOW;
DRAWTEXT(拚死進,100,'拚死進'),COLORRED;
VARC:=(ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG (3,5),2)<=REF(ZIG(3,5),3));
VARD:=(ZIG(3,5)=REF(ZIG(3,5),2)) AND (REF(ZIG (3,5),2)>=REF(ZIG(3,5),3)); STICKLINE((VARC=1),(-20),0,4,0),Color0000FF;
DRAWTEXT((VARC=1),(-24),'買'),Color0000FF;
STICKLINE((VARD=1),30,0,4,0),Color00FF00;
DRAWTEXT((VARD=1),40,'賣'),Color00FF00;
VarE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VarF:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA ((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
Var10:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA ((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
Var11:=VarFREF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(Var11 AND COUNT(Var11,30)=1,25,'大資金活動'),linethick1,COLORff00ff;
STICKLINE(Var11 AND COUNT(Var11,30)=1,1,20,5,0),colorff00ff;
Var12:=(HIGH+LOW+CLOSE)/3;
Var13:=(Var12-MA(Var12,14))/(0.015*AVEDEV(Var12,14));
Var14:=(Var12-MA(Var12,70))/(0.015*AVEDEV(Var12,70));
Var15:=IF(Var13>=150 AND Var13<200 AND Var14>=150 AND Var14<200,10,0);
Var16:=IF(Var13<=-150 AND Var13>-200 AND Var14<=-150 AND Var14>-200,-10,Var15);
Var17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
Var18:=100-ABS(Var17); Var19:=IF(Var18<90,Var18,100);
Var1A:=IF(VarE>0,VarE,0);
Var1B:=IF(Var14>=200 AND Var13>=150,15,IF(Var14<=-200 AND Var13<=-150,-15,Var16))+60;
Var1C:=Var1A>48 AND Var1B>60 AND Var19<100;
DRAWTEXT(Var1C AND COUNT(Var1C,30)=1,20,'大筆出貨'),linethick1,COLORffcc66;
STICKLINE(Var1C AND COUNT(Var1C,30)=1,0,20,5,0),colorffcc66;
Var2:=REF(LOW,1); Var3:=SMA(ABS(LOW-Var2),3,1)/SMA(MAX(LOW-Var2,0),3,1)*100;
Var4:=EMA(IF(CLOSE*1.2,Var3*10,Var3/10),3);
Var5:=LLV(LOW,38);
Var6:=HHV(Var4,38);
Var7:=IF(LLV(LOW,90),1,0);
Var8:=EMA(IF(LOW<=Var5,(Var4+Var6*2)/2,0),3)/618*Var7;
趨勢線:(CLOSE-MA(CLOSE,40))/MA(CLOSE,40)*100 , COLORaabbdd;
aa:=((REF(趨勢線,1)=REF(趨勢線, 1)) or (REF(CROSS(-30,趨勢線),1) and CROSS(趨勢線,-30)) or 趨勢線=-30;
DRAWTEXT(aa,70,'砸鍋賣田買'),coloryellow;
砸鍋賣田買:IF(aa,70,0),coloryellow;
bb:=((REF(趨勢線,1)-25) and 趨勢線>=REF(趨勢線,1)) or (REF(CROSS(-20,趨勢線),1) and CROSS(趨勢線,-20));
cc:=((REF(趨勢線,1)-30) and 趨勢線>=REF(趨勢線,1)) or (REF(CROSS(-25,趨勢線),1) and CROSS(趨勢線,-25));
DRAWTEXT(cc,80,'莫錯失機會'),color00ff00; 莫錯失機會:IF(cc,80,0),color00ff00;
//////////////////////////////////////////////////////////////////////
但公式有兩處無法通過 請檢測指導 3q!
1)
Var11:=VarFREF(VOL,1) AND CLOSE>REF(CLOSE,1);
2)
aa:=((REF(趨勢線,1)=REF(趨勢線, 1)) or (REF(CROSS(-30,趨勢線),1) and CROSS(趨勢線,-30)) or 趨勢線=-30;
謝謝!
|
附件: 
2008-01-12 13:35
