大陸指標原碼如下
鄭重說明：指標未用於實戰，有些有用到未來函數；請自行根據需要斟酌修改成自己適合的
有些指標看似很準；大部分有用到未來函數；敢用你可以把它當作預警，不敢用就請捨棄 特此說明

買賣+明日預測主圖
DRAWGBK((CLOSE > 0),COLORRGB(0,0,0),COLORRGB(0,0,90),1);
DRAWBKBMP(CLOSE>0,'MOOA');
jj:=(HIGH+LOW+CLOSE+OPEN)/4;
Var1:=MA(CLOSE,6);
Var2:=MA(CLOSE,14);
Var3:=MA(CLOSE,21);
Var4:=MA(CLOSE,34);
h1a:=(var1+var2+var3+var4)/4;
{STICKLINE(C>MA(h1a,13),MA(h1a,13),MA(h1a,13),8,0),colorYELLOW,linethick5;}
{IF C>MA(h1a,13) THEN MA(h1a,13),colorred ELSE MA(h1a,13),colorblue;}
STICKLINE(CLOSE>0,jj,jj,7,0),colorgreen;
{STICKLINE(C<MA(h1a,13),MA(h1a,13),MA(h1a,13),3,0),color005500,linethick3;}
DRAWBKBMP(CLOSE>=OPEN or CLOSE<OPEN,'mybmp111');
Var1:=MA(CLOSE,6);
Var2:=MA(CLOSE,14);
Var3:=MA(CLOSE,21);
Var4:=MA(CLOSE,34);
h1a:=(var1+var2+var3+var4)/4;
{STICKLINE(C>MA(h1a,13),MA(h1a,13),MA(h1a,13),8,0),colorYELLOW,linethick5;}
{IF C>MA(h1a,13) THEN MA(h1a,13),colorred ELSE MA(h1a,13),colorblue;}
STICKLINE(CLOSE>=OPEN,HIGH,LOW,1,0),COLOR0000FF;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),COLOR0000FF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,1),COLOR0000FF;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,1,0),COLORFF0000;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),COLORFFFF00;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,8,0),COLORcyan;
VAR3:=IF((CLOSE>REF(CLOSE,1)),88,0);
VAR4:=IF(((CLOSE)/(REF(CLOSE,1))>1.10) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3>0),91,0);
DRAWTEXT((VAR4>90),(LOW)*(0.94999998),'★加倉'),Color00FFFF;
DRAWTEXT((VAR4>90),(LOW)*(0.99000001),'★'),Color00FFFF;
S:=('股票代碼：' + STKLABEL);
DRAWTEXT((SYSPARAM(2) = BARPOS),CLOSE,S),ALIGN4,colorCCFFFF;
//DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH, (((((((((((((((((((((((((((((((((('所屬板 塊:' + BLKNAME) + '\n') + '發行價') + NUMTOSTR(FINANCE (51),2)) + '元') + ' 發行量') + NUMTOSTR(FINANCE(52),2)) + '萬股') + '\n') + '總股本') + NUMTOSTR(FINANCE(1),0)) + '萬 股') + ' 流通A股') + NUMTOSTR(FINANCE(7),0)) + '萬股') + ' 淨資產') + NUMTOSTR(FINANCE(35),2)) + '億元') + ' 每股收 益') + NUMTOSTR(FINANCE(33),2)) + '元') + ' 每股未分配') + NUMTOSTR(FINANCE(32),2)) + '元') + '\n') + '市盈率') + NUMTOSTR(DYNAINFO(39),2)) + '%') + ' 投資收益') + NUMTOSTR(FINANCE(24),2)) + '元') + ' 股東總數') + NUMTOSTR(FINANCE(50),0)) + '戶')),ALIGN4,COLORWHITE;
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=年份;
fm:=月份;
fd:=日期;
wd:=星期;
p:=系統參數(1);
str1:='
今天是：'+numtostr(fy[p],0)+'年'+numtostr(fm [p],0)+'月'
+數字轉化為字符串(fd[p],0)+'日, '+wday[wd[p]+1];
DRAWTEXT(BARPOS=SYSPARAM(2),h,str1),ALIGN1,coloryellow;

