打印本文
關閉窗口
相關標簽: 大智慧神獒指標系列 神獒波段 神獒密鑰 神獒四線 神獒霸氣 神獒席位 神獒四戶 神獒集中度 神獒掌控指標公式源碼量神指標源碼 、 通達信神獒決策線指標 、 通達信神獒指標 、 神獒決策線指標 、 飛龍系列指標源碼 、 股票指標公式源碼大全 、 通達信主升浪指標源碼 、 短線暴利指標公式源碼 、 指標源碼 、
{神獒波段}{主圖疊加}{大智慧L2新一代公式}
input:N(5,1,111),N1(10,1,111),P(3,0.1,30),M(21,0,100);
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
a1:=(IF((DATE <= 1091025),1,0)) * (IF((CURRENTDATE <= 1091025),1,0));
DRAWGBK((CLOSE > 0),'5');
a2:=IF((CLOSE < 800),((AMOUNT / VOL) / 100),((((CLOSE * 2) + HIGH) + LOW) / 4));
a3:=((HHV(HIGH,15)) + (LLV(LOW,30))) / 2;
a4:=EMA((MA(a2,5)),10);
a5:=EMA((MA(a2,15)),10);
a6:=EMA((MA(a2,13)),21);
a7:=((a4 + a5) + a6) / 3;
a8:=(((ref(a7,1)) + a7) + (ref(a7,2))) / 3;
決策線:EMA((MA(CLOSE,5)),3),colorGreen;
PARTLINE(決策線,決策線 > (ref(決策線,3)),RGB(255,0,0)),LINETHICK1,colorRed;
UPR:決策線 + (3 * (STD(決策線,10))),Color808000;
DWN:決策線 - (3 * (STD(決策線,10))),ColorA10000;
多空價:a8 * a1,LINETHICK2,Color008E00;
半年線:MA(CLOSE,120),POINTDOT,LINETHICK4,colorGray;
年線:MA(CLOSE,250),CROSSDOT,Color717143;
STICKLINE((CLOSE > OPEN),HIGH,LOW,0.0001,1),colorRed;
STICKLINE((CLOSE > OPEN),OPEN,CLOSE,8,1),Color5050FF;
STICKLINE((CLOSE < OPEN),OPEN,CLOSE,8,0),ColorFFFF85;
STICKLINE((CLOSE < OPEN),HIGH,LOW,0.0001,0),colorCyan;
a9:=((EMA((MA(a2,3)),3)) + (WMA(a2,5))) / 2;
a10:=ref(a9,1);
a11:=BARSCOUNT(CLOSE);
a12:=IF((a11 = 1),0,(((a9 - a10) / a10) * 100));
a13:=ref(CLOSE,1);
a14:=IF((a11 = 1),0,(((CLOSE - a13) / a13) * 100));
a15:=IF((a11 = 1),((CLOSE + OPEN) / 2),a10);
a16:=ref(a9,2);
a17:=((a9 + a10) + a16) / 3;
a18:=((ABS((a9 - a17)) + ABS((a10 - a17))) + ABS((a16 - a17))) / 3;
a19:=IF((a11 < 3),0,((a18 / a9) * 100));
a20:=IF((((a12 > 0.5) AND ((a19 > 0.215) OR (LOW > a15))) AND (CLOSE >= OPEN)),1,0);
a21:=IF((((a12 < (0 - 0.3)) AND ((a19 > 0.2) OR (HIGH < a15))) AND ((OPEN >= CLOSE) OR (a14 < -1))),1,0);
B:((COUNT(a20,BARSLAST(a21))) = 1) AND a20,LINETHICK0;
D:((COUNT(a21,BARSLAST(a20))) = 1) AND a21,LINETHICK0;
a22:=BARSLAST(B);
a23:=((SUM(D,a22)) = 0) * a22;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=2 OR CXH=7));
DRAWTEXTREL(10 ,10 ,'');
a24:=a23 > 0;
a25:=a23 = 0;
STICKLINE(a24,CLOSE,OPEN,8,0),colorMAgenta;
STICKLINE(a24,CLOSE,OPEN,7,0),ColorFF28FF;
STICKLINE(a24,CLOSE,OPEN,6,0),ColorFF3DFF;
STICKLINE(a24,CLOSE,OPEN,5,0),ColorFF51FF;
STICKLINE(a24,CLOSE,OPEN,4,0),ColorFF65FF;
STICKLINE(a24,CLOSE,OPEN,3,0),ColorFF7AFF;
STICKLINE(a24,CLOSE,OPEN,2,0),ColorFF8EFF;
STICKLINE(a24,CLOSE,OPEN,1,0),ColorFFA2FF;
STICKLINE(a25,CLOSE,OPEN,8,0),ColorFFFD02;
STICKLINE(a25,CLOSE,OPEN,7,0),ColorF8FF24;
STICKLINE(a25,CLOSE,OPEN,6,0),ColorFDFF4A;
STICKLINE(a25,CLOSE,OPEN,5,0),ColorFCFF69;
STICKLINE(a25,CLOSE,OPEN,4,0),ColorFDFD97;
STICKLINE(a25,CLOSE,OPEN,3,0),ColorFFFFA2;
STICKLINE(a25,CLOSE,OPEN,2,0),ColorFFFFB6;
STICKLINE(a25,CLOSE,OPEN,1,0),ColorFFFFCC;
STICKLINE(B,CLOSE,OPEN,8,0),colorYelLOW;
STICKLINE(D,CLOSE,OPEN,8,0),Color00BE00;
DRAWTEXT(B,(LOW * 0.98),'㊣'),LINETHICK2,ALIGN1,colorWhite;
DRAWTEXT(D,(HIGH * 1.035),'Ｓ'),LINETHICK2,ALIGN1,colorGreen;
PARTLINE(決策線,決策線 > (ref(決策線,3)),RGB(255,0,0)),LINETHICK1,colorRed;
a26:=(((CLOSE / a13) - 1) * 100) >= (7 * a1);
a27:=HIGH - ((HIGH - LOW) / 3);
a28:=LOW + ((HIGH - LOW) / 3);
PARTLINE(多空價,多空價 > (ref(多空價,3)),RGB(255,0,0)),LINETHICK2,colorRed;
DRAWTEXTREL(10,800,'㊣十二星座*神獒贏富㊣'),LINETHICK1,COLOR00EEff;
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
BBI:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
神獒密鑰公式源碼
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
A1:=(25);
A2:=(26);
A3:=(3 * (SMA((((CLOSE - (LLV(LOW,A1))) / ((HHV(HIGH,A1)) - (LLV(LOW,A1)))) * 100),5,1))) - (2 * (SMA((SMA((((CLOSE - (LLV(LOW,A2))) / ((HHV(HIGH,A2)) - (LLV(LOW,A2)))) * 100),5,1)),3,1)));
A4:=(3 * (SMA((((INDEXC - (LLV(INDEXL,A1))) / ((HHV(INDEXH,A1)) - (LLV(INDEXL,A1)))) * 100),5,1))) - (2 * (SMA((SMA((((INDEXC - (LLV(INDEXL,A2))) / ((HHV(INDEXH,A2)) - (LLV(INDEXL,A2)))) * 100),5,1)),3,1)));
星座趨勢:EMA(A3,5),LINETHICK0;
A5:=ref(星座趨勢,1);
A6:=EMA(A3,3);
大盤線:EMA(A4,3),colorMAgenta;
A7:=星座趨勢 > A5;
A8:=星座趨勢 < A5;
A9:=((CLOSE / (ref(CLOSE,1))) - 1) * 100;
A10:=(IF((DATE <= 1091025),1,0)) * (IF((CURRENTDATE <= 1091025),1,0));
A11:=BIGORDER(1,3);
A12:=BIGORDER(2,3);
A13:=BIGORDER(1,2);
A14:=BIGORDER(2,2);
A15:=((((A13 - A14) * VOL) / CAPITAL) * 500) * A10;
A16:=((((A11 - A12) * VOL) / CAPITAL) * 500) * A10;
A17:=IF(((A15 >= 0) AND (A16 >= 0)),(MAX(A15,A16)),(MIN(A15,A16)));
A18:=IF((A9 > 0),A9,ABS(A9));
A19:=IF(((A17 > 0) AND (A9 < 0)),A9,A18);
A20:=A17 - A19;
爆破:IF((A20 > 0),A20,0),LINETHICK0,colorRed;
A21:=((CLOSE - (EMA(CLOSE,25))) / (EMA(CLOSE,25))) * 100;
A22:=((CLOSE - CYC(13)) / CYC(13)) * 100;
A23:=IF((CLOSE < 800),((AMOUNT / VOL) / 100),((((CLOSE * 2) + HIGH) + LOW) / 4));
A24:=((EMA((MA(A23,3)),3)) + (WMA(A23,5))) / 2;
A25:=ref(A24,1);
A26:=BARSCOUNT(CLOSE);
A27:=IF((A26 = 1),0,(((A24 - A25) / A25) * 100));
神獒密鑰①:(((A20 > 6) AND (A27 < -3.5)) AND (A22 < -18)) AND (A21 > -20),LINETHICK0,ColorFF4398;
STICKLINE(神獒密鑰①,10,0,2,0),LINETHICK0,ColorFF4398;
DRAWTEXT(神獒密鑰①,A20,'神獒密鑰①成功率93%'),ColorFF4398;
神獒密鑰②:(((A20 >= 5) AND (A27 < -3)) AND (A21 < -22)) AND (A22 < -22),LINETHICK0,ColorFFFF98;
STICKLINE(神獒密鑰②,12,0,2,0),LINETHICK0,ColorFFFF98;
DRAWTEXT(神獒密鑰②,A20,'神獒密鑰②成功率97%'),ColorFFFF98;
神獒密鑰●:((((A20 >= 8) AND (A27 < -5)) AND (A21 < -13)) AND (A22 < -16)) AND (A15 >= 1),LINETHICK0,Color00FDFF;
STICKLINE(神獒密鑰●,14,0,2,0),LINETHICK0,Color00FDFF;
DRAWTEXT(神獒密鑰●,A20,'神獒密鑰●成功率99%'),Color00FDFF;
神獒密鑰④:((((A20 >= 4) AND (A27 < -4)) AND (A21 < -10)) AND (A22 < -12)) AND (A15 >= 0.5),LINETHICK0,ColorFFF6FF;
STICKLINE(神獒密鑰④,14,0,2,0),LINETHICK0,ColorFFF6FF;
DRAWTEXT(神獒密鑰④,A20,'神獒密鑰④成功率90%'),ColorFFF6FF;
神獒密鑰⑤:((((A20 >= 4) AND (A27 < -3)) AND (A21 < -10)) AND (A22 < -13)) AND (A15 >= 0.5),LINETHICK0,ColorFFF6FF;
STICKLINE(神獒密鑰⑤,14,0,2,0),LINETHICK0,ColorFFF6FF;
DRAWTEXT(神獒密鑰⑤,A20,'神獒密鑰⑤成功率90%'),ColorFFF6FF;
二級:((((A20 >= 4) AND (A15 > 0.2)) AND (A27 < -4)) AND (A22 < -14)) AND (A21 > -10),LINETHICK0,colorGreen;
三級:((((A20 >= 6) AND (A27 < -2.5)) AND (A22 < -18)) AND (A21 < -14)) AND (A15 > 0.2),LINETHICK0,colorMAgenta;
四級:((A20 >= 8) AND (A27 < -5)) AND (A22 < -18),LINETHICK0,colorRed;
五級:((A20 >= 10) AND ((A15 > 1) OR (A16 > 2.5))) AND (A15 > 0.2),LINETHICK0,ColorFF0000;
DRAWTEXTREL(0,0,' 密鑰爆破級數越高意味著成功率越高。'),LINETHICK1,colorRed;
STICKLINE(二級,14,0,2,0),colorGreen;
STICKLINE(三級,13,0,4,0),colorMAgenta;
STICKLINE(四級,12,0,6,0),colorRed;
STICKLINE(((A20 >= 10) AND ((A15 > 1) OR (A16 > 2.5))),10,0,8,0),ColorFF0000;
STICKLINE(((A20 > 5) AND (A15 > 1)),(A20 * 2),0,0.5,0),colorYelLOW; {內容來至程序化交易網 CXH99.COM}
STICKLINE(A8,星座趨勢,A5,6,0),Color3DFF3D;
STICKLINE(A8,星座趨勢,A5,5,0),Color51FF51;
STICKLINE(A8,星座趨勢,A5,4,0),Color65FF65;
STICKLINE(A8,星座趨勢,A5,3,0),Color7AFF7A;
STICKLINE(A8,星座趨勢,A5,2,0),Color8EFF8E;
STICKLINE(A8,星座趨勢,A5,1,0),ColorA2FFA2;
STICKLINE(A7,星座趨勢,A5,6,0),Color2828FF;
STICKLINE(A7,星座趨勢,A5,5,0),Color3D3DFF;
STICKLINE(A7,星座趨勢,A5,4,0),Color5151FF;
STICKLINE(A7,星座趨勢,A5,3,0),Color6565FF;
STICKLINE(A7,星座趨勢,A5,2,0),Color7A7AFF;
STICKLINE(A7,星座趨勢,A5,1,0),Color8E8EFF;
IF((((CROSS(A5,星座趨勢)) AND (星座趨勢 > 85)) AND (((((A13 - A14) * VOL) / CAPITAL) * 500) < -0.65)),70,90);
IF((((CROSS(星座趨勢,A5)) AND (星座趨勢 < 15)) AND (((((A13 - A14) * VOL) / CAPITAL) * 500) > 0.3)),20,10);
DRAWTEXTREL(10,900,'㊣十二星座*神獒贏富㊣'),LINETHICK1,COLOR00EEff;
分時主圖公式源碼
input:LONG(26,20,100),SHORT(12,5,40),M(9,2,60);
a1:=1;
a2:=DYNAINFO(14);
a3:=(FINANCE2(37));
a4:=(FINANCE2(3));
a5:=DYNAINFO(17);
a6:=(MA(CLOSE,0)) * a1;
a7:=(MA(a6,0)) * a1;
a8:=a6 - a7;
STICKLINE((a6 > a7),a6,a7,0.8,501),LINETHICK1,colorRed;
STICKLINE((a7 > a6),a6,a7,0.8,1),LINETHICK1;
DRAWICON(((CROSS(a7,a6)) AND (TIME > 93200)),a6,8),colorGreen;
DRAWICON(((CROSS(a6,a7)) AND (TIME > 93200)),a6,7),colorYelLOW;
a9:=(CLOSE = ((HHV(CLOSE,0)) * a1)) AND (VOL >= 1000);
a10:=VOL = (HHV(VOL,0));
a11:=(STRFIND(STKNAME,'ST',1)) > 0;
a12:=(STRFIND(STKNAME,'S',1)) > 0;
a13:=NOT(a11) AND NOT(a12);
a14:=SUM((((((a13 AND a9) AND a10) AND (CLOSE > (MA(CLOSE,0)))) AND (TIME > 93500)) AND (TIME < 145500)),0);
a15:=((ALLBIDVOL / (ALLBIDVOL + ALLASKVOL)) * 100) * a1;
a16:=(HIGH + LOW) / 2;
a17:=(a14);
a18:=(a15);
a19:=(MA((MA(CLOSE,0)),0)) * a1;
DRAWTEXT(((((a13 AND a9) AND a10) AND (TIME > 93500)) AND (TIME < 144500)),CLOSE,'黑馬'),colorRed;
DRAWTEXTABS(25,282,' '),colorCyan;
DRAWTEXTABS(25,302,' '),colorCyan;
DRAWTEXT((FILTER((((a5 > 1) AND (a14 >= 2)) AND (a8 > 0)),15)),a6,'㊣'),LINETHICK3,coloryelLOW;
a3:=(FINANCE2(37));
DRAWTEXTABS(100,282,' 流通股 '+a3),colorGreen;
a4:=(FINANCE2(3));
DRAWTEXTABS(280,282,' 收益 '+a4),colorWhite;
DRAWTEXTABS(290,282,' 量對比 '+a5),colorGreen;
DRAWTEXTABS(25,262,'十二星座無視大盤戰法:從漲幅排行中手動翻頁篩選個股，發現㊣后分批買入'),colorCyan;
DRAWTEXTABS(25,242,'最高宗旨:賣出股票參照◎點，買入股票參照★點，上下箭頭代表趨勢'),colorCyan;
DRAWTEXTABS(25,222,'㊣十二星座*神獒贏富㊣'),LINETHICK1,COLOR00EEff;
a20:=(EMA(CLOSE,SHORT)) - (EMA(CLOSE,LONG));
a21:=EMA(a20,M);
a22:=2 * (a20 - a21);
DRAWTEXT((FILTER(((a20 * a1) > 0.2),30)),CLOSE,'◎'),LINETHICK2,colorGreen;
DRAWTEXT((((FILTER(((a20 * a1) < -0.03),30)) AND (TIME > 113500)) AND (a2 > -0.02)),CLOSE,'★'),LINETHICK3,colorRed; {本文來至程序化交易網 cxh99.com}
分時附圖源碼：神獒四線公式源碼
DRAWTEXTREL(50,10,' 代碼: '+STKLABEL+' '+STKNAME+' 日期: '+YEAR+'年'+MONTH+'月 '+DAY+'日 '),LINETHICK2,ColorFFFF80;
DRAWTEXTREL(650,10,'㊣十二星座*神獒贏富㊣'),LINETHICK1,COLOR00EEff;
a1:=SUM((ORDERVOL(1,3)),0);
a2:=SUM((ORDERVOL(2,3)),0);
a3:=(SUM((ORDERVOL(1,2)),0)) - a1;
a4:=(SUM((ORDERVOL(2,2)),0)) - a2;
a5:=(SUM((ORDERVOL(1,1)),0)) - (SUM((ORDERVOL(1,2)),0));
a6:=(SUM((ORDERVOL(2,1)),0)) - (SUM((ORDERVOL(2,2)),0));
a7:=(SUM((ORDERVOL(1,0)),0)) - (SUM((ORDERVOL(1,1)),0));
a8:=(SUM((ORDERVOL(2,0)),0)) - (SUM((ORDERVOL(2,1)),0));
a9:=(SUM((ORDERVOL(1,0)),0)) + (SUM((ORDERVOL(2,0)),0));
a10:=a7 - a8;
a11:=a5 - a6;
a12:=a3 - a4;
a13:=a1 - a2;
a14:=(SUM((ORDERVOL(1,2)),0)) - (SUM((ORDERVOL(2,2)),0));
a15:=(100 * a7) / a9;
a16:=(100 * a8) / a9;
a17:=(100 * a5) / a9;
a18:=(100 * a6) / a9;
a19:=(100 * a3) / a9;
a20:=(100 * a4) / a9;
a21:=(100 * a1) / a9;
中戶籌碼:A11,LINETHICK1,colorGreen;
大戶籌碼:A12,LINETHICK1,colorYelLOW;
機構籌碼:A13,LINETHICK1,ColorFF0000;
主力籌碼:A14,LINETHICK2,colorRed;
a22:=(100 * a2) / a9;
a23:=(100 * (SUM((ORDERVOL(1,2)),0))) / a9;
a24:=(100 * (SUM((ORDERVOL(2,2)),0))) / a9;
a25:=(100 * a10) / a9;
a26:=(100 * a11) / a9;
a27:=(100 * a12) / a9;
a28:=(100 * a13) / a9;
a29:=(100 * a14) / a9;
a30:=(a1);
a31:=(a2);
a32:=(a3);
a33:=(a4);
a34:=(a5);
a35:=(a6);
a36:=(a7);
a37:=(a8);
a38:=((SUM((ORDERVOL(1,2)),0)));
a39:=((SUM((ORDERVOL(2,2)),0)));
a40:=(a10);
a41:=500 / (MAX(a30,a31,a32,a33,a34,a35,a36,a37,a40,中戶籌碼,大戶籌碼,機構籌碼));
a42:=550 / (MAX(a38,a39,主力籌碼));
a43:=600 - (a30 * a41);
a44:=600 - (a31 * a41);
a45:=600 - (a32 * a41);
a46:=600 - (a33 * a41);
a47:=600 - (a34 * a41);
a48:=600 - (a35 * a41);
a49:=600 - (a36 * a41);
a50:=600 - (a37 * a41);
a51:=600 - (a38 * a42);
a52:=600 - (a39 * a42);
a53:=600 - (a40 * a41);
a54:=600 - (中戶籌碼 * a41);
a55:=600 - (大戶籌碼 * a41);
a56:=600 - (機構籌碼 * a41);
a57:=600 - (主力籌碼 * a42);
DRAWRECTREL(50,a49,70,600,250),colorYelLOW;
DRAWRECTREL(70,a50,90,600,9213440),colorYelLOW;
DRAWRECTREL(90,a53,110,600,(IF((a10 >= 0),3289855,8584960))),colorYelLOW;
DRAWRECTREL(160,a47,180,600,250),colorYelLOW;
DRAWRECTREL(180,a48,200,600,9213440),colorYelLOW;
DRAWRECTREL(200,a54,220,600,(IF((a11 >= 0),3289855,8584960))),colorYelLOW;
DRAWRECTREL(270,a45,290,600,250),colorYelLOW;
DRAWRECTREL(290,a46,310,600,9213440),colorYelLOW;
DRAWRECTREL(310,a55,330,600,(IF((a12 >= 0),3289855,8584960))),colorYelLOW;
DRAWRECTREL(380,a43,400,600,250),colorYelLOW;
DRAWRECTREL(400,a44,420,600,9213440),colorYelLOW;
DRAWRECTREL(420,a56,440,600,(IF((a13 >= 0),3289855,8584960))),colorYelLOW;
DRAWRECTREL(925,a51,945,600,255),colorYelLOW;
DRAWRECTREL(945,a52,965,600,9213440),colorYelLOW; {本文來至程序化交易網 cxh99.com}
DRAWRECTREL(965,a57,985,600,(IF((a14 >= 0),3289855,8584960))),colorYelLOW;
DRAWRECTREL(0,600,445,604,255),colorWhite;
DRAWTEXTREL(18,450,'散戶'),ColorDDFFFF;
DRAWTEXTREL(125,450,'中戶'),ColorDDFFFF;
DRAWTEXTREL(235,450,'大戶'),ColorDDFFFF;
DRAWTEXTREL(345,450,'機構'),ColorDDFFFF;
DRAWTEXTREL(888,450,'主力'),ColorDDFFFF;
DRAWTEXTREL(2,720,'機構買:'+NUMTOSTR(a21)+'%'+' 大戶買:'+NUMTOSTR(a19)+'%'+' 中戶買:'+NUMTOSTR(a17)+'%'+' 散戶買:'+NUMTOSTR(a15)+'%'),colorRed;
DRAWTEXTREL(2,790,'機構賣:'+NUMTOSTR(a22)+'%'+' 大戶賣:'+NUMTOSTR(a20)+'%'+' 中戶賣:'+NUMTOSTR(a18)+'%'+' 散戶賣:'+NUMTOSTR(a16)+'%'),colorGreen;
DRAWTEXTREL(2,860,'機構差:'+NUMTOSTR(a28)+'%'+' 大戶差:'+NUMTOSTR(a27)+'%'+' 中戶差:'+NUMTOSTR(a26)+'%'+' 散戶差:'+NUMTOSTR(a25)+'%'),colorWhite;
DRAWTEXTREL(2,930,'主力差:'+NUMTOSTR(a29)+'%'),colorWhite;
主圖：神獒霸氣公式源碼
{45度異動}
x1:=(C+L+H)/3;
bb13:=atan(eMA(x1,13)-ref(eMA(x1,13),1))*3.1416*10;
eMA8:=eMA(c,8);
DRAWTEXT(filter(bb13>1 and eMA(x1,13)>ref(eMA(x1,8),1),10),
eMA8,'∠45上升'),coloryelLOW;
ah:HHVall(h);al:llvall(l);
ahl:=ah-al;
a23:al+ahl*0.236,COLORYELLOW,POINTDOT;
a38:al+ahl*0.382,COLOREE00EE,POINTDOT;
a50:al+ahl*0.50,COLORYELLOW,POINTDOT;
a61:al+ahl*0.618,COLOREE00EE,POINTDOT;
a76:al+ahl*0.764,COLORYELLOW,POINTDOT;
{標注數字}y:=999;
DRAWTEXTREL(500,0,'100%'+ah),COLOREE00EE;
DRAWTEXTREL(500,y*0.236,'76.4%'+a76),COLORYELLOW;
DRAWTEXTREL(500,y*0.382,'61.8%'+a61),COLOREE00EE;
DRAWTEXTREL(500,y*0.50,'50%'+a50),COLORYELLOW;
DRAWTEXTREL(500,y*0.618,'38.2%'+a38),COLOREE00EE;
DRAWTEXTREL(500,y*0.764,'23.6%'+a23),COLORYELLOW;
DRAWTEXTREL(500,y-30,'最低'+al),COLOREE00EE;
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
varl13:=("MAcd.diff#WEEK"(26,12,9));
varl14:=("MAcd.dea#WEEK"(26,12,9));
VL:=ref(LOW,1); VH:=ref(H,1);
Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100;
Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;
Var3:=MA(Var1,13);
Var4:=MA(Var2,13);
Var5:=LLV(L,34);
Var6:=HHV(H,34);
Var7:=EMA(IF(H>=Var6,Var3,0),3);
Var8:=EMA(IF(L<=Var5,Var4,0),3);
var9:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));
var10:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (var9* 10.9);
Var11:=FILTER(IF(var10<=var9 AND Var8>ref(Var8,1),Var8*8,0),55);
Var21:=LLV(LOW,60);
Var31:=HHV(HIGH,60);
Var41:=EMA((CLOSE-Var21)/(Var31-Var21)*100,13);
Var51:=EMA(0.667*ref(Var41,1)+0.333*Var41,21);
varl2:=FILTER(CROSS(Var51,Var41) AND Var41>84,13);
持股線:MA(C,26),LINETHICK3,coloryelLOW;
趨勢線:MA(CLOSE,13),LINETHICK5,colorred;
qjj:FILTER((CROSS(varl13,varl14) and varl14<0 and CROSS(c,持股線)),90),LINETHICK0;
DRAWTEXTREL(10,900,'㊣十二星座*神獒贏富㊣'),LINETHICK1,COLOR00EEff;
DD:=FINANCE2(35);
SS:=FINANCE2(37); {文章來至程序化交易網 cxh99.com}
GG:=FINANCE2(3);
TH:=DYNAINFO(39);
DRAWTEXTREL(10,720,'總股本:'+NUMTOSTRn(DD,0)+'萬股' +' 流通A股:'+NUMTOSTRn(SS,0)+'萬股'+'市盈率:'+NUMTOSTRn(TH,2)+' 倍'+'每股收益:'+NUMTOSTRn(GG,3)+' 元'),ColorFFFF00;
DRAWTEXT(var11,C*0.98,'㊣'),LINETHICK4,ColorFFFF00;
DRAWICON(qjj,C*1.09,1);
DRAWTEXT(qjj,l*0.78,'霸占大牛股'),COLOR00FFFF;
DRAWTEXT(varl2,C*1.04,'逃跑'),Colorgreen;
獲利比例:=(WINNER(C)*1000)/10;
平均成本:=(COST(50)*100)/100;
穿透力:=(WINNER(C)-WINNER(ref(C,1)))/v*CAPITAL;
９０％成本:=FLOOR(COST(50-90/2)*100)/100;
～:=CEILING(COST(50+90/2)*100)/100;
９０集中度:=INTPART((～-９０％成本)/(～+９０％成本)*1000)/10;
７０％成本:=FLOOR(COST(50-70/2)*100)/100;
～～:=CEILING(COST(50+70/2)*100)/100;
７０集中度:=INTPART((～～-７０％成本)/(～～+７０％成本)*1000)/10;
DRAWTEXTABS(0,12,'獲利比例:'+STR(獲利比例)),COLOR44bbff;
DRAWTEXTABS(0,24,'平均成本:'+STR(平均成本)),COLOR44bbff;
DRAWTEXTABS(0,36,' 穿透力:'+STR(穿透力)),COLOR44bbff;
DRAWTEXTABS(0,48,'９０％成本:'+STR(９０％成本)+'-'+STR(～)),COLOR44bbff;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=2 OR CXH=7));
DRAWTEXTREL(10 ,10 ,'');
DRAWTEXTABS(0,60,'９０集中度:'+STR(９０集中度)),COLOR44bbff;
DRAWTEXTABS(0,72,'７０％成本:'+STR(７０％成本)+'-'+STR(～～)),COLOR44bbff;
DRAWTEXTABS(0,84,'７０集中度:'+STR(７０集中度)),COLOR44bbff;
gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXL+INDEXO)/4,AMOUNT/(v+0.01)/100);
明日阻力:=l+(gj-l)+(c-l);
明日支撐:=l+(c-gj);
今日阻力:=ref(明日阻力 , 1);
今日支撐:=ref(明日支撐 , 1);
STICKLINE(DISPSTATUS=2and c>=今日阻力,今日阻力,今日阻力,20,0),Color0000FF;
STICKLINE(DISPSTATUS=2and c<今日阻力,今日阻力,今日阻力,20,0),Color00FF00;
STICKLINE(DISPSTATUS=2and c>=今日支撐,今日支撐,今日支撐,20,0),ColorFF00FF;
STICKLINE(DISPSTATUS=2and c<今日支撐,今日支撐,今日支撐,20,0),ColorFF9900;
DRAWTEXTREL(770,5,'今日支撐：'+NUMTOSTRN(今日支撐 ,2 )),Colorred;
DRAWTEXTREL(630,5,'今日阻力：'+NUMTOSTRN(今日阻力 ,2 )),ColorGREEN;
DRAWTEXTREL(1,800,'所屬板塊:'+BKNAME),ColorAFFF00;
DRAWTEXTREL(1,850,'每股收益:'+NUMTOSTRN(FINANCE2(3),3)+'元'+' 市盈率:'+NUMTOSTRN(DYNAINFO(39),2)+'元'+' 市凈率:'+NUMTOSTRN((CLOSE / FINANCE2(4)),2)+'元'+' 凈資產:'+NUMTOSTRN(FINANCE2(4),2)+'元'),Color00C0FF;
神獒MACD（分時副圖）
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA: EMA(DIFF,M);
MACD : 2*(DIFF-DEA), COLORSTICK;
PARTLINE(diff,diff>=ref(diff,1),RGB(255,0,0),diff<ref(diff,1),RGB(0,255,0)),LINETHICK2;
抓主升。'),LINETHICK1,Colorred;
DRAWTEXTABS(3,16,'DIFF泛綠時持幣，寧缺毋濫。'),LINETHICK1,Colorred;
DRAWTEXTREL(10,800,'㊣十二星座*神獒贏富㊣'),LINETHICK1,COLOR00EEff;
{神獒席位公式源碼}{副圖}{大智慧L2新一代公式}
DRAWTEXTABS(0,0,'席位多空博弈圖');
a1:=(BIGORDER(1,2)) - (BIGORDER(2,2));
a2:=(BIGORDER(1,1)) - (BIGORDER(2,1));
a3:=(BIGORDER(1,3)) - (BIGORDER(2,3));
a4:=a1 * VOL;
a5:=a2 * VOL;
a6:=a3 * VOL;
主力席位:(((a4 * 3) + a5) + (a6 * 2)) / 6,LINETHICK0,colorRed; {本文來至程序化交易網 cxh99.com}
機構席位:(a6),LINETHICK0;
主力席位流入:STICKLINE((主力席位 > 0),0,主力席位,7,0),colorRed;
主力席位流出:STICKLINE((主力席位 < 0),0,主力席位,7,0),ColorFFF000;
機構席位流入:STICKLINE((機構席位 > 0),0,機構席位,3,0),colorYelLOW;
機構席位流出:STICKLINE((機構席位 < 0),0,機構席位,3,0),ColorFF0000;
a7:=(BIGORDER(1,2)) * VOL;
a8:=(BIGORDER(1,3)) * VOL;
a9:=(BIGORDER(2,2)) * VOL;
a10:=(BIGORDER(2,3)) * VOL;
a11:=(a7);
a12:=(a9);
a13:=(a11);
a14:=(a12);
a15:=SUM(a11,5);
a16:=SUM(a12,5);
a17:=SUM(a11,10);
a18:=SUM(a12,10);
a19:=SUM(a11,20);
a20:=SUM(a12,20);
a21:=700 / (MAX(a13,a14));
a22:=700 / (MAX(a15,a16));
a23:=700 / (MAX(a17,a18));
a24:=700 / (MAX(a19,a20));
a25:=999 - (a13 * a21);
a26:=999 - (a14 * a21);
a27:=999 - (a15 * a22);
a28:=999 - (a16 * a22);
a29:=999 - (a17 * a23);
a30:=999 - (a18 * a23);
a31:=999 - (a19 * a24);
a32:=999 - (a20 * a24);
DRAWRECTREL(0,100,460,1000,6566450),colorRed;
DRAWTEXTREL(60,130,'主力買'),colorRed;
DRAWTEXTREL(110,130,'主力賣'),colorGreen;
DRAWTEXTREL(55,900,'1日'),ColorDDFFFF;
DRAWTEXTREL(145,900,'5日'),ColorDDFFFF;
DRAWTEXTREL(228,900,'10日'),ColorDDFFFF;
DRAWTEXTREL(320,900,'20日'),ColorDDFFFF;
DRAWRECTREL(80,a25,100,1000,250),colorYelLOW;
DRAWRECTREL(100,a26,120,1000,9213440),colorYelLOW;
DRAWRECTREL(170,a27,190,1000,250),colorYelLOW;
DRAWRECTREL(190,a28,210,1000,9213440),colorYelLOW;
DRAWRECTREL(260,a29,280,1000,250),colorYelLOW;
DRAWRECTREL(280,a30,300,1000,9213440),colorYelLOW;
DRAWRECTREL(350,a31,370,1000,250),colorYelLOW;
DRAWRECTREL(370,a32,390,1000,9213440),colorYelLOW;
DRAWTEXTREL(10,800,'㊣十二星座*神獒贏富㊣'),LINETHICK1,COLOR00EEff;
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
{神獒四戶公式源碼}{副圖}{大智慧L2新一代公式}
input:P1(5,1,60);
DRAWTEXTABS(2,0,'當日席位多空分布圖');
a1:=(BIGORDER(1,2)) - (BIGORDER(2,2));
a2:=(BIGORDER(1,1)) - (BIGORDER(2,1));
a3:=(BIGORDER(1,3)) - (BIGORDER(2,3));
a4:=a1 * VOL;
a5:=a2 * VOL;
a6:=a3 * VOL;
a7:=(BIGORDER(1,3)) * VOL;
a8:=(BIGORDER(2,3)) * VOL;
a9:=((BIGORDER(1,2)) - (BIGORDER(1,3))) * VOL;
a10:=((BIGORDER(2,2)) - (BIGORDER(2,3))) * VOL;
a11:=((BIGORDER(1,1)) - (BIGORDER(1,2))) * VOL;
a12:=((BIGORDER(2,1)) - (BIGORDER(2,2))) * VOL;
a13:=VOL * (1 - (BIGORDER(1,1)));
a14:=VOL * (1 - (BIGORDER(2,1)));
a15:=((((((a7 + a8) + a9) + a10) + a11) + a12) + a13) + a14;
a16:=(100 * a7) / a15;
a17:=(100 * a8) / a15;
a18:=(100 * a9) / a15;
a19:=(100 * a10) / a15;
a20:=(100 * a11) / a15;
a21:=(100 * a12) / a15;
a22:=(100 * a13) / a15;
a23:=(100 * a14) / a15;
a24:=(100 * a4) / a15;
a25:=a16 - a17;
a26:=a18 - a19;
a27:=a20 - a21;
a28:=a22 - a23;
主力席位:(((a4 * 3) + a5) + (a6 * 2)) / 6,LINETHICK0,colorRed;
機構席位:(a6),LINETHICK0,colorYelLOW;
主力席位流入:STICKLINE((主力席位 > 0),0,主力席位,7,0),colorRed;
主力席位流出:STICKLINE((主力席位 < 0),0,主力席位,7,0),ColorFFF000;
機構席位流入:STICKLINE((機構席位 > 0),0,機構席位,2,0),colorYelLOW;
機構席位流出:STICKLINE((機構席位 < 0),0,機構席位,2,0),ColorFF0000;
MA5:MA(主力席位,P1),colorWhite;
a29:=(a7);
a30:=(a8);
a31:=(a9);
a32:=(a10);
a33:=(a11);
a34:=(a12);
a35:=(a13);
a36:=(a14);
a37:=600 / (MAX(a29,a30,a31,a32,a33,a34,a35,a36));
a38:=999 - (a29 * a37);
a39:=999 - (a30 * a37);
a40:=999 - (a31 * a37);
a41:=999 - (a32 * a37);
a42:=999 - (a33 * a37);
a43:=999 - (a34 * a37);
a44:=999 - (a35 * a37);
a45:=999 - (a36 * a37);
DRAWRECTREL(0,100,400,1000,6566450),colorRed;
DRAWTEXTREL(6,900,'機構'),ColorDDFFFF;
DRAWTEXTREL(88,900,'大戶'),ColorDDFFFF;
DRAWTEXTREL(168,900,'中戶'),ColorDDFFFF;
DRAWTEXTREL(248,900,'散戶'),ColorDDFFFF;
DRAWRECTREL(40,a38,60,1000,250),colorYelLOW;
DRAWRECTREL(60,a39,80,1000,9213440),colorYelLOW;
DRAWRECTREL(120,a40,140,1000,250),colorYelLOW;
DRAWRECTREL(140,a41,160,1000,9213440),colorYelLOW;
DRAWRECTREL(200,a42,220,1000,250),colorYelLOW;
DRAWRECTREL(220,a43,240,1000,9213440),colorYelLOW;
DRAWRECTREL(280,a44,300,1000,250),colorYelLOW;
DRAWRECTREL(300,a45,320,1000,9213440),colorYelLOW;
DRAWTEXTREL(2,120,'機構買:'+NUMTOSTR(a16)+'%'+' 大戶買:'+NUMTOSTR(a18)+'%'+' 中戶買:'+NUMTOSTR(a20)+'%'+' 散戶買:'+NUMTOSTR(a22)+'%'),colorRed;
DRAWTEXTREL(2,200,'機構賣:'+NUMTOSTR(a17)+'%'+' 大戶賣:'+NUMTOSTR(a19)+'%'+' 中戶賣:'+NUMTOSTR(a21)+'%'+' 散戶賣:'+NUMTOSTR(a23)+'%'),colorGreen;
DRAWTEXTREL(2,280,'機構差:'+NUMTOSTR(a25)+'%'+' 大戶差:'+NUMTOSTR(a26)+'%'+' 中戶差:'+NUMTOSTR(a27)+'%'+' 散戶差:'+NUMTOSTR(a28)+'%'),colorWhite;
DRAWTEXTREL(2,360,'主力差:'+NUMTOSTR(a24)+'%'),colorWhite;
DRAWTEXTREL(10,800,'㊣十二星座*神獒贏富㊣'),LINETHICK1,COLOR00EEff;
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
{神獒集中度公式源碼}{副圖}{大智慧L2新一代公式}
a1:=BIGORDER(1,2);
a2:=BIGORDER(2,2);
a3:=(((a1 - a2) * VOL) / CAPITAL) * 500;
a4:=ORDER(1) + a3;
STICKLINE((CLOSE > 0),0,a4,2,0),colorGreen;
a5:=ORDER(2) + a3;
STICKLINE((CLOSE > 0),0,a5,2,-500),colorRed;
BM1:MA(a5,10);
SM2:MA(a4,30);
DRAWTEXTREL(10,10,'㊣十二星座*神獒贏富㊣'),LINETHICK1,COLOR00EEff;
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
神獒炎律公式源碼：
input:N(5,1,100);
幅度:=ABS((C-ref(C,1))/ref(C,1));
轉折:=IF(C>=O,幅度,0-幅度);
變異速度:=轉折*1000000/INDEXC;
神獒:SUM(變異速度,n),LINETHICK2,COLORRED;
定律:SUM(0-變異速度,n),LINETHICK2,coloryelLOW;
LC:=ref(CLOSE,1);
DIFF:= EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:= EMA(DIFF,9);
MACD:= 2*(DIFF-DEA);
容量比率:=SUM(IF(CLOSE>LC,VOL,0),26)*100/SUM(IF(CLOSE<=LC,VOL,0),26);
審判:(容量比率<70 OR CROSS(DIFF,DEA)) AND CROSS(神獒,定律) AND C/L>1.02,LINETHICK2,colorwhite;
DRAWICON(審判,0,7);
Var1:=EMA(HHV(HIGH,500),21);
Var2:=EMA(HHV(HIGH,250),21);
Var3:=EMA(HHV(HIGH,90),21);
Var4:=EMA(LLV(LOW,500),21);
Var5:=EMA(LLV(LOW,250),21);
Var6:=EMA(LLV(LOW,90),21);
Var7:=EMA((Var4*0.96+Var5*0.96+Var6*0.96+Var1*0.558+Var2*0.558+Var3*0.558)/6,21);
Var8:=EMA((Var4*1.25+Var5*1.23+Var6*1.2+Var1*0.55+Var2*0.55+Var3*0.65)/6,21);
Var9:=EMA((Var4*1.3+Var5*1.3+Var6*1.3+Var1*0.68+Var2*0.68+Var3*0.68)/6,21);
VarA:=EMA((Var7*3+Var8*2+Var9)/6*1.738,21);
VarB:=ref(LOW,1);
VarC:=SMA(ABS(LOW-VarB),3,1)/SMA(MAX(LOW-VarB,0),3,1)*100;
VarD:=EMA(IF(CLOSE*1.35<=VarA,VarC*10,VarC/10),3);
VarE:=LLV(LOW,30);
VarF:=HHV(VarD,30);
Var10:=IF(MA(CLOSE,58),1,0);
神炎:EMA(IF(LOW<=VarE,(VarD+VarF*2)/2,0),3)/618*Var10,coloryelLOW;
邪炎:=STICKLINE(神炎>0 ,0 ,神炎 ,4 ,1);
㊣:神炎,colorred;
STICKLINE(神炎>0,0 ,㊣*1.2,8,0 ),COLOR00EEff;
STICKLINE(神炎>0,0 ,㊣*0.8,8,0 ),COLOR00BBff;
STICKLINE(神炎>0,0 ,㊣*0.6,8,0 ),COLOR0099ff;
STICKLINE(神炎>0,0 ,㊣*0.4,8,0 ),COLOR0066ff;
STICKLINE(神炎>0,0 ,㊣*0.2,8,0 ),COLOR0000ff;
M5:=EMA(C,43);
M6:=EMA(C,55);
M7:=MA(C,78);
M8:=EMA(M7,3);
M9:=EMA(M8,3);
M11:=EMA(M9,3);
MA47:=EMA(CLOSE,46);
MA60:=EMA(CLOSE,60);
Y:=(H+L)/2;
AO:=MA(Y,5)-MA(Y,34 );
DU0:=CROSS(AO,0);
UD0:=CROSS(0,AO);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=ref(DU0,1);
UD3:=ref(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF(TDU3<TUD3,ref(HHV(H,2),TDU3),ref(LLV(L,2),TUD3));
JDU0:=ref(C,1)<=ref(UDGLINE,1) AND C>UDGLINE AND TDU0<TUD0;
JUD0:=ref(C,1)>=ref(UDGLINE,1) AND C<UDGLINE AND TUD0<TDU0;
JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;
JDU2:=JDU1 AND ref(BARSLAST(JUD1),1)<ref(BARSLAST(JDU1),1);
JUD2:=JUD1 AND ref(BARSLAST(JUD1),1)>ref(BARSLAST(JDU1),1);
JDU3:=JDU1 AND ref(BARSLAST(JUD1),1)>ref(BARSLAST(JDU1),1);
JUD3:=JUD1 AND ref(BARSLAST(JUD1),1)<ref(BARSLAST(JDU1),1);
㊣神:JDU2 AND M9*0.90,colorwhite;
DRAWTEXT(㊣神,(LOW * 0.98),'㊣'),LINETHICK2,ALIGN1,coloryelLOW;
DRAWTEXTREL(10,800,'㊣十二星座*神獒贏富㊣'),LINETHICK1,COLOR00EEff;
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
{㊣神獒掌控公式源碼㊣}
input:N(88,1,1111),N1(888,1,1111);
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
a1:=IF((CLOSE < 800),((AMOUNT / VOL) / 100),((((CLOSE * 2) + HIGH) + LOW) / 4));
a2:=((HHV(HIGH,15)) + (LLV(LOW,30))) / 2;
a3:=EMA((MA(a1,5)),10);
a4:=EMA((MA(a1,15)),10);
a5:=EMA((MA(a1,13)),21);
a6:=((a3 + a4) + a5) / 3;
決策線:EMA((MA(CLOSE,5)),3),colorGreen;
PARTLINE(決策線,決策線 > (ref(決策線,3)),RGB(255,0,0)),LINETHICK1,colorRed;
多空帶:((((ref(a6,1)) + a6) + (ref(a6,2))) / 3),LINETHICK0;
a7:=(((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 1.191;
a8:=(((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 1.236;
a9:=(((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 0.809;
a10:=(((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 0.764;
a11:=(((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 0.618;
地線:(a9),LINETHICK1,ColoryelLOW;
天線:(a7),LINETHICK1,ColorFF0000;
支撐線:(a10),LINETHICK2,Color73740F;
阻力線:(a8),LINETHICK2,Color509046;
a12:=((EMA((MA(a1,3)),3)) + (WMA(a1,5))) / 2;
a13:=ref(a12,1);
a14:=BARSCOUNT(CLOSE);
a15:=IF((a14 = 1),0,(((a12 - a13) / a13) * 100));
a16:=ref(CLOSE,1);
a17:=IF((a14 = 1),0,(((CLOSE - a16) / a16) * 100));
a18:=IF((a14 = 1),((CLOSE + OPEN) / 2),a13);
a19:=ref(a12,2);
a20:=((a12 + a13) + a19) / 3;
a21:=((ABS((a12 - a20)) + ABS((a13 - a20))) + ABS((a19 - a20))) / 3;
a22:=IF((a14 < 3),0,((a21 / a12) * 100));
a23:=IF((((a15 > 0.5) AND ((a22 > 0.215) OR (LOW > a18))) AND (CLOSE >= OPEN)),1,0);
a24:=IF((((a15 < (0 - 0.3)) AND ((a22 > 0.2) OR (HIGH < a18))) AND ((OPEN >= CLOSE) OR (a17 < -1))),1,0);
FILLRGN((((ref(a6,1)) + a6) + (ref(a6,2))) / 3,(((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 0.985,CLOSE > a2,RGB(250,0,0),CLOSE < a2,RGB(101,0,185));
B:((COUNT(a23,BARSLAST(a24))) = 1) AND a23,LINETHICK0;
D:((COUNT(a24,BARSLAST(a23))) = 1) AND a24,LINETHICK0;
DRAWTEXT(B,(LOW * 0.98),'㊣'),LINETHICK3,ALIGN1,colorWhite;
DRAWTEXT(D,(HIGH * 1.035),'Ｓ'),LINETHICK3,ALIGN1,colorGreen;
STICKLINE(((B > 0) OR (D > 0)),a1,(a1 * 0.998),8,0),ColorFF0000;
a25:=(EMA(CLOSE,12)) - (EMA(CLOSE,26));
a26:=EMA(a25,9);
a27:=2 * (a25 - a26);
a28:=IF((((((((ref(a27,1)) < (ref(a27,2))) AND ((ref(a27,2)) < (ref(a27,3)))) AND (a27 > (ref(a27,1)))) AND (a27 >= 0)) AND ((LLV(a27,4)) > 0)) AND (COUNT((a27 < 0.18),5))),(a27 * 2),0);
a29:=IF(((COUNT((CROSS(a26,a25)),8)) AND (CROSS(a25,a26))),(a27 * 4),0);
a30:=(a28 > 0) AND (CLOSE >= (((ref(a6,1)) + a6) + (ref(a6,2))) / 3);
DRAWICON(a30,LOW,12),ALIGN1;
a31:=(((CLOSE / a16) - 1) * 100) >= 7;
a32:=HIGH - ((HIGH - LOW) / 3);
a33:=LOW + ((HIGH - LOW) / 3);
a34:=(CLOSE > 0) AND a31;
a35:=((HIGH - LOW) * 0.618) + LOW;
a36:=((HIGH - LOW) * 0.382) + LOW; {文章來至程序化交易網 cxh99.com}
STICKLINE(a34,a32,a33,8,0),colorYelLOW;
STICKLINE(a34,((HIGH + LOW) / 2),((HIGH + LOW) / 2),8,0);
STICKLINE(a34,CLOSE,a35,8,0),colorRed;
STICKLINE(a34,CLOSE,a35,7,0),Color1414FF;
STICKLINE(a34,CLOSE,a35,6,0),Color2828FF;
STICKLINE(a34,CLOSE,a35,5,0),Color3D3DFF;
STICKLINE(a34,CLOSE,a35,4,0),Color5151FF;
STICKLINE(a34,CLOSE,a35,3,0),Color6565FF;
STICKLINE(a34,CLOSE,a35,2,0),Color7A7AFF;
STICKLINE(a34,CLOSE,a35,1,0),Color8E8EFF;
STICKLINE(a34,a36,OPEN,8,0),colorGreen;
STICKLINE(a34,a36,OPEN,7,0),Color28FF28;
STICKLINE(a34,a36,OPEN,6,0),Color3DFF3D;
STICKLINE(a34,a36,OPEN,5,0),Color51FF51;
STICKLINE(a34,a36,OPEN,4,0),Color65FF65;
STICKLINE(a34,a36,OPEN,3,0),Color7AFF7A;
STICKLINE(a34,a36,OPEN,2,0),Color8EFF8E;
STICKLINE(a34,a36,OPEN,1,0),ColorA2FFA2;
a37:=((CLOSE - (EMA(a1,25))) / (EMA(a1,25))) * 100;
DRAWTEXT(((a37 > 12) AND (CROSS(決策線,CLOSE))),HIGH,'賣出');
a38:=BIGORDER(1,2);
a39:=BIGORDER(2,2);
a40:=(((a38 - a39) * VOL) / CAPITAL) * 500;
DRAWTEXT(((a40 > 0.5) OR (LAST((a40 > 0)) > 1)),((((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 1.002),'● '),colorYelLOW;
DRAWTEXT((a40 > 1),((((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 1.002),'★'),ColorFF0087;
DRAWTEXT((a40 > 2),((((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 1.002),'★'),colorBlack;
DRAWTEXT((((((ref(a40,1)) >= (HHV(a40,20))) AND (a40 >= (LLV(a40,20)))) AND ((ref(a40,1)) > 2.5)) AND (a40 < -2.5)),(HIGH * 1.02),'◤反轉'),colorGreen;
DRAWTEXT(((((OPEN / a16) > 1.03) AND (CLOSE < OPEN)) AND (a40 < 0)),HIGH,'出貨'),colorMAgenta;
a41:=LOW < a11;
DRAWICON(a41,LOW,1);
DRAWICON((((CROSS(CLOSE,(ref(a9,1)))) AND (a15 < -3)) OR (((LOW < 支撐線) AND (CLOSE > 支撐線)) AND (a15 < -3.5))),LOW,7),ALIGN1;
DRAWICON(((CROSS((ref(a7,1)),CLOSE)) AND (a40 < 0)),(HIGH * 1.015),8),ALIGN1;
DRAWTEXT(((CROSS(CLOSE,(ref(a9,1)))) AND (a40 > 0)),LOW,'1/3倉'),colorMAgenta;
DRAWTEXT(((CROSS((ref(a7,1)),CLOSE)) AND (a40 < 0)),(HIGH * 1.05),'1/3倉出'),Color00DB00;
DRAWTEXT((CROSS(CLOSE,(ref(a10,1)))),(LOW * 0.96),'倉1/2'),colorYelLOW;
DRAWTEXT((CROSS(CLOSE,(ref(((((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 0.681),1)))),(LOW * 0.98),'1/2倉'),Color005EFF;
STICKLINE(((CLOSE > 0) AND (DISPSTATUS = 2)),((((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 1.15),((((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 1.15),20,0),colorWhite;
STICKLINE(((CLOSE > 0) AND (DISPSTATUS = 2)),((((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 0.85),((((ref(a6,1)) + a6) + (ref(a6,2))) / 3 * 0.85),20,0);
DRAWTEXT(a41,HIGH,'滿倉出擊');
a42:=(CYC(8) - (ref(CYC(8),1))) / (ref(CYC(8),1));
a43:=((SMA((MAX((CLOSE - a16),0)),5,1)) / (SMA(ABS((CLOSE - a16)),5,1))) * 100;
DRAWTEXT(((((CROSS(90,a43)) AND (a40 < 0)) AND ((CLOSE / OPEN) <= 0.985)) OR (((a43 > 90) AND (a40 < 0)) AND ((CLOSE / OPEN) <= 0.985))),(HIGH * 1.04),'▼'),ALIGN1,colorGreen;
DRAWTEXT(((((CROSS(a43,10)) AND (a40 > 0)) OR ((a43 < 10) AND (a40 > 0))) OR (((LOW < 支撐線) AND (CLOSE > 支撐線)) AND (a40 > 0))),(LOW * 0.97),'▲'),ALIGN1,colorRed;
DRAWTEXT(((CROSS(a43,10)) AND (a15 < -4)),(LOW * 0.92),'◢◣'),ALIGN1,colorRed;
DRAWTEXT((((a15 < -5) AND (a37 < -24)) AND (a43 < 12)),(LOW * 0.95),'▲'),ALIGN1,colorMAgenta;
DRAWTEXT(((((a15 < -3) AND (a40 > 0)) AND (LOW <= 地線)) AND (CLOSE > 地線)),(LOW * 0.94),'◆'),ALIGN1,colorYelLOW;
DRAWTEXT(((CLOSE > 0) AND (DISPSTATUS = 2)),(決策線 * 0.9),'多空價：'+ref(a6,1)),MOVE10,ALIGN2,colorYelLOW;
DRAWTEXT(((CLOSE > 0) AND (DISPSTATUS = 2)),(a7 * 1.05),'天線：'+a7),MOVE10,ALIGN2,ColorFF8748;
DRAWTEXT(((CLOSE > 0) AND (DISPSTATUS = 2)),(a9 * 0.96),'地線：'+a9),MOVE10,ALIGN2,Color766A6C;
DRAWTEXT(((CLOSE > 0) AND (DISPSTATUS = 2)),(決策線 * 0.95),'決策價：'+決策線),MOVE10,ALIGN2,colorRed;
PARTLINE(支撐線,(MA(a1,10)) > (MA(a1,240)),RGB(255,0,255)),LINETHICK2,colorMAgenta;
a44:=LOW > (ref(HIGH,1));
a45:=HIGH < (ref(LOW,1));
PARTLINE(地線,(MA(a1,10)) > (MA(a1,72)),RGB(255,255,0)),LINETHICK1,colorYelLOW;
DRAWTEXT(a44,((ref(HIGH,1)) * 1.003),'─'),ALIGN1,colorWhite;
DRAWTEXT(a44,(LOW * 1.003),'─'),ALIGN1,colorWhite;
DRAWTEXT(a45,((ref(LOW,1)) * 1.003),'─'),ALIGN1,colorGreen;
DRAWTEXT(a45,(HIGH * 1.003),'─'),ALIGN1,colorGreen;
DRAWTEXTREL(0,0,'評級:'+Extrastring('評級')),colorCyan;
DRAWTEXTABS(1,15,'所屬板塊:'+BKNAME),ColorAFFF00;
DRAWTEXTREL(0,130,'每股收益:'+NUMTOSTRN(FINANCE2(3),3)+'元'+' 市盈率:'+NUMTOSTRN(DYNAINFO(39),2)+'元'+' 市凈率:'+NUMTOSTRN((CLOSE / FINANCE2(4)),2)+'元'+' 凈資產:'+NUMTOSTRN(FINANCE2(4),2)+'元'),Color00C0FF;
{贏富排序公式源碼}{副圖}{大智慧L2新一代公式}
input:N(1,1,60);
a1:=(BIGORDER(1,2)) - (BIGORDER(2,2));
a2:=(BIGORDER(1,3)) - (BIGORDER(2,3));
a3:=((BIGORDER(1,2)) - (BIGORDER(1,3))) * VOL;
a4:=((BIGORDER(2,2)) - (BIGORDER(2,3))) * VOL;
a5:=a2 * VOL;
a6:=a3 - a4;
a7:=a1 * VOL;
a8:=(1 - (BIGORDER(1,1))) - (1 - (BIGORDER(2,1)));
a9:=(BIGORDER(1,1)) - (BIGORDER(1,2));
a10:=(BIGORDER(2,1)) - (BIGORDER(2,2));
a11:=a9 - a10;
a12:=a11 * VOL;
a13:=a8 * VOL; {本文來至CXH99.COM}
a14:=((a13 * 9) + a12) / 10;
a15:=(100 * a14) / CAPITAL;
a16:=SUM(a15,0);
a17:=(100 * a5) / CAPITAL;
a18:=SUM(a17,0);
a19:=(100 * a6) / CAPITAL;
a20:=SUM(a19,0);
a21:=((a6 * 4) + (a5 * 6)) / 10;
a22:=(100 * a21) / CAPITAL;
a23:=SUM(a22,0);
主力排序:PERCENTBAR(a23,(ref(a23,N)));
機構排序:PERCENTBAR(a18,(ref(a18,N)));
大戶排序:PERCENTBAR(a20,(ref(a20,N)));
散戶排序:PERCENTBAR(a16,(ref(a16,N)));
{機構買盤}{副圖}{大智慧L2新一代公式}
a1:=(BIGORDER(1,3)) * VOL;
a2:=(BIGORDER(2,3)) * VOL;
a3:=((BIGORDER(1,2)) - (BIGORDER(1,3))) * VOL;
a4:=((BIGORDER(2,2)) - (BIGORDER(2,3))) * VOL;
a5:=(BIGORDER(1,2)) * VOL;
a6:=(BIGORDER(2,2)) * VOL;
a7:=((a3 * 4) + (a1 * 11)) / 15;
a8:=(100 * a7) / CAPITAL;
a9:=(100 * a5) / (a5 + a6);
a10:=IF((a9 >= 50),a8,0);
機構買盤:PERCENTBAR(a10,(a10 * 0.96));