幫改成文華！　[文華財經]

?

?來源:程序化99

?

?來源: www.tumamayizhan.com

?不同軟件函數機制不同，改寫效果可能有差異，請理解：

?

WR:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;//收盤價與N周期最低值做差，N周期最高值與N周期最低值做差，兩差之間做比值。
K:=SMA(RSV,3,1);//RSV的移動平均值
D:=SMA(K,3,1);//K的移動平均值
J:=3*K-2*D;
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
LC := REF(CLOSE,1);//前一周期收盤價
RSI1:SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;//當根K線收盤價與前一周期收盤價做差，在該差值與0之間取最大值，做N1周期移動平均。收盤價與前一周期收盤價做差值，取該差值的N1周期移動平均值，兩平均值之間做比值。
RSI2:SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;
TYP:=(CLOSE+HIGH+LOW)/3;//求最新價，最高價和最低價三者的簡單平均
CCI:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
BIAS1:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
BIAS2:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
BIAS3:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,11)*100;
老二:=IF(BIAS2<=-10,1,0);
DIF:=EMA(CLOSE,12)-EMA(CLOSE,150);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2;
爆發:=MACD<0 AND MACD>REF(MACD ,1) AND REF(MACD ,1)<REF(MACD ,2)
AND REF(MACD ,2)<REF(MACD ,3)
AND REF(MACD ,3)<REF(MACD ,4);
VAR1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR2:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
VAR3:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR5:=(VAR2+2*VAR3+3*VAR4)/6;
VAR6:=MA(VAR5,3);
大底:=VAR6<=-10;
VAR11:=CLOSE/MA(CLOSE,20)*100<80;
VAR12:=CLOSE/MA(CLOSE,40)*100<78;
VAR13:=CLOSE/MA(CLOSE,60)*100<72;
VAR14:=HIGH>LOW*1.051;
VAR15:=VAR14 AND COUNT(VAR14,5)>1;
中底:=VAR15 AND (VAR11 OR VAR12 OR VAR13);?
趨勢線:=(CLOSE-MA(CLOSE,40))/MA(CLOSE,40)*100 ;
AA:=((REF(趨勢線,1)<REF(趨勢線,2) AND 趨勢線<-30) AND 趨勢線>=REF(趨勢線,1)) OR (REF(CROSS(-30,趨勢線),1) AND CROSS(趨勢線,-30)) OR 趨勢線=-30;
砸盤:=IF(AA,500,-30);
BB:=((REF(趨勢線,1)<REF(趨勢線,2) AND 趨勢線<-20 AND 趨勢線>-25) AND 趨勢線>=REF(趨勢線,1)) OR (REF(CROSS(-20,趨勢線),1) AND CROSS(趨勢線,-20));
XG:=BB;

操盤:=EMA((CLOSE-MA(CLOSE,3))/MA(CLOSE,3),2);
跟風:=EMA((CLOSE-MA(CLOSE,20))/MA(CLOSE,20),7);
見到曙光:=CROSS(操盤,跟風) AND 操盤 <0 AND 跟風 <0;

VARO5:=LLV(LOW,27);
VARO6:=HHV(HIGH,34);
VARO7:=EMA((CLOSE-VARO5)/(VARO6-VARO5)*4,4)*25;
建倉區:=VARO7<10;
TJ:=COUNT(建倉區,3);
VAR81:=4*SMA((CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100,5,1)-
3*SMA(SMA((CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100,5,1),3.2,1);
上升:=CROSS(VAR1,8);
準備上:=(建倉區 OR REF(建倉區,0.5)) AND 上升;

出手:=-FILTER((CROSS((EMA(CLOSE,2)-EMA(CLOSE,10)),
EMA((EMA(CLOSE,2)-EMA(CLOSE,10)),2))
AND EMA((EMA(CLOSE,2)-EMA(CLOSE,10)),2)
<0 AND CROSS(C,MA(C,20))),90);
D1:=WR<5;
D2:=CROSS(K,D) AND K<50;
D3:=CROSS(DIFF,DEA);
D4:=CCI>-100 AND CCI<-90;
D5:=CROSS(RSI1,RSI2) AND RSI1<50;
S1:=20;
M2:=40;
L1:=60;
AAA:=CLOSE>OPEN;
BBB:=AAA&&CLOSE>MA(CLOSE,S1)&&CLOSE>MA(CLOSE,M2)&&CLOSE>MA(CLOSE,L1);
CCC:=BBB&&OPEN<MA(CLOSE,M2)&&OPEN<MA(CLOSE,L1);
XG1:=CCC&&(CLOSE-OPEN)>0.0618*CLOSE;
AA1:=D1 AND D2;
AA2:=D2 AND D3;
AA3:=D1 AND D3;
XG2:=AA1 OR AA2 OR AA3;
強勢:=IF(XG1 AND XG2,1,0);

WW:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
MM:=DMA(CLOSE,WW);
通道4:=(1-7/100)*MM;
VAR84:=EMA(CLOSE,9);
LDN:=EMA(VAR84*0.86,5);
TTRR:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),
ABS(REF(CLOSE,1)-LOW)),14);
HD:=HIGH-REF(HIGH,1);
LD:=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0&&HD>LD,HD,0),14);
DMM:=EMA(IF(LD>0&&LD>HD,LD,0),14);
PDI:=DMP*100/TTRR;
MDI:=DMM*100/TTRR;
ADX:=EMA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
買底:=C<=通道4 AND C<=LDN AND CCI<-100
AND ADX>=60 AND MDI >= PDI AND CLOSE>OPEN;
VAR82:=LLV(LOW,10);
VAR83:=HHV(HIGH,25);
能量:=EMA((CLOSE-VAR82)/(VAR83-VAR82)*4,4);
底:=0.2;
關注:=0.5;
紅色箭頭:=FILTER(CROSS(能量,關注),20);
買入:=FILTER(CROSS(能量,底),20);
XXG:=買底 OR 紅色箭頭;
A:=SMA((CLOSE-LLV(LOW,14))/(HHV(HIGH,14)-LLV(LOW,14))*100,4,1);
B:=SMA((CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100,4,1);
MB:=SMA((B-50)*2,3,1)+SMA((A-50)*2,3,1)/2;

狗頭金:=MB<-90;

?

綜合: 狗頭金 AND COUNT(XG,5) AND COUNT(中底,3) AND NOT(COUNT(XXG,1)) AND NOT(COUNT(見到曙光,3)) AND COUNT(老二,3) AND 大底 AND 爆發;

?

?