input:P1(5,1,30),P2(10,1,50),P3(20,1,100),P4(30,1,100),P5(60,1,150),P6(120,1,300),P7(240,1,500),P8(340,1,1000),N(4,1,8),K線合併(1,1,10);
WX:=MA(CLOSE,0);
M1:MA(CLOSE,P1);
M2:(MA(CLOSE,P2) * IF((N < 2),WX,1));
M3:(MA(CLOSE,P3) * IF((N < 3),WX,1));
M4:(MA(CLOSE,P4) * IF((N < 4),WX,1));
M5:=(MA(CLOSE,P5) * IF((N < 5),WX,1));
M6:=(MA(CLOSE,P6) * IF((N < 6),WX,1));
M7:(MA(CLOSE,P7) * IF((N < 7),WX,1));
M8:=(MA(CLOSE,P8) * IF((N < 8),WX,1));
C1:=REF(CLOSE,1);
C2:=HHV(C1,2);
C3:=LLV(C1,1);
ET:=HHV(C1,2);
ET1:=REF(ET,1);
XB:=LLV(C1,1);
XB1:=REF(XB,1);
M:=BARSLAST(((CLOSE < XB) AND (C1 >= XB1)));
C1:=REF(CLOSE,1);
C2:=HHV(C1,2);
C3:=LLV(C1,1);
ET:=HHV(C1,2);
ET1:=REF(ET,1);
XB:=LLV(C1,1);
XB1:=REF(XB,1);
M:=BARSLAST(((CLOSE < XB) AND (C1 >= XB1)));
M11:=REF(M,1);
N9:=BARSLAST(((CLOSE > ET) AND (C1 <= ET1)));
N1:=REF(N9,1);
M21:=(BARSLAST((((M - N9) > 0) AND (M11 <= N1))) + 1);
N2:=(BARSLAST((((N9 - M) > 0) AND (N1 <= M11))) + 1);
ET2:=HHV(ET,M21);
XB2:=LLV(XB,N2);
A:=IF((((M - N9) > 0) AND (M11 <= N1)),1,IF((((N9 - M) > 0) AND (N1 <= M11)),0,2));
H1:=IF(((M - N9) > 0),CLOSE,ET2);
H2:=IF((A = 1),CLOSE,C2);
H3:=IF(((M - N9) < 0),CLOSE,XB2);
H4:=IF((A = 1),CLOSE,XB2);
H5:=IF((((M - N9) > 0) OR (A = 1)),CLOSE,H3);
H6:=REF(H5,1);
H7:=REF(H5,2);
H8:=(H5 > H6);
H9:=(((H4 = REF(H4,1)) AND (REF(H4,1) < REF(H4,2))) AND (H5 > REF(H5,2)));
H10:=(((H2 = REF(H2,1)) AND (H4 = REF(H4,1))) AND (H5 = REF(H5,2)));
W:=((H8 OR H9) OR H10);
T9:=((H5 < H6) AND (H5 < REF(H5,2)));
T10:=((H4 = REF(H4,1)) AND (H5 < REF(H5,2)));
T11:=((H3 > REF(H3,1)) AND (H5 < REF(H5,1)));
T12:=((H5 = REF(H5,1)) AND (H3 = H4));
T13:=((H2 = REF(H2,1)) AND (H2 = H5));
TW:=((((T9 OR T10) OR T11) OR T12) OR T13);
PK:=((AMOUNT * (((OPEN + CLOSE) + HIGH) + LOW)) / 4);
PK1:=IF((VOL > 0),(PK / AMOUNT),((((OPEN + CLOSE) + HIGH) + LOW) / 4));
BBP:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
STICKLINE((ISLASTBAR AND W),(H5 * 1.025),(H5 * 0.99),0.5,0),SHIFT1,colorFF;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,8,0),SHIFT1,color102088;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,7,0),SHIFT1,color102099;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,6,0),SHIFT1,color1020AA;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,5,0),SHIFT1,color1020BB;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,4,0),SHIFT1,color1020CC;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,3,0),SHIFT1,color1020DD;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,2,0),SHIFT1,color1020EE;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,1,0),SHIFT1,color1020FF;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.96),((H5 + H3) / 2.05),0.5,0),SHIFT1,colorFF8800;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),8,0),SHIFT1,colorFF7700;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),7,0),SHIFT1,colorFF8800;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),6,0),SHIFT1,colorFF9900;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),5,0),SHIFT1,colorFFAA00;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),4,0),SHIFT1,colorFFBB00;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),3,0),SHIFT1,colorFFCC00;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),2,0),SHIFT1,colorFFDD00;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),1,0),SHIFT1,colorFFEE00;
DRAWTEXT((ISLASTBAR AND (BBP >= 96.5)),(H5 * 1.022),' 明見\n 短高\n 龍頭\n 除外'),SHIFT1,colorFFFF;
DRAWTEXT((ISLASTBAR AND (BBP < 1)),((H5 + H4) / 1.96),' 明見\n 短低\n 跌停\n 除外'),SHIFT1,colorFF00FF;
DRAWTEXT(((ISLASTBAR AND W) AND (BBP < 96.5)),(H5 * 1.022),' 明日\n 看漲'),SHIFT1,colorred;
DRAWTEXT(((ISLASTBAR AND TW) AND (BBP > 1)),((H5 + H4) / 2),' 明日\n 看跌'),SHIFT1,colorFF;

