請老師幫助改寫成文華，謝謝；
作者：文華財經 來源：cxh99.com 發布時間：2021年01月09日
-
咨詢內容：
?VAR22:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;獲利盤: WINNER(CLOSE)*100;VAR33:=SMA(VAR22,3,1);VAR44:=SMA(VAR33,9,1);VAR55:=3*VAR33-2*VAR44;VAR66:=VOL;量比: VOL/MA(VOL,5);漲跌: (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;角度: (CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;換手: VOL/CAPITAL*100;VAR77:=SUM(換手,30);VAR88:=LLV(INDEXL,5);VAR99:=HHV(INDEXH,5);VARAA:=EMA((INDEXC-VAR88)/(VAR99-VAR88)*100,4);VARBB:=MA(EMA(0.667*REF(VARAA,1)+0.333*VARAA,2),9);VARCC:=MA(VARBB,50);VARDD:=EMA(獲利盤,4);本盤億股: CAPITAL/1000000,;V5: MA(VOL,5)*2;VARE:=MA(V5,3);V34: MA(VOL,18)*2;VARF:=(漲跌>VARDD AND 角度<-30 AND 漲跌>3);CROSS(VARBB,VARCC) AND VARCC<29;CROSS(VARCC,VARBB) AND VARCC>58;STICKLINE(VOL AND VAR33>VAR44,0,VOL,3,1),COLORRED;STICKLINE(VOL AND VAR33<=VAR44,0,VOL,3,1),COLORCYAN;DRAWTEXT(CROSS(VARBB,VARCC) AND 角度<-18 AND VARCC<29,VOL*1.2,' ',COLORYELLOW;W:DRAWTEXT(CROSS(VARCC,VARBB) AND VARCC>58,VOL*1.2,'',COLORWHITE;DRAWTEXT(CROSS(VARE,V5) AND 角度>22,V5,'lt;----';VAR2:=CLOSE-REF(CLOSE,1);VAR3:=IF(CLOSE-REF(CLOSE,1)>=0,VAR2,0);VAR4:=REF(CLOSE,1)-CLOSE;VAR5:=IF(CLOSE-REF(CLOSE,1)<=0,VAR4,0);VAR6:=SUM(VAR3,16)/SUM(VAR5,16);VAR7:=100-100/(1+VAR6);VAR8:=EMA(VAR7,16);VAR9:=EMA(VAR8,8);VARA:=EMA(VAR8,45);MO:=(VAR8-VARA);ML:=(VAR9-VARA);VAR1A:=EMA(CLOSE,32);
量能:=V/REF(V,1);漲幅:=REF(C,1)/REF(C,8);振幅:=HHV(REF(C,1),12)/LLV(REF(C,1),12);BUYPOINT:量比>=2.70 AND C>REF(C,1) AND COUNT(REF(C/O>=1.095,1),8)<1AND 振幅<=1.10 AND C/O>=1 AND 漲幅>=0.9 AND COUNT(REF(C/O>=1.04,1),8)<1AND COUNT(REF(C/O<=0.95,1),8)<1,LINETHICK2;
請老師幫助改寫成文華日內模型早上9.00分至14.55分，紅色柱狀買開，綠色柱狀賣出；謝謝；
?
?來源:程序化99
-
文華技術人員：
參考：
?VAR22:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
獲利盤: WINNER(CLOSE)*100;
VAR33:=SMA(VAR22,3,1);
VAR44:=SMA(VAR33,9,1);
VAR55:=3*VAR33-2*VAR44;
VAR66:=VOL;
量比: VOL/MA(VOL,5);
漲跌: (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
角度: (CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;
CAPITAL:=GETPRICE1('流通股本');
換手:=VOL/CAPITAL*100;
VAR77:=SUM(換手,30);
INDEXC:="999001$CLOSE";
INDEXL:="999001$LOW";
INDEXH:="999001$HIGH";?
INDEXO:="999001$OPEN";?
VAR88:=LLV(INDEXL,5);
VAR99:=HHV(INDEXH,5);
VARAA:=EMA((INDEXC-VAR88)/(VAR99-VAR88)*100,4);
VARBB:=MA(EMA(0.667*REF(VARAA,1)+0.333*VARAA,2),9);
VARCC:=MA(VARBB,50);
VARDD:=EMA(獲利盤,4);
本盤億股:=CAPITAL/10000;
V5: MA(VOL,5)*2;
VARE:=MA(V5,3);
V34: MA(VOL,18)*2;
VARF:=(漲跌>VARDD AND 角度<-30 AND 漲跌>3);
STICKLINE(VAR33>VAR44,0,VOL,COLORRED,0);
STICKLINE(VAR33<=VAR44,0,VOL,COLORCYAN,1);
DRAWTEXT(CROSS(VAR33>VAR44,0.5),VOL,'買 '),COLORGREEN;
DRAWTEXT(CROSS(VAR33<=VAR44,0.5),VOL,'賣'),COLORMAGENTA;
DRAWTEXT(CROSS(VARBB,VARCC) AND 角度<-18 AND VARCC<29,VOL*1.2,'買 '),COLORYELLOW;
DRAWTEXT(CROSS(VARCC,VARBB) AND VARCC>58,VOL*1.2,'賣'),COLORWHITE;
DRAWTEXT(CROSS(VARE,V5) AND 角度>22,V5,'<----');
量能:=V/REF(V,1);
漲幅:=REF(C,1)/REF(C,8);
振幅:=HHV(REF(C,1),12)/LLV(REF(C,1),12);
BUYPOINT:=量比>=2.70 AND C>REF(C,1) AND COUNT(REF(C/O>=1.095,1),8)<1
AND 振幅<=1.10 AND C/O>=1 AND 漲幅>=0.9 AND COUNT(REF(C/O>=1.04,1),8)<1
AND COUNT(REF(C/O<=0.95,1),8)<1,LINETHICK2;
?
?來源: m.kzuj.com.cn
-
文華客服：
?因為模型中含有GETDEALSSUM、GETPRICE、GETPRICE1或GETSTOCKPRICE函數，不能顯示歷史信號
請老師改寫成過濾模型，并加入日內交易
?
-
網友回復：
?參考：
VAR22:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
獲利盤: WINNER(CLOSE)*100;
VAR33:=SMA(VAR22,3,1);
VAR44:=SMA(VAR33,9,1);
VAR55:=3*VAR33-2*VAR44;
VAR66:=VOL;
量比: VOL/MA(VOL,5);
漲跌: (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
角度: (CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;
INDEXC:="999001$CLOSE";
INDEXL:="999001$LOW";
INDEXH:="999001$HIGH";?
INDEXO:="999001$OPEN";?
VAR88:=LLV(INDEXL,5);
VAR99:=HHV(INDEXH,5);
VARAA:=EMA((INDEXC-VAR88)/(VAR99-VAR88)*100,4);
VARBB:=MA(EMA(0.667*REF(VARAA,1)+0.333*VARAA,2),9);
VARCC:=MA(VARBB,50);
VARDD:=EMA(獲利盤,4);
V5: MA(VOL,5)*2;
VARE:=MA(V5,3);
V34: MA(VOL,18)*2;
VARF:=(漲跌>VARDD AND 角度<-30 AND 漲跌>3);
STICKLINE(VAR33>VAR44,0,VOL,COLORRED,0);
STICKLINE(VAR33<=VAR44,0,VOL,COLORCYAN,1);
CROSS(VAR33,VAR44),BPK;
CROSSDOWN(VAR33,VAR44),SPK;
ISLASTKLINE,CLOSEOUT;
AUTOFILTER;
?
-
網友回復：
?感謝老師，還有一個問題，沒辦法應用到自定義周期，請老師幫助改造；謝謝
打印本文
關閉窗口