|
編程思路破譯 CV賦值:收盤價 BBIBOLL賦值:(CV的3日簡單移動平均+CV的6日簡單移動平均+CV的12日簡單移動平均+CV的24日簡單移動平均)/4 UPR賦值:BBIBOLL+6*BBIBOLL的11日估算標準差 DWN賦值:BBIBOLL-6*BBIBOLL的11日估算標準差 QJJ賦值:成交量(手)/((最高價-最低價)*2-收盤價-開盤價的絕對值) XVL賦值:(如果收陽線,返回QJJ*(最高價-最低價),否則返回如果收陰線,返回QJJ*(最高價-開盤價+收盤價-最低價),否則返回成交量(手)/2+如果收陽線,返回0-QJJ*(最高價-收盤價+開盤價-最低價),否則返回如果收陰線,返回0-QJJ*(最高價-最低價),否則返回0-成交量(手)/2) HSL賦值:(XVL/20)/1.15 攻擊賦值:((HSL*0.55+(1日前的HSL*0.33))+(2日前的HSL*0.22)) LLJX賦值:攻擊的3日指數移動平均 0,POINTDOT,畫白色 B1賦值:LLJX的1日累和 B2賦值:LLJX的2日累和 B3賦值:LLJX的3日累和 B4賦值:LLJX的4日累和 B5賦值:LLJX的5日累和 B6賦值:LLJX的6日累和 B7賦值:LLJX的7日累和 B8賦值:LLJX的8日累和 B9賦值:LLJX的9日累和 B10賦值:LLJX的10日累和 如果B1<1日前的B1,返回B1,否則返回無效數,畫綠色,線寬為2 如果B1>1日前的B1,返回B1,否則返回無效數,畫紅色,線寬為2 如果B2<1日前的B2,返回B2,否則返回無效數,畫綠色 如果B2>1日前的B2,返回B2,否則返回無效數,畫紅色 如果B3<1日前的B3,返回B3,否則返回無效數,畫綠色 如果B3>1日前的B3,返回B3,否則返回無效數,畫紅色 如果B4<1日前的B4,返回B4,否則返回無效數,畫綠色 如果B4>1日前的B4,返回B4,否則返回無效數,畫紅色 如果B5<1日前的B5,返回B5,否則返回無效數,畫綠色 如果B5>1日前的B5,返回B5,否則返回無效數,畫紅色 如果B6<1日前的B6,返回B6,否則返回無效數,畫綠色 如果B6>1日前的B6,返回B6,否則返回無效數,畫紅色 如果B7<1日前的B7,返回B7,否則返回無效數,畫綠色 如果B7>1日前的B7,返回B7,否則返回無效數,畫紅色 如果B8<1日前的B8,返回B8,否則返回無效數,畫綠色 如果B8>1日前的B8,返回B8,否則返回無效數,畫紅色 如果B9<1日前的B9,返回B9,否則返回無效數,畫綠色 如果B9>1日前的B9,返回B9,否則返回無效數,畫紅色 如果B10<1日前的B10,返回B10,否則返回無效數,畫綠色 如果B10>1日前的B10,返回B10,否則返回無效數,畫紅色,線寬為2 AA賦值:成交量(手)>1日前的成交量(手)*1.9 輸出選股:((B1>1日前的B1 AND (B2>1日前的B2 AND (B3>1日前的B3 AND (B4>1日前的B4 AND (B5>1日前的B5 AND (B6>1日前的B6 AND(B7>1日前的B7 AND (B8>1日前的B8 AND (B9>1日前的B9 AND (B10>1日前的B10 AND (AA>0)))))))))))),線寬為0 當滿足條件選股時,在2位置畫1號圖標 進莊條件賦值:B1>1日前的B1 AND B2>1日前的B2 AND B3>1日前的B3 AND B4>1日前的B4 AND B5>1日前的B5 AND B6>1日前的B6 AND B7>1日前的B7 AND B8>1日前的B8 AND B9>1日前的B9 AND B10>1日前的B10 當滿足條件進莊條件時,在B1和B10位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,畫黃色 輸出進莊選股:進莊條件 AND AA<=0,線寬為0 當滿足條件進莊選股時,在0位置書寫文字,畫青色 程序源碼 CV:=CLOSE; BBIBOLL:=(MA(CV,3)+MA(CV,6)+MA(CV,12)+MA(CV,24))/4; UPR:=BBIBOLL+6*STD(BBIBOLL,11); DWN:=BBIBOLL-6*STD(BBIBOLL,11); QJJ:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN)); XVL:=(IF(CLOSE>OPEN,QJJ*(HIGH-LOW),IF(CLOSE<OPEN,QJJ*(HIGH-OPEN+CLOSE-LOW),VOL/2))+IF(CLOSE>OPEN,0-QJJ*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,0-QJJ*(HIGH-LOW),0-VOL/2))); HSL:=(XVL/20)/1.15; 攻擊:=((HSL*0.55+(REF(HSL,1)*0.33))+(REF(HSL,2)*0.22)); LLJX:=EMA(攻擊,3); 0,POINTDOT,COLORWHITE; B1:=SUM(LLJX,1); B2:=SUM(LLJX,2); B3:=SUM(LLJX,3); B4:=SUM(LLJX,4); B5:=SUM(LLJX,5); B6:=SUM(LLJX,6); B7:=SUM(LLJX,7); B8:=SUM(LLJX,8); B9:=SUM(LLJX,9); B10:=SUM(LLJX,10); IF(B1<REF(B1,1),B1,DRAWNULL),COLORGREEN,LINETHICK2; IF(B1>REF(B1,1),B1,DRAWNULL),COLORRED,LINETHICK2; IF(B2<REF(B2,1),B2,DRAWNULL),COLORGREEN; IF(B2>REF(B2,1),B2,DRAWNULL),COLORRED; IF(B3<REF(B3,1),B3,DRAWNULL),COLORGREEN; IF(B3>REF(B3,1),B3,DRAWNULL),COLORRED; IF(B4<REF(B4,1),B4,DRAWNULL),COLORGREEN; IF(B4>REF(B4,1),B4,DRAWNULL),COLORRED; IF(B5<REF(B5,1),B5,DRAWNULL),COLORGREEN; IF(B5>REF(B5,1),B5,DRAWNULL),COLORRED; IF(B6<REF(B6,1),B6,DRAWNULL),COLORGREEN; IF(B6>REF(B6,1),B6,DRAWNULL),COLORRED; IF(B7<REF(B7,1),B7,DRAWNULL),COLORGREEN; IF(B7>REF(B7,1),B7,DRAWNULL),COLORRED; IF(B8<REF(B8,1),B8,DRAWNULL),COLORGREEN; IF(B8>REF(B8,1),B8,DRAWNULL),COLORRED; IF(B9<REF(B9,1),B9,DRAWNULL),COLORGREEN; IF(B9>REF(B9,1),B9,DRAWNULL),COLORRED; IF(B10<REF(B10,1),B10,DRAWNULL),COLORGREEN; IF(B10>REF(B10,1),B10,DRAWNULL),COLORRED,LINETHICK2; AA:=VOL>REF(V,1)*1.9; 選股:((B1>REF(B1,1) AND (B2>REF(B2,1) AND (B3>REF(B3,1) AND (B4>REF(B4,1) AND (B5>REF(B5,1) AND (B6>REF(B6,1) AND(B7>REF(B7,1) AND (B8>REF(B8,1) AND (B9>REF(B9,1) AND (B10>REF(B10,1) AND (AA>0)))))))))))),LINETHICK0; DRAWICON(選股,2,1); 進莊條件:=B1>REF(B1,1) AND B2>REF(B2,1) AND B3>REF(B3,1) AND B4>REF(B4,1) AND B5>REF(B5,1) AND B6>REF(B6,1) AND B7>REF(B7,1) AND B8>REF(B8,1) AND B9>REF(B9,1) AND B10>REF(B10,1); STICKLINE(進莊條件,B1,B10,0.5,0),COLORYELLOW; 進莊選股:進莊條件 AND AA<=0,LINETHICK0; DRAWTEXT(進莊選股,0,'←進莊'),COLORCYAN; 注： 館內各種公式為學習編程而保存，實戰使用前一定要看其中是否有未來函數并自己親自測試成功率，決不能依據公式名稱的描述和形容去投資，據此入市造成投資損失由投資者自己承擔。 發文不易，如獲益，歡迎贊賞，贊賞必復！ |
|
|