MA1:MA(CLOSE,5);
MA2:MA(CLOSE,10);
MA3:MA(CLOSE,20);
MA4:MA(CLOSE,60);
DRAWTEXT((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)),LOW*0.98,'*買')COLORred ;
DRAWTEXT((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)),HIGH*1.01,'*賣')COLORgreen;
VAR3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR5:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
VAR6:=(VAR3+VAR4+VAR5)/3;
VAR7:=EMA(VAR6,5);
ZB:=EMA(EMA(VAR3,5),5)*3, COLORSTICK;
VAR8:=IF(VAR6<=-20,10,0);
VAR9:=HHV(VAR8,10);
VARA:=IF(VAR9 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0);
K:=EMA(VAR7,5)*2, , COLORFF00FF;
D:=EMA(K,5), , COLORWHITE;
J:=K*3-D*2, ,COLORYELLOW;
VARB:=BETWEEN(CLOSE,MA(CLOSE,3),MA(CLOSE,5)) AND J>10;
HS:=VOL/CAPITAL*100, , COLORGREEN;
DRAWTEXT(VAR8=10 AND FILTER(VAR8=10,5),LOW*0.93,'*接近底部') COLORMAGENTA;
DRAWTEXT(VARA=20,LOW*0.95,'*可能突破') COLORYELLOW;
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:=VARF<REF(VAR10,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.95,'*大資金活動'),LINETHICK1,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,LOW*0.95,'*大筆成交') COLORWHITE;

附件: 買賣+明日預測主圖.ALG
此文件已被下載 720 次。

圖示

引用:

---

最初由 mead 發表
圖示

---

mead 附帶上了此圖片:

下載了mead你提供的模組，其它的都是屬自創模組，唯有這模組是搭上平均線，只對平均線的模組感興致，從平均線才能真實感受股價，感受來自當某個股被操控嚴重時的感受，自己也寫幾個模組，最後是全部退到第二順位去了，大部分自創的模組真實性不夠，就因是模組，取樣參數遭限定在某數據區塊中，單獨性只看模組操作，誤差性過大。

