求助，改為文化用

作者：文華財經來源：cxh99.com 發布時間：2019年11月21日

咨詢內容： ?DIR2:=ABS(CLOSE-REF(CLOSE,10));
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);
ER2:=DIR2/VIR2;
CS2:=ER2*(0.8-2/24)+2/24;
CQ2:=CS2*CS2;
AMA2:EMA(DMA(CLOSE,CQ2),2),COLORBLUE,LINETHICK2;
AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORRED,LINETHICK2;
AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORRED,LINETHICK2;
LC:=REF(CLOSE,1);
VAR28:=SMA(MAX(CLOSE-LC,0),5.5,1)/SMA(ABS(CLOSE-LC),6,1)*100;
VARA00:=((AMOUNT)/(VOL))/(100);
VARAB00:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARAC00:=((SUM(AMOUNT,7))/(VARA00))/(100);
VARD0:=DMA(VARAB00,(VOL)/(VARAC00));
VARDE0:=((CLOSE-VARD0)/(VARD0))*(100);
VARDE0F:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARDE0JF:=MA(VARDE0,20)+STD(VARDE0,20);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AA:=SMA(VARDE0F,3,1);
SS:=(REF(BIAS18,1)>=5) AND CROSS(VARDE0JF,VARDE0) AND (AA>79);
DRAWTEXT(CROSS(84,RSI) AND CROSS(76,VAR28),H*1.01,'出',LINETHICK4,COLORGREEN;
通道中軌:MA(CLOSE,30)NODRAW;
通道上軌:通道中軌*1.12,CIRCLEDOT,COLORFF6600;
通道下軌:通道中軌*0.88,CIRCLEDOT,COLOR6C6CFF;
通道上上軌:通道中軌*1.18,COLORGREEN;
通道下下軌:通道中軌*0.82,COLORYELLOW;
紅軌道:=MA(MA(CLOSE,3),1),LINETHICK1,COLORYELLOW;
綠軌道:=MA(MA(CLOSE,3),3);
上升:=IF(紅軌道>=綠軌道,綠軌道,DRAWNULL),COLORRED,LINETHICK2;
AA1:=3*SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1)-2*SMA(SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1),3,1);
加倉:=IF(CROSS(AA1,REF(AA1+0.01,1)) AND LLV(AA1,2)=LLV(AA1,8) AND BETWEEN(AA1,20,60),1,0);
波段底:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) -
(2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1));
DRAWTEXT(CROSS(波段底,3),L*0.97,'';
A:=(3*C+L+O+H)/6;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
CB:=EMA(X,13);
買:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
DRAWTEXT(FILTER(買=1,5),LOW-0.03,'入',COLORRED;
?
?來源:程序化99
文華技術人員： 參考：
DIR2:=ABS(CLOSE-REF(CLOSE,10)); VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10); ER2:=DIR2/VIR2; CS2:=ER2*(0.8-2/24)+2/24; CQ2:=CS2*CS2; AMA2:EMA(DMA(CLOSE,CQ2),2),COLORBLUE,LINETHICK2; AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,NULL),COLORRED,LINETHICK2; AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,NULL),COLORRED,LINETHICK2; LC:=REF(CLOSE,1); RSI:SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100; VAR28:=SMA(MAX(CLOSE-LC,0),5.5,1)/SMA(ABS(CLOSE-LC),6,1)*100; AMOUNT:=AVPRICE*V; VARA00:=((AMOUNT)/(VOL))/(100); VARAB00:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7); VARAC00:=((SUM(AMOUNT,7))/(VARA00))/(100); VARD0:=DMA(VARAB00,(VOL)/(VARAC00)); VARDE0:=((CLOSE-VARD0)/(VARD0))*(100); VARDE0F:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100); VARDE0JF:=MA(VARDE0,20)+STD(VARDE0,20); BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100); AA:=SMA(VARDE0F,3,1); SS:=(REF(BIAS18,1)>=5) AND CROSS(VARDE0JF,VARDE0) AND (AA>79); DRAWTEXT(CROSS(84,RSI) AND CROSS(76,VAR28),H*1.01,'出',LINETHICK4,COLORGREEN; 通道中軌:MA(CLOSE,30),NODRAW; 通道上軌:通道中軌*1.12,CIRCLEDOT,COLORFF6600; 通道下軌:通道中軌*0.88,CIRCLEDOT,COLOR6C6CFF; 通道上上軌:通道中軌*1.18,COLORGREEN; 通道下下軌:通道中軌*0.82,COLORYELLOW; 紅軌道:=MA(MA(CLOSE,3),1),LINETHICK1,COLORYELLOW; 綠軌道:=MA(MA(CLOSE,3),3); 上升:=IF(紅軌道>=綠軌道,綠軌道,NULL),COLORRED,LINETHICK2; AA1:=3*SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1)-2*SMA(SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1),3,1); 加倉:=IF(CROSS(AA1,REF(AA1+0.01,1)) AND LLV(AA1,2)=LLV(AA1,8) AND BETWEEN(AA1,20,60),1,0); 波段底:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) - (2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1)); DRAWTEXT(CROSS(波段底,3),L*0.97,''; A:=(3*C+L+O+H)/6; X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+ 14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12) +7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+ REF(A,20))/210; MTM:=C-REF(C,1); DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6); CB:=EMA(X,13); 買:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0); DRAWTEXT(FILTER(買=1,5),LOW-0.03,'入',COLORRED;