“墨軒分時(shí) A”(A代表主圖)的源碼: {編碼} DRAWTEXT_FIX(ISLASTBAR,0,0.12,0,CODE),COLORYELLOW;
DRAWKLINE(H,O,L,C);
前量:="FSKY1.前量#DAY"; 昨量:="FSKY1.昨量#DAY"; 今量:="FSKY1.今量#DAY"; 前總:=前量; 昨總:=昨量; 總:=今量,NODRAW; BMM:=MAX(前總,昨總); AMM:=IF(總/BMM>2,BMM*3,BMM); MM:=200/AMM; KP:=DYNAINFO(4); ZX:=DYNAINFO(7); A01:=IF(ZX>=KP,355,0); A02:=IF(ZX>=KP,0,355); A03:=IF(ZX>=KP,0,0); DRAWRECTREL(0,0,MM*今量,110,RGB(A01,A02,A03)); DRAWTEXT_FIX(1,0,0.05,0,STRCAT(STRCAT('今天能量 ',CON2STR((今量/10000),2)),'')),COLORWHITE;
{沖天炮} 實(shí)量:=SUM(VOL,FROMOPEN); 虛擬量:=實(shí)量*240/FROMOPEN; SZB:=實(shí)量/10000; XZB:=虛擬量/10000; 大單買:=SUM(IF(CLOSE>=REF(CLOSE,1) AND VOL>=500,VOL,0),FROMOPEN); 大單賣:=SUM(IF(CLOSE<REF(CLOSE,1) AND VOL>=500,VOL,0),FROMOPEN); ZB1:=大單買/實(shí)量*100; ZB2:=大單賣/實(shí)量*100; DRAWRECTREL(530,CONST(100-ZB1)*1000/100,560,1000,90); DRAWRECTREL(560,CONST(100-ZB2)*1000/100,590,1000,RGB(0,255,0)); DRAWTEXT_FIX(1,0.300,0.88,0,STRCAT(STRCAT('【大單買】',CON2STR(ZB1,2)),'%')),COLORYELLOW; DRAWTEXT_FIX(1,0.300,0.92,0,STRCAT(STRCAT('【大單賣】',CON2STR(ZB2,2)),'%')),COLORYELLOW; 小單買:=SUM(IF(CLOSE>=REF(CLOSE,1) AND VOL<500,VOL,0),FROMOPEN); 小單賣:=SUM(IF(CLOSE<REF(CLOSE,1) AND VOL<500,VOL,0),FROMOPEN); ZB3:=小單買/實(shí)量*100; ZB4:=小單賣/實(shí)量*100; DRAWRECTREL(590,CONST(100-ZB3)*1000/100,620,1000,90); DRAWRECTREL(620,CONST(100-ZB4)*1000/100,650,1000,RGB(0,255,0)); DRAWTEXT_FIX(1,0.650,0.88,0,STRCAT(STRCAT('【小單買】',CON2STR(ZB3,2)),'%')),COLORYELLOW; DRAWTEXT_FIX(1,0.650,0.92,0,STRCAT(STRCAT('【小單賣】',CON2STR(ZB4,2)),'%')),COLORYELLOW;
均價(jià):SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK2; 現(xiàn)價(jià):CLOSE,COLORWHITE,LINETHICK2; DRAWTEXT( ISLASTBAR AND 現(xiàn)價(jià),現(xiàn)價(jià),STRCAT('←',CON2STR(現(xiàn)價(jià),2))),COLORYELLOW; 現(xiàn)價(jià)線:DYNAINFO(7),DOTLINE,COLORYELLOW;
A024:DYNAINFO(3)*0.9568 COLORCYAN ,LINETHICK1; DRAWNUMBER(ISLASTBAR,A024,A024),COLORCC0099 ,COLORCYAN; A026:DYNAINFO(3)*1.0714,COLORRED ,LINETHICK1; DRAWNUMBER(ISLASTBAR,A026,A026),COLORCC0099 ,COLORRED; A023:DYNAINFO(3)*1.0432,COLORCYAN ,LINETHICK1; DRAWNUMBER(ISLASTBAR,A023,A023),COLORCC0099 ,COLORCYAN; DRAWICON(LONGCROSS(C,A023,2) AND C<ZTPRICE(REF(CLOSE,1),0.1),C+0.1,28); A025:DYNAINFO(3)*1.0864,COLORYELLOW ,LINETHICK1; DRAWNUMBER(ISLASTBAR,A025,A025),COLORCC0099,COLORYELLOW; DRAWICON(LONGCROSS(C,A025,2) AND C<ZTPRICE(REF(CLOSE,1),0.1),C+0.1,29); A030:DYNAINFO(3)*0.9136,COLORYELLOW ,LINETHICK1; DRAWNUMBER(ISLASTBAR,A030,A030),COLORGREEN;
{均價(jià)線上紅球、笑臉} 均價(jià)11:SUM(CLOSE*VOL,240)/SUM(VOL,240),COLORRED,LINETHICK2; X_85:=(EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100; X_86:=BETWEEN(CLOSE/(SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(VOL*100,BARSCOUNT(CLOSE))),1.05,0.95); X_87:=IF(X_86=0,MA(CLOSE,BARSCOUNT(CLOSE)),SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(VOL*100,BARSCOUNT(CLOSE))); DRAWICON(CROSS(EXPMA(X_85,120)-0.0004,EXPMA(X_85,200)),均價(jià)11,13); DRAWICON(CROSS(CLOSE/X_87,1.03),均價(jià)11,5);
{金蘭分時(shí),放到分時(shí)主圖} 預(yù)警線:"重心.前重心#DAY",COLORRED,CIRCLEDOT; DRAWTEXT(BARSTATUS=1,預(yù)警線*1.005,STRCAT(STRCAT('預(yù)警線:',VAR2STR(預(yù)警線,2)),'元')),COLORRED;
{股價(jià)上的買入?yún)^(qū)間} IF(MACD.DEA<0,C,DRAWNULL),COLORMAGENTA,LINETHICK9;
{南北極} ZGZD0:=IF(C>4,0.0025*FLOOR(C),0.01); ZGZD1:CONST(IF(COUNT(C>=CONST(HHV(C,0)),999)>=4,CONST(HHV(C,0)),IF(COUNT(C>=CONST(HHV(C,0))-ZGZD0,999)>=4,CONST(HHV(C,0))-ZGZD0,IF(COUNT(C>=CONST(HHV(C,0))-2*ZGZD0,999)>=4,CONST(HHV(C,0))-4*ZGZD0,IF(COUNT(C>=CONST(HHV(C,0))-3*ZGZD0,999)>=4,CONST(HHV(C,0))-3*ZGZD0,IF(COUNT(C>=CONST(HHV(C,0))-4*ZGZD0,999)>=4,CONST(HHV(C,0))-4*ZGZD0,CONST(HHV(C,0))-5*ZGZD0)))))); ZGZD2:CONST(IF(COUNT(C<=CONST(LLV(C,0)),999)>=4,CONST(LLV(C,0)),IF(COUNT(C<=CONST(LLV(C,0))+ZGZD0,999)>=4,CONST(LLV(C,0))+ZGZD0,IF(COUNT(C<=CONST(LLV(C,0))+2*ZGZD0,999)>=4,CONST(LLV(C,0))+4*ZGZD0,IF(COUNT(C<=CONST(LLV(C,0))+3*ZGZD0,999)>=4,CONST(LLV(C,0))+3*ZGZD0,IF(COUNT(C<=CONST(LLV(C,0))+4*ZGZD0,999)>=4,CONST(LLV(C,0))+4*ZGZD0,CONST(LLV(C,0))+5*ZGZD0)))))); DRAWTEXT( ISLASTBAR, ZGZD1,STRCAT(' ←北極出',CON2STR(ZGZD1,2))),COLORYELLOW,LINETHICK9; DRAWTEXT( ISLASTBAR, ZGZD2,STRCAT(' ←南極進(jìn)',CON2STR(ZGZD2,2))),COLORWHITE,LINETHICK9;
{捉牛信號(hào)} {MACD} DIF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIF,9); MACD10:=(DIF-DEA)*2; AA0:=MACD10>00 AND DIF>0 AND DEA>0; NX:=MA(((SLOPE(C,20)*5)+C),10); A100:=HOUR=10 AND MINUTE=0; A20:=HHV(H,30); A30:=BARSLAST(A100); A40:=REF(A20,A30); A50:=CONST(A40); A80:=CLOSE>A50 AND REF(C<=A50,1) AND CLOSE>NX; AB:=FILTER(A80,100); A90:=DYNAINFO(3); AC:=CLOSE<=A90*1.04 AND CLOSE>A90; 量比:=V/REF(MA(V,5),1); XG0:=AA0 AND AB AND AC AND A40>A90 AND 量比>=1; DRAWICON(XG0,A50,23); DRAWTEXT(FILTER(CROSS(C,REF(XG0,1)),10) AND C>REF(XG0,1),C*0.995,'突'),COLORYELLOW; HJ_4:=CLOSE; HJ_05:=(CLOSE-REF(CLOSE,5))/REF(CLOSE,5); BAB1:=STICKLINE(HJ_05>0,DYNAINFO(3),DYNAINFO(3)*(1+HJ_05),0.1,0); BAB2:=STICKLINE(HJ_05<0,DYNAINFO(3),DYNAINFO(3)*(1+HJ_05),0.1,0); HJ_06:=CLOSE/DYNAINFO(3); HJ_07:=FILTER(HJ_05>0.015 AND HJ_05>REF(HJ_05,1)*2 AND VOL>REF(VOL,1)*2 AND CLOSE>REF(CLOSE,1) OR HJ_05>0.025,240); DRAWICON(HJ_07 AND HJ_06<1.06 AND CLOSE>DYNAINFO(3),C,23);{東風(fēng)小圖標(biāo)} DRAWICON(HJ_07 AND HJ_06<1.06 AND CLOSE>DYNAINFO(3),C,1); DRAWTEXT(HJ_07 AND HJ_06<1.06 AND CLOSE>DYNAINFO(3),C,' 啟動(dòng)')COLORGREEN; H01:=MAX(DYNAINFO(3),DYNAINFO(5)); L01:=MIN(DYNAINFO(3),DYNAINFO(6)); P01:=H01-L01; 阻力0:L01+P01*8/9,COLORLIRED,DOTLINE; 支撐0:L01+P01*0.5/9,COLORGREEN,DOTLINE; DRAWTEXT(LONGCROSS(支撐0,C,2),C-0.015,' 買入'),COLOR0000FF;
XG100: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.9998, ' ← 最佳買點(diǎn)'),COLORWHITE;
{牛線與鍋底} LT:=LLVBARS(L,60); LTT:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1); HT:=FINDHIGHBARS(H,LT+1,60,1); 牛線:DRAWLINE(CURRBARSCOUNT=CONST(HT)+1,H,ISLASTBAR,REF(H,HT),0),COLORFF80FF,LINETHICK2; 牛線1:DRAWLINE(CURRBARSCOUNT=CONST(HT)+1,H,ISLASTBAR,REF(H,HT),0),COLORYELLOW,LINETHICK4,POINTDOT; TT0:=BARSLAST(CURRBARSCOUNT=CONST(HT)+1); DRAWTEXT(TT0=0,REF(H,TT0)*1.003,VARCAT(VARCAT('鍋蓋等突破 : ',VAR2STR(REF(H,TT0),2)),'元'))COLORWHITE; DRAWTEXT(LTT=0,L*0.9997,'←鍋底進(jìn)'),COLORYELLOW;
{股價(jià)變色} 地:=DYNAINFO(11)+(DYNAINFO(11)*0.021); 漲停0:IF(DYNAINFO(7)>地,1,0),NODRAW,COLOR0088FF; 漲:=IF(漲停0=1,C+0.0075,DRAWNULL),COLOR8000FF,LINETHICK2; DRAWBAND(漲,RGB(255,211,0),C-0.0075,RGB(255,125,0)); 時(shí)間:=TIME=100000; N:=BARSLAST(時(shí)間); 常數(shù):=CONST(IF(N=0,C,REF(C,N))),COLORGREEN,DOTLINE; CS1:=CONST(IF(N,HHV(H,0),REF(HHV(H,0),N))); CS2:=CONST(IF(N,LLV(L,0),REF(LLV(L,0),N))); STICKLINE(時(shí)間=1,CS1,CS2,1.2,0),COLOR008888; 均價(jià)A:=SUM(V*C,0)/SUM(V,0),COLORYELLOW; CONST(IF(時(shí)間,HHV(H,0),REF(HHV(H,0),N))),COLOR000066,DOTLINE; CONST(IF(時(shí)間,LLV(L,0),REF(LLV(L,0),N))),COLOR006600,DOTLINE; CONST(IF(N,LLV(L,1),REF(LLV(L,0),N))),COLOR888888; CONST(IF(N,HHV(L,1),REF(HHV(L,0),N))),COLOR888888;
{DRAWTEXT_FIX(1,0.01,0.78,0,'左上角能量條要紅、中間沖天炮要高、股價(jià)上穿4.32青線(創(chuàng)業(yè)板8.64紅線)且在4.32線附近有白圈紅箭或有“啟動(dòng)”兩字者是必買股!')COLORWHITE; DRAWTEXT_FIX(1,0.01,0.83,0,'若錯(cuò)失良機(jī)則在回調(diào)后的鍋底買也是不錯(cuò)的選擇,警線、參考線是相對(duì)低點(diǎn),均線上出紅球、笑臉、紅箭頭則可分批買些!')COLORWHITE;}
{支撐B與壓力S} H1:=MAX(DYNAINFO(3),DYNAINFO(5)); L1:=MIN(DYNAINFO(3),DYNAINFO(6)); P1:=H1-L1; 阻力:L1+P1*8/9,COLORLIRED,DOTLINE; 支撐:L1+P1*0.5/9,COLORGREEN,DOTLINE; DRAWICON(LONGCROSS(支撐 ,C,2),C-0.01,7); DRAWICON(LONGCROSS(C,阻力,2) AND C<ZTPRICE(REF(CLOSE,1),0.1),C+0.3,8);
{分時(shí)九轉(zhuǎn)} A1:=C>REF(C,4); NT:=BARSLASTCOUNT(A1); TJ11:=NT=9; TJ13:=ISLASTBAR AND BETWEEN(NT,5,8); AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT; {DRAWTEXT(AY>0,H,VAR2STR(AY,0)),COLORFF00FF;} DRAWTEXT(NT=9,H,'9'),COLORRED; B1:=C<REF(C,4); NT0:=BARSLASTCOUNT(B1); TJ21:=NT0=9 ; TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8); AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0; {DRAWTEXT(AY1>0,L,VAR2STR(AY1,0)),COLORFF00FF;} DRAWTEXT(NT0=9,L,'9'),COLORGREEN;
{ZIG未來(lái)判斷當(dāng)天收市是否強(qiáng)勢(shì),次日收盤前指標(biāo)黃線消失的話,短期上漲趨勢(shì)已壞撤退 } 黃線消失當(dāng)天清:IF(ZIG(MA((H+L)/2,3),3)>REF(ZIG(MA((H+L)/2,3),3),1),ZIG(MA((H+L)/2,3),3),DRAWNULL),COLORLIRED,LINETHICK3;
{向上紅色箭頭} XH:=CROSS(C/ZSTJJ,1.02); DRAWICON(XH,ZSTJJ,1);
{三蝶} BBAQX:DYNAINFO(3)*1.014,LINETHICK2,COLORAAB220; DRAWTEXT( ISLASTBAR, BBAQX,STRCAT(' 蝶',CON2STR(BBAQX,2))),COLORCYAN,LINETHICK9; XX:=SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(V*100,BARSCOUNT(CLOSE)); 黃線1:=EXPMA(CLOSE/XX,20); 粉線:=EXPMA(CLOSE/XX,60); 綠線:=EXPMA(CLOSE/XX,120); XGG:DRAWICON(黃線1>粉線 AND 粉線>綠線 AND C>EXPMA(C,20) AND EXPMA(C,10)>EXPMA(C,20) AND EXPMA(C,20)>EXPMA(C,60) AND 黃線1=HHV(黃線1,30) AND CROSS(黃線1,1.003),BBAQX,30); DRAWICON(XGG,BBAQX*0.99,30); DRAWICON(XGG,BBAQX*0.98,30); XGGS:DRAWTEXT(XGG,BBAQX*0.98,' 放量'),COLORMAGENTA;
{有莊} VAR1:=EMA(EMA(C,13),13); 控盤:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000; JJ:=DYNAINFO(11); P0:=55; S0:=8; M1:=3; 能量:=(EMA(C,S0)-EMA(C,P0))*10; 空頭:=EMA(能量,M1); BTJ11:=(C-JJ)/JJ<-0.03; BTJ2:=控盤>REF(控盤,1) AND 控盤<-0.2; BTJ3:=CROSS(能量,空頭) AND 能量<-0.3; BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,13); DRAWTEXT(BTJ811,C*0.999,'←有莊'),COLORYELLOW;
{止損線} STICKLINE(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95,50,0),COLOR00FFFF; DRAWTEXT(ISLASTBAR,HHV(C,5)*0.94,' 止損價(jià)位'),COLORYELLOW;
{漲停板} 量?jī)r(jià):=(VOL/CLOSE)/3; A2:=SUM((IF(((量?jī)r(jià)>0.20) AND (CLOSE>(REF(CLOSE,1)))),量?jī)r(jià),0)),0); A3:=SUM((IF(((量?jī)r(jià)>0.20) AND (CLOSE<(REF(CLOSE,1)))),量?jī)r(jià),0)),0); 比:=A2/A3; 地0:=DYNAINFO(11)+(DYNAINFO(11)*0.021); 漲停:IF(DYNAINFO(7)>地0,1,0),NODRAW,COLOR0088FF; 漲0:=IF(漲停=1,C+0.0075,DRAWNULL),COLOR8000FF,LINETHICK2; DRAWTEXT_FIX(比>2,0,0.79,0,'漲'),COLORCYAN; DRAWTEXT_FIX(比>2,0,0.87,0,'停'),COLORMAGENTA; DRAWTEXT_FIX(比>2,0,0.95,0,'板'),COLORRED;
{右上角顯示} Z1:=STRCAT(HYBLOCK,' '); Z2:=STRCAT(Z1,DYBLOCK); Z3:=STRCAT(Z2,' '); DRAWTEXT_FIX(ISLASTBAR,0.55,0.01,0,STRCAT(Z3,GNBLOCK)),COLORWHITE;
{有強(qiáng)莊} VAR14:=EMA(EMA(CLOSE,9),9); 主力:=(VAR14-REF(VAR14,1))/REF(VAR14,1)*1000; VAR15:=100*WINNER(CLOSE*0.95); 強(qiáng)莊:VAR15>50 AND COST(85)<CLOSE AND 主力>0,COLORYELLOW,NODRAW; DRAWTEXT(強(qiáng)莊,MA(C,13),'*'),COLORYELLOW,LINETHICK4;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.95,0,'操作要領(lǐng):見(jiàn)B加倉(cāng)、遇S減倉(cāng),賺錢決巧也'),COLORYELLOW;
LTPY:=CAPITAL/1000000; P00:=IF(LTPY>10,3,IF(RANGE(LTPY,5,8),4,IF(RANGE(LTPY,3,5),5,IF(RANGE(LTPY,2,3),8,10)))); 競(jìng)開標(biāo)量:=LTPY/10*P00; DRAWTEXT_FIX(1,0.86,0.95,0,STRCAT(STRCAT('【競(jìng)開標(biāo)量】',CON2STR(競(jìng)開標(biāo)量,2)),'萬(wàn)手')),COLORYELLOW;
{開盤半小時(shí)} XG:HHV(H,480),DOTLINE,COLORRED; T:=BARSCOUNT(C); DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10),HHV(O,T)*0.99,'上突 '),COLORRED; XG1:LLV(H,480),DOTLINE,COLORWHITE; DRAWTEXT(FILTER(CROSS(C,REF(XG1,1)),10),LLV(O,T)*0.992,'下破,'),COLORWHITE; RC:=DYNAINFO( 3); 量比超2:=IF(DYNAINFO(17)>2.5,RC-0.15,DRAWNULL),COLORFF9933; 量比超5:=IF(DYNAINFO(17)>5,RC-0.15,DRAWNULL),COLORBA75FF; DRAWBAND(量比超2,RGB(51,153,255),量比超2+0.015,RGB(51,153,255)); DRAWBAND(量比超5,RGB(255,118,188),量比超5+0.015,RGB(255,118,188)); MZ0:=(BARSLAST(((HOUR=9) AND (MINUTE=31)))+1); 上穿分時(shí):IF(((SETCODE<2) AND (CONST(MZ0)<241)),CONST(IF((TIME<1000),HHV(CLOSE,0),SUM((IF((TIME=1000),1,0)*HHV(CLOSE,0)),0))),DRAWNULL),LINETHICK3,COLORYELLOW; 底支:IF(((SETCODE<2) AND (CONST(MZ0)<241)),CONST(IF((TIME<1000),HHV(CLOSE,0),SUM((IF((TIME=1000),1,0)*LLV(CLOSE,0)),0))),DRAWNULL),LINETHICK2,COLORLIRED; STICKLINE(TIME=931 OR TIME=1000,上穿分時(shí),底支,1,0),COLORYELLOW; 分時(shí)上突:=CROSS(C,上穿分時(shí)); 上突:=C<上穿分時(shí) AND 上穿分時(shí)>底支; DRAWICON(分時(shí)上突,C*0.99,34);
{正向432寫法} SSE1:IF(NOT(CODELIKE('30') OR CODELIKE('68')),DYNAINFO(3)*(1+0.0432),DYNAINFO(3)*(1+0.0432+0.0432)),COLOR80FFFF,LINETHICK1; DRAWTEXT(BARSTATUS=1,SSE1*1.00,STRCAT(STRCAT('+四三二:',VAR2STR(SSE1,2)),'元')),COLORYELLOW;
{負(fù)向432寫法} SSE2:IF(NOT(CODELIKE('30') OR CODELIKE('68')),DYNAINFO(3)*(1-0.0432),DYNAINFO(3)*(1-0.0432-0.0432)),COLOR80FFFF,LINETHICK1; DRAWTEXT(BARSTATUS=1,SSE2*1.00,STRCAT(STRCAT('-四三二:',VAR2STR(SSE2,2)),'元')),COLORYELLOW;
開額:=DYNAINFO(15); 開價(jià):=DYNAINFO(4); 開量:=開額/開價(jià)/100/10000; DRAWTEXT_FIX(1,0.86,0.90,0,STRCAT(STRCAT('【開 量】',CON2STR(開量,2)),'萬(wàn)手')),COLORYELLOW; LTPY0:=CAPITAL/1000000; P:=IF(LTPY>10,3,IF(RANGE(LTPY0,5,8),4,IF(RANGE(LTPY0,3,5),5,IF(RANGE(LTPY0,2,3),8,10)))); 競(jìng)開標(biāo)量0:=LTPY0/10*P; DB:=IF(EXIST(開量>競(jìng)開標(biāo)量0#DAY,1),1,0); DRAWTEXT_FIX(DB,0.45,0.01,0,STRCAT('達(dá)標(biāo)',CON2STR(DB,0))),COLORRED; |