以平均線為主體的模組很愛，因短中長的互動干擾變化可以看見的一清二楚。


這模組實在是要給予大力的推薦，上頭有個股相關的所屬類股、族群圈的標示在K線圖表上（當然這些標定、標示是指奇狐軟體，非指奇狐軟體以外的股市軟體）。

對這模組最感興趣，研究了兩天，裡面的編輯參數太高竿，沒得參與「研討」的份，倒是出現在圖表上的隔日的「預估K線」，是在是妙，妙到不可言欲。

所謂妙，不是在指那「隔日預估K」，是在，「它」提供一個『隔日的最大機率的日K線方向』，這在飆股的啟動應用上真是絕妙，飆股，線型做好的在啟動狂飆前會玩「陰招」，先蹲跳或要不就是在啟動的前一兩根K是以小小陀螺K或者收黑K為多，但實際上在江波圖上是以收在平盤之上，看K線時，經常因為圖檔，連續看太多個股下來的「眼花」，沒特別注意有的已形成飆股線型的全準備好的已在醞釀要起飆了的K線型態（指3∼5日之內的K線型態，非一般所指的「型態」，請各位不要會錯意）。

為何「眼花」看不到，飆股在起飆前，其在圖示上是小黑K棒或短黑K棒為顯示在盤後的圖上，人的眼睛與腦中的邏輯研判易受「圖」的影響，只要沒注意到，盤後在觀察研判時，就因「圖」示的被騙，跳過去了，跳過即將啟動「飆股」，飆股一起動，想追入或加碼以來不及了，關門鎖住的狂飆開始。

如今這『買賣+明日預測主圖 』特別以「隔日預估K」為表示隔日可能的動態，這「預估K」的計算是如何請有心者自行入源碼參數研究就不多提，自認功力沒那麼好，無資格提裡面的參數的探討。

要提出的重點是，那「隔日預估K」可以將原先看不到的飆股醞釀前的K線「跡象」給在明朗化，實在是有種說不出來的∼爽∼∼∼ ，真沒想到，一直在期盼的想，哪一天有空閒時要找編輯程式高手編輯一份能如「偏光鏡」一樣的功能，將以形成飆股條件樣式，指飆股在啟動前，主力以隱藏手法掩飾他即將發動飆股的意圖的破解，破解那容易被誤導的K線跡象（指主力以黑K棒的故意隱藏即將起飆的事實）。

mead，是不是這樣的心得，是你釋放指標與指標源碼要的對於指標的研討心得互動。你熱心提供優秀模組源碼，以同樣熱心的心為回饋。


在這要先作特別聲明，這『買賣+明日預測主圖 』模組呈現在圖面上的「隔日預估K」是種提示！並非一定會走那樣的「現象」，在股市裡絕對沒有白吃的午餐，可不要因為這「隔日預估K」為上揚式的紅K、下跌式黑K就認定必會明天8.9不離10，沒那麼好的事情，「隔日預估K」是提供一條情報而已，「情報」懂字眼上的意義吧！可對的也是可以是錯誤的，所有的研判請看仔細與極度小心評估，看錯、作錯只有自己對自己負責，別人可幫不了你的。

__________________
「市場只有一個方向，但不是多頭或空頭，而是對的方向」

謝謝龍騰兄的回覆
是的 我提供這些指標原碼的本意就是想提供一個可供大家討論的引子
不論對錯深淺 只要有討論 都是一種經驗的分享與交流 透過這樣的討論 也才能將原本適合大陸市場的指標藉由我們本地投資人不同經驗的腦力激盪修改成適合台灣市場使用

謝謝你的經驗分享 感恩

萬分感謝大大ㄉ分享 先來研究看看 3q

感謝版大分享.

請問...這指表 有些股可正常使用(有紅K綠K,波段買進出),有些則無法顯示.....請問各位有此狀況嗎? 如何修改?