设为首页收藏本站伏击涨停
切换到窄版

 立即登录
 立即注册

QQ登录

只需一步，快速开始

股海明灯官网»量学论坛 › 入门与提高 › 新人新帖 › 怎么看待黑马王子的《量柱擒涨停》?
广告载入中...
1234567下一页
返回列表 发新帖
楼主: ablya

怎么看待黑马王子的《量柱擒涨停》?

[复制链接]
 楼主| 发表于 2026-6-10 18:49 | 显示全部楼层
{MACD数柱子}
DIF:=EMA(C,12)-EMA(C,26);DEA:=EMA(DIF,9);
BAR:=IF(DIF>DEA,BARSLAST(CROSS(DIF,DEA))+1,IF(DEA>DIF,-(BARSLAST(CROSS(DEA,DIF))+1),DRAWNULL));
回复

使用道具 举报

 楼主| 发表于 2026-6-12 03:57 | 显示全部楼层
K:=BARSLAST(DATE<>REF(DATE,1));
M1:=MA(C,5);M2:=MA(C,10);M3:=MA(C,20);
M4:=MA(C,60);M5:=MA(C,120);M6:=MA(C,250);
M7:=TIME<=1030;
M8:=M1>M2 AND M2>M3;
M9:=MAX(M4,MAX(M5,M6));
M10:=CROSS(H,M9);
M11:=BARSLAST(M10);
M12:=COUNT(M8,M11)>=M11;
M13:=MAX(MIN(M4,M5),MIN(MAX(M4,M5),M6));
M14:=CROSS(COUNT(CROSS(M2,M13),M11)=1,0.1);
FINANCE(3)=1 AND M6=M9 AND M7 AND M12 AND M14 AND C<15 AND CAPITAL<35000000 ;
回复

使用道具 举报

 楼主| 发表于 2026-6-13 12:43 | 显示全部楼层
{计算明天高低点价}
ZFF:=C/REF(C,1);{涨幅}
X1:=(H*2+L+C)/2;{阳线涨}
X2:=(L*2+H+C)/2;{阴线跌}
X3:=(C*2+H+L)/2;{十字星}
JZ:=IF(ZFF>1.00236,X1,IF(ZFF<0.99764,X2,X3));
明天高:JZ-L;
明天低:JZ-H;
回复

使用道具 举报

 楼主| 发表于 2026-6-13 12:46 | 显示全部楼层
{计算大盘明天压力位支撑位}
BL:=(DYNAINFO(4)+DYNAINFO(5)+DYNAINFO(6)+DYNAINFO(7))/4-DYNAINFO(6);{  (o+h+l+c)/4-l  }
DRAWTEXT_FIX(1,0.85,0.8,0,STRCAT(STRCAT('波动率 ',VAR2STR(BL,2)),'点')),COLORYELLOW;
DRAWTEXT_FIX(1,0.85,0.9,0,STRCAT('明支撑  ',VAR2STR(DYNAINFO(7)-BL,2))),COLORRED;
DRAWTEXT_FIX(1,0.85,0.68,0,STRCAT('明压力  ',VAR2STR(DYNAINFO(7)+BL,2))),COLORMAGENTA;
回复

使用道具 举报

 楼主| 发表于 2026-6-13 13:04 | 显示全部楼层
{个股明天压力支撑}
JZ1:=(O+C+H+L)/4-L;
压力:C+JZ1,COLORMAGENTA,NODRAW;
支撑:C-JZ1,COLORGREEN,NODRAW;
回复

使用道具 举报

 楼主| 发表于 2026-6-13 13:12 | 显示全部楼层
{个股今明天压力支撑}
JZ0:=(REF(O,1)+REF(C,1)+REF(H,1)+REF(L,1))/4-REF(L,1);
今压力:REF(C,1)+JZ0,COLORMAGENTA,NODRAW;
今支撑:REF(C,1)-JZ0,COLORGREEN,NODRAW;
JZ1:=(O+C+H+L)/4-L;
明压力:C+JZ1,COLORMAGENTA,NODRAW;
明支撑:C-JZ1,COLORGREEN,NODRAW;
回复

使用道具 举报

 楼主| 发表于 2026-6-13 14:53 | 显示全部楼层
{计算明天高低点价}
ZFF:=C/REF(C,1);{涨幅}
X1:=(H*2+L+C)/2;{阳线涨}
X2:=(L*2+H+C)/2;{阴线跌}
X3:=(C*2+H+L)/2;{十字星}
JZ:=IF(ZFF>1.00236,X1,IF(ZFF<0.99764,X2,X3));
明天高:JZ-L,COLORMAGENTA,NODRAW;明天低:JZ-H,COLORGREEN,NODRAW;
{个股今明天压力支撑}
JZ0:=(REF(O,1)+REF(C,1)+REF(H,1)+REF(L,1))/4-REF(L,1);
今压力:REF(C,1)+JZ0,COLORMAGENTA,NODRAW;今支撑:REF(C,1)-JZ0,COLORGREEN,NODRAW;
JZ1:=(O+C+H+L)/4-L;
明压力:C+JZ1,COLORMAGENTA,NODRAW;明支撑:C-JZ1,COLORGREEN,NODRAW;
回复

使用道具 举报

 楼主| 发表于 2026-6-13 14:55 | 显示全部楼层
{连续12季盈利}
VAR1:=FINVALUE(95);Q:=INTPART((MONTH+2)/3);
VAR2:=Q=1 OR Q=2 OR Q=3 OR Q=4;
VAR3:=SUMBARS(VAR2,Q+7);
季度盈利:=EVERY(VAR1>0,VAR3);
回复

使用道具 举报

 楼主| 发表于 2026-6-13 17:43 | 显示全部楼层
{只在日线周期显示的ENE轨道线}
UPPER:IF(PERIOD=5,MA(C,10)*(1+9/100),DRAWNULL);
LOWER:IF(PERIOD=5,MA(C,10)*(1-11/100),DRAWNULL);
ENE:IF(PERIOD=5,(UPPER+LOWER)/2,DRAWNULL);
DRAWTEXT(ISLASTBAR,UPPER,VAR2STR(UPPER,2)),COLORWHITE,DRAWABOVE;
回复

使用道具 举报

 楼主| 发表于 2026-6-13 17:52 | 显示全部楼层
{三组趋势线2023    N 1 200  3  RI  1  3000  150}
A1:=FINANCE(42);
A2:=DATETODAY(CONST(DATE));
A3:=A2-A1;
XDATE:=DAYTODATE(A3)+19000000;
SSRQ:=STRCAT(CON2STR(XDATE,0),' ');
{MA250:MA(C,250),COLORBLUE;}
Z1:=STRCAT(DYBLOCK,' ');
Z2:=STRCAT(Z1,HYBLOCK);
Z3:=STRCAT(Z2,' ');
Z4:=STRCAT(Z3,SSRQ);
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z4,GNBLOCK)),COLORWHITE;
{画涨跌停板K线}
STICKLINE(ZT,C,O,-1,0),COLORRED;STICKLINE(DT,C,O,-1,0),COLORGREEN;
{标字}
SYX:=H/MAX(O,C);
DRAWTEXT(SYX>=1.05,H*1.005,VAR2STR(SYX,4)),COLORLIBLUE;
DRAWTEXT(ZT,H*1.02,'涨'),COLORYELLOW;DRAWTEXT(DT,L*0.98,'跌'),COLORYELLOW;
{画假阴真阳K线}
STICKLINE(O>C AND C>REF(C,1),C,O,-1,0),COLORYELLOW;
V1:=IF(BARSSINCE(C)>=60,HHV(V,60),0)=V;
{VJRAWLINE(V1,H,REF(均价,1),REF(均价,1),1),DOTLINE,COLORWHITE;}
VHRAWLINE(V1,H,REF(V1,1),REF(H,1),1),DOTLINE,COLORRED;
VORAWLINE(V1,O,REF(V1,1),REF(O,1),1),COLORYELLOW;
VCRAWLINE(V1,C,REF(V1,1),REF(C,1),1),COLORMAGENTA;
VLRAWLINE(V1,L,REF(V1,1),REF(L,1),1),COLORGREEN;
{VJP:=REFX(VJ=DRAWNULL,1) OR ISLASTBAR;}
VHP:=REFX(VH=DRAWNULL,1) OR ISLASTBAR;
VOP:=REFX(VC=DRAWNULL,1) OR ISLASTBAR;
VCP:=REFX(VC=DRAWNULL,1) OR ISLASTBAR;
VLP:=REFX(VL=DRAWNULL,1) OR ISLASTBAR;
{DRAWTEXT(VJP,VJ+0.01,VAR2STR(VJ,2)),COLORWHITE;}
DRAWTEXT(VHP,VH+0.01,VAR2STR(VH,2)),COLORRED;
DRAWTEXT(VOP,VO+0.02,VAR2STR(VO,2)),COLORYELLOW;
DRAWTEXT(VCP,VC+0.02,VAR2STR(VC,2)),COLORMAGENTA;
DRAWTEXT(VLP,VL-0.01,VAR2STR(VL,2)),COLORGREEN;
{参数 N 0  200  3 }
WN:=N;
WA1:=REF(H,WN)=HHV(H,2*WN+1);
WB1:=FILTER(WA1,WN);
WC1:=BACKSET(WB1,WN+1);
WD1:=FILTER(WC1,WN);
WA2:=REF(L,WN)=LLV(L,2*WN+1);
WB2:=FILTER(WA2,WN);
WC2:=BACKSET(WB2,WN+1);
WD2:=FILTER(WC2,WN);
WE1:=(REF(LLV(L,2*WN),1)+REF(HHV(H,2*WN),1))/2;
WE2:=(H+L)/2;
WH1:=(WD1 AND NOT(WD2 AND WE1>=WE2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
WL1:=(WD2 AND NOT(WD1 AND WE1<WE2));  
WH2:=WD1 AND NOT(WD2 AND WE1>=WE2);
WX1:=REF(BARSLAST(WH1),1)+1;
WF1:=BACKSET(WH1 AND COUNT(WL1,WX1)>0,LLVBARS(IF(WL1,L,10000),WX1));
WG1:=WF1>REF(WF1,1);
WI1:=BACKSET(WG1,2);
WLD:=WI1>REF(WI1,1);
WL2:=WLD OR ISLASTBAR OR BARSCOUNT(C)=1;
WX2:=REF(BARSLAST(WL2),1)+1; WF2:=BACKSET(WL2 AND COUNT(WH2,WX2)>0,HHVBARS(IF(WH2,H,0),WX2));
WG2:=WF2>REF(WF2,1);
WI2:=BACKSET(WG2,2);
WHD:=WI2>REF(WI2,1);
WR1:=BACKSET(ISLASTBAR,BARSLAST(WHD)+1); WS1:=WR1>REF(WR1,1);
WT1:=BACKSET(ISLASTBAR,BARSLAST(WLD)+1); WU1:=WT1>REF(WT1,1);
WR2:=BACKSET(WS1,REF(BARSLAST(WHD),1)+2); WS2:=WR2>REF(WR2,1);
WT2:=BACKSET(WU1,REF(BARSLAST(WLD),1)+2); WU2:=WT2>REF(WT2,1);
WT3:=BACKSET(WU2,REF(BARSLAST(WLD),1)+2); WU3:=WT3>REF(WT3,1);
WT4:=BACKSET(WU3,REF(BARSLAST(WLD),1)+2); WU4:=WT4>REF(WT4,1);
WR3:=BACKSET(WS2,REF(BARSLAST(WHD),1)+2); WS3:=WR3>REF(WR3,1);
WR4:=BACKSET(WS3,REF(BARSLAST(WHD),1)+2); WS4:=WR4>REF(WR4,1);
HS1:=DRAWLINE(WS4,H,WS3,H,1);
HS2:=DRAWLINE(WS3,H, WS2,H,1);
HS3:=DRAWLINE(WS2,H,WS1,H,1);         
LS1:=DRAWLINE(WU4,L,WU3,L,1);
LS2:=DRAWLINE(WU3,L,WU2,L,1);     
LS3:=DRAWLINE(WU2,L,WU1,L,1);
HL1:IF(WN=0,DRAWNULL,HS1),COLORRED;
HL2:IF(WN=0,DRAWNULL,HS2),COLORGREEN;
HL3:IF(WN=0,DRAWNULL,HS3),COLORYELLOW;
LL1:IF(WN=0,DRAWNULL,LS1),DOTLINE,COLORRED;
LL2:IF(WN=0,DRAWNULL,LS2),DOTLINE,COLORGREEN;
LL3:IF(WN=0,DRAWNULL,LS3),DOTLINE,COLORYELLOW;

VAR1:=DATE<>REF(DATE,1);
VAR2:=REFX(VAR1,1); { OR ISLASTBAR}{每日收盘价}
DRAWTEXT(VAR2 AND PERIOD<5,IF(C>=O,C+0.01,C-0.01),VAR2STR(C,2)),COLORWHITE;
{每个高低点价格}
DRAWTEXT(VAR1 AND WS4,H,VAR2STR(H,2)),COLORRED,DRAWABOVE;
DRAWTEXT(VAR1 AND WS3,H,VAR2STR(H,2)),COLORGREEN,DRAWABOVE;
DRAWTEXT(VAR1 AND WS2,H,VAR2STR(H,2)),COLORYELLOW,DRAWABOVE;
DRAWTEXT(VAR1 AND WS1,H,VAR2STR(H,2)),COLORMAGENTA,DRAWABOVE;
DRAWTEXT(VAR1 AND WU4,L*0.995,VAR2STR(L,2)),COLORRED;
DRAWTEXT(VAR1 AND WU3,L*0.995,VAR2STR(L,2)),COLORGREEN;
DRAWTEXT(VAR1 AND WU2,L*0.995,VAR2STR(L,2)),COLORYELLOW;
DRAWTEXT(VAR1 AND WU1,L*0.995,VAR2STR(L,2)),COLORMAGENTA;

S1:=BACKSET(ISLASTBAR,BARSLAST(WS4)+1);
S11:=WS4>REF(WS4,1);
一高:REF(H,BARSLAST(S11)),DOTLINE,COLORLIGRAY;
S2:=BACKSET(ISLASTBAR,BARSLAST(WS3)+1);
S22:=WS3>REF(WS3,1);
二高:REF(H,BARSLAST(S22)),DOTLINE,COLORLIGRAY;
S3:=BACKSET(ISLASTBAR,BARSLAST(WS2)+1);
S33:=WS2>REF(WS2,1);
三高:REF(H,BARSLAST(S33)),DOTLINE,COLORLIGRAY;
S4:=BACKSET(ISLASTBAR,BARSLAST(WS1)+1);
S44:=WS1>REF(WS1,1);
四高:REF(H,BARSLAST(S44)),DOTLINE,COLORLIGRAY;
{黄金分割坐标}
昨前:=0;
高1:=REF(HHV(H,RI),昨前);
低1:=REF(LLV(L,RI),昨前);
H1:=高1-(高1-低1)*0.191;
H2:=高1-(高1-低1)*0.382;
H3:=高1-(高1-低1)*0.5;
H4:=高1-(高1-低1)*0.618;
H5:=高1-(高1-低1)*0.809;
{
底:REFDATE(低1,DATE),DOTLINE,COLORLIGRAY;
一0191:REFDATE(H5,DATE),DOTLINE,COLORYELLOW;
二0382:REFDATE(H4,DATE),DOTLINE,COLORGREEN;
三0500:REFDATE(H3,DATE),DOTLINE,COLORWHITE;
四0618:REFDATE(H2,DATE),DOTLINE,COLORMAGENTA;
五0809:REFDATE(H1,DATE),DOTLINE,COLORYELLOW;
顶:REFDATE(高1,DATE),DOTLINE,COLORRED;
}
星期几:=VARCAT(' 星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',''))))));
日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几);
TY:=BARSLAST(V=V#YEAR)+1;
DRAWTEXT_FIX(ISLASTBAR,0.893,1,0,日期),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.8,1,0,VAR2STR(C*1.1,2)),COLORMAGENTA;
回复

使用道具 举报

 楼主| 发表于 2026-6-13 20:52 | 显示全部楼层
{黄金分割坐标手动  比例  0.01   100   93.82  显示黄金比 0  1  1}
底:=LLV(L,0);顶:=HHV(H,0);
H0:=顶-(顶-底)*(100-比例)/100;
H1:=顶-(顶-底)*(100-80.90)/100;
H2:=顶-(顶-底)*(100-69.10)/100;
H3:=顶-(顶-底)*(100-61.80)/100;
H4:=顶-(顶-底)*(100-50)/100;
H5:=顶-(顶-底)*(100-38.20)/100;
H6:=顶-(顶-底)*(100-30.90)/100;
H7:=顶-(顶-底)*(100-19.10)/100;
H8:=顶-(顶-底)*(100-33.33)/100;
H9:=顶-(顶-底)*(100-66.66)/100;
H10:=顶-(顶-底)*(100-6.18)/100;
底1:IF(显示黄金比=1,REFDATE(底,DATE),DRAWNULL),DOTLINE,COLORLIGRAY;
可调:IF(显示黄金比=1,REFDATE(H0,DATE),DRAWNULL),DOTLINE,COLORRED;
零618:IF(显示黄金比=1,REFDATE(H10,DATE),DRAWNULL),DOTLINE,COLORCYAN;
一191:IF(显示黄金比=1,REFDATE(H7,DATE),DRAWNULL),DOTLINE,COLORYELLOW;
二309:IF(显示黄金比=1,REFDATE(H6,DATE),DRAWNULL),DOTLINE,COLORBLUE;
三382:IF(显示黄金比=1,REFDATE(H5,DATE),DRAWNULL),DOTLINE,COLORGREEN;
四50:IF(显示黄金比=1,REFDATE(H4,DATE),DRAWNULL),DOTLINE,COLORWHITE;
五618:IF(显示黄金比=1,REFDATE(H3,DATE),DRAWNULL),DOTLINE,COLORMAGENTA;
六691:IF(显示黄金比=1,REFDATE(H2,DATE),DRAWNULL),DOTLINE,COLORBLUE;
七809:IF(显示黄金比=1,REFDATE(H1,DATE),DRAWNULL),DOTLINE,COLORYELLOW;
三一:IF(显示黄金比=1,REFDATE(H8,DATE),DRAWNULL),NODRAW,COLORWHITE;
三二:IF(显示黄金比=1,REFDATE(H9,DATE),DRAWNULL),NODRAW,COLORWHITE;
顶1:IF(显示黄金比=1,REFDATE(顶,DATE),DRAWNULL),DOTLINE,COLORRED;
DRAWTEXT(ISLASTBAR,可调,STRCAT(VAR2STR(比例,2),'%')),COLORRED,DRAWABOVE;
回复

使用道具 举报

 楼主| 发表于 2026-6-13 20:55 | 显示全部楼层
{三组趋势线2023    N 1 200  3  RI  1  3000  150}
A1:=FINANCE(42);
A2:=DATETODAY(CONST(DATE));
A3:=A2-A1;
XDATE:=DAYTODATE(A3)+19000000;
SSRQ:=STRCAT(CON2STR(XDATE,0),' ');
{MA250:MA(C,250),COLORBLUE;}
Z1:=STRCAT(DYBLOCK,' ');
Z2:=STRCAT(Z1,HYBLOCK);
Z3:=STRCAT(Z2,' ');
Z4:=STRCAT(Z3,SSRQ);
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z4,GNBLOCK)),COLORWHITE;
{画涨跌停板K线}
STICKLINE(ZT,C,O,-1,0),COLORRED;STICKLINE(DT,C,O,-1,0),COLORGREEN;
{标字}
SYX:=H/MAX(O,C);
DRAWTEXT(SYX>=1.05,H*1.005,VAR2STR(SYX,4)),COLORLIBLUE;
DRAWTEXT(ZT,H*1.02,'涨'),COLORYELLOW;DRAWTEXT(DT,L*0.98,'跌'),COLORYELLOW;
{画假阴真阳K线}
STICKLINE(O>C AND C>REF(C,1),C,O,-1,0),COLORYELLOW;
V1:=IF(BARSSINCE(C)>=60,HHV(V,60),0)=V;
{VJ: DRAWLINE(V1,H,REF(均价,1),REF(均价,1),1),DOTLINE,COLORWHITE;}
VH: DRAWLINE(V1,H,REF(V1,1),REF(H,1),1),DOTLINE,COLORRED;
VO: DRAWLINE(V1,O,REF(V1,1),REF(O,1),1),COLORYELLOW;
VC: DRAWLINE(V1,C,REF(V1,1),REF(C,1),1),COLORMAGENTA;
VL: DRAWLINE(V1,L,REF(V1,1),REF(L,1),1),COLORGREEN;
{VJP:=REFX(VJ=DRAWNULL,1) OR ISLASTBAR;}
VHP:=REFX(VH=DRAWNULL,1) OR ISLASTBAR;
VOP:=REFX(VC=DRAWNULL,1) OR ISLASTBAR;
VCP:=REFX(VC=DRAWNULL,1) OR ISLASTBAR;
VLP:=REFX(VL=DRAWNULL,1) OR ISLASTBAR;
{DRAWTEXT(VJP,VJ+0.01,VAR2STR(VJ,2)),COLORWHITE;}
DRAWTEXT(VHP,VH+0.01,VAR2STR(VH,2)),COLORRED;
DRAWTEXT(VOP,VO+0.02,VAR2STR(VO,2)),COLORYELLOW;
DRAWTEXT(VCP,VC+0.02,VAR2STR(VC,2)),COLORMAGENTA;
DRAWTEXT(VLP,VL-0.01,VAR2STR(VL,2)),COLORGREEN;
{参数 N 0  200  3 }
WN:=N;
WA1:=REF(H,WN)=HHV(H,2*WN+1);
WB1:=FILTER(WA1,WN);
WC1:=BACKSET(WB1,WN+1);
WD1:=FILTER(WC1,WN);
WA2:=REF(L,WN)=LLV(L,2*WN+1);
WB2:=FILTER(WA2,WN);
WC2:=BACKSET(WB2,WN+1);
WD2:=FILTER(WC2,WN);
WE1:=(REF(LLV(L,2*WN),1)+REF(HHV(H,2*WN),1))/2;
WE2:=(H+L)/2;
WH1:=(WD1 AND NOT(WD2 AND WE1>=WE2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
WL1:=(WD2 AND NOT(WD1 AND WE1<WE2));  
WH2:=WD1 AND NOT(WD2 AND WE1>=WE2);
WX1:=REF(BARSLAST(WH1),1)+1;
WF1:=BACKSET(WH1 AND COUNT(WL1,WX1)>0,LLVBARS(IF(WL1,L,10000),WX1));
WG1:=WF1>REF(WF1,1);
WI1:=BACKSET(WG1,2);
WLD:=WI1>REF(WI1,1);
WL2:=WLD OR ISLASTBAR OR BARSCOUNT(C)=1;
WX2:=REF(BARSLAST(WL2),1)+1; WF2:=BACKSET(WL2 AND COUNT(WH2,WX2)>0,HHVBARS(IF(WH2,H,0),WX2));
WG2:=WF2>REF(WF2,1);
WI2:=BACKSET(WG2,2);
WHD:=WI2>REF(WI2,1);
WR1:=BACKSET(ISLASTBAR,BARSLAST(WHD)+1); WS1:=WR1>REF(WR1,1);
WT1:=BACKSET(ISLASTBAR,BARSLAST(WLD)+1); WU1:=WT1>REF(WT1,1);
WR2:=BACKSET(WS1,REF(BARSLAST(WHD),1)+2); WS2:=WR2>REF(WR2,1);
WT2:=BACKSET(WU1,REF(BARSLAST(WLD),1)+2); WU2:=WT2>REF(WT2,1);
WT3:=BACKSET(WU2,REF(BARSLAST(WLD),1)+2); WU3:=WT3>REF(WT3,1);
WT4:=BACKSET(WU3,REF(BARSLAST(WLD),1)+2); WU4:=WT4>REF(WT4,1);
WR3:=BACKSET(WS2,REF(BARSLAST(WHD),1)+2); WS3:=WR3>REF(WR3,1);
WR4:=BACKSET(WS3,REF(BARSLAST(WHD),1)+2); WS4:=WR4>REF(WR4,1);
HS1:=DRAWLINE(WS4,H,WS3,H,1);
HS2:=DRAWLINE(WS3,H, WS2,H,1);
HS3:=DRAWLINE(WS2,H,WS1,H,1);         
LS1:=DRAWLINE(WU4,L,WU3,L,1);
LS2:=DRAWLINE(WU3,L,WU2,L,1);     
LS3:=DRAWLINE(WU2,L,WU1,L,1);
HL1:IF(WN=0,DRAWNULL,HS1),COLORRED;
HL2:IF(WN=0,DRAWNULL,HS2),COLORGREEN;
HL3:IF(WN=0,DRAWNULL,HS3),COLORYELLOW;
LL1:IF(WN=0,DRAWNULL,LS1),DOTLINE,COLORRED;
LL2:IF(WN=0,DRAWNULL,LS2),DOTLINE,COLORGREEN;
LL3:IF(WN=0,DRAWNULL,LS3),DOTLINE,COLORYELLOW;

VAR1:=DATE<>REF(DATE,1);
VAR2:=REFX(VAR1,1); { OR ISLASTBAR}{每日收盘价}
DRAWTEXT(VAR2 AND PERIOD<5,IF(C>=O,C+0.01,C-0.01),VAR2STR(C,2)),COLORWHITE;
{每个高低点价格}
DRAWTEXT(VAR1 AND WS4,H,VAR2STR(H,2)),COLORRED,DRAWABOVE;
DRAWTEXT(VAR1 AND WS3,H,VAR2STR(H,2)),COLORGREEN,DRAWABOVE;
DRAWTEXT(VAR1 AND WS2,H,VAR2STR(H,2)),COLORYELLOW,DRAWABOVE;
DRAWTEXT(VAR1 AND WS1,H,VAR2STR(H,2)),COLORMAGENTA,DRAWABOVE;
DRAWTEXT(VAR1 AND WU4,L*0.995,VAR2STR(L,2)),COLORRED;
DRAWTEXT(VAR1 AND WU3,L*0.995,VAR2STR(L,2)),COLORGREEN;
DRAWTEXT(VAR1 AND WU2,L*0.995,VAR2STR(L,2)),COLORYELLOW;
DRAWTEXT(VAR1 AND WU1,L*0.995,VAR2STR(L,2)),COLORMAGENTA;

S1:=BACKSET(ISLASTBAR,BARSLAST(WS4)+1);
S11:=WS4>REF(WS4,1);
一高:REF(H,BARSLAST(S11)),DOTLINE,COLORLIGRAY;
S2:=BACKSET(ISLASTBAR,BARSLAST(WS3)+1);
S22:=WS3>REF(WS3,1);
二高:REF(H,BARSLAST(S22)),DOTLINE,COLORLIGRAY;
S3:=BACKSET(ISLASTBAR,BARSLAST(WS2)+1);
S33:=WS2>REF(WS2,1);
三高:REF(H,BARSLAST(S33)),DOTLINE,COLORLIGRAY;
S4:=BACKSET(ISLASTBAR,BARSLAST(WS1)+1);
S44:=WS1>REF(WS1,1);
四高:REF(H,BARSLAST(S44)),DOTLINE,COLORLIGRAY;
{黄金分割坐标}
昨前:=0;
高1:=REF(HHV(H,RI),昨前);
低1:=REF(LLV(L,RI),昨前);
H1:=高1-(高1-低1)*0.191;
H2:=高1-(高1-低1)*0.382;
H3:=高1-(高1-低1)*0.5;
H4:=高1-(高1-低1)*0.618;
H5:=高1-(高1-低1)*0.809;
{
底:REFDATE(低1,DATE),DOTLINE,COLORLIGRAY;
一0191:REFDATE(H5,DATE),DOTLINE,COLORYELLOW;
二0382:REFDATE(H4,DATE),DOTLINE,COLORGREEN;
三0500:REFDATE(H3,DATE),DOTLINE,COLORWHITE;
四0618:REFDATE(H2,DATE),DOTLINE,COLORMAGENTA;
五0809:REFDATE(H1,DATE),DOTLINE,COLORYELLOW;
顶:REFDATE(高1,DATE),DOTLINE,COLORRED;
}
星期几:=VARCAT(' 星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',''))))));
日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几);
TY:=BARSLAST(V=V#YEAR)+1;
DRAWTEXT_FIX(ISLASTBAR,0.893,1,0,日期),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.8,1,0,VAR2STR(C*1.1,2)),COLORMAGENTA;
回复

使用道具 举报

 楼主| 发表于 2026-6-13 21:09 | 显示全部楼层
{MACD交易系统 看盘主图}
{每一个|死叉|红色MACD最高柱的最低价|绿色MACD最高柱的最高价|向右划线并在线末端标上最低价100元}
{简介:=STRCAT('简介：',EXTERNSTR(1,10010));DRAWTEXT_FIX(1,0,0,0,简介),COLORGREEN;
简介:=STRCAT('简介：',EXTERNSTR(1,10010));DRAWTEXT_FIX(1,0.00,0.06,0,简介),COLORGREEN;}
UPPER:IF(PERIOD=5,MA(C,10)*(1+9/100),DRAWNULL);
LOWER:IF(PERIOD=5,MA(C,10)*(1-11/100),DRAWNULL);
ENE:IF(PERIOD=5,(UPPER+LOWER)/2,DRAWNULL);
DRAWTEXT(ISLASTBAR,UPPER,VAR2STR(UPPER,2)),COLORWHITE,DRAWABOVE;

VARY1:=EMA(C,12)-EMA(C,26);
VARY2:=EMA(VARY1,9);
VARY3:=2*(VARY1-VARY2);
VARY4:=CROSS(VARY1,VARY2);
VARY5:=CROSS(VARY2,VARY1);
VARY6:=HHVBARS(VARY3,BARSLAST(VARY4)+1);
VARY7:=CROSS(BACKSET(VARY5 OR (ISLASTBAR AND VARY1>VARY2),VARY6+1),0.1);
VARY8:=BARSLAST(VARY7);
VARY9:=REF(L,VARY8);
DRAWSL(1,VARY9,0,1,0),COLORRED;{STICKLINE(1,VARY9,VARY9,2,1),COLORRED;}
DRAWTEXT(REFX(VARY7,1) OR (ISLASTBAR AND REF(VARY1>VARY2,VARY8)),VARY9,VAR2STR(VARY9,2)),COLORRED,DRAWABOVE;
VARY10:=LLVBARS(VARY3,BARSLAST(VARY5)+1);
VARY11:=CROSS(BACKSET(VARY4 OR (ISLASTBAR AND VARY1<VARY2),VARY10+1),0.1);
VARY12:=BARSLAST(VARY11);
VARY13:=REF(H,VARY12);
DRAWSL(1,VARY13,0,1,0),COLORCYAN;
DRAWTEXT(REFX(VARY11,1) OR (ISLASTBAR AND REF(VARY1<VARY2,VARY12)),VARY13,VAR2STR(VARY13,2)),COLORCYAN,DRAWABOVE;
SXRAWLINE(VARY5,H,REF(VARY5,1),REF(H,1),1),COLORYELLOW,DOTLINE;
JG1:=REF(H,BARSLAST(VARY5));
DRAWNUMBER(CURRBARSCOUNT=1 OR (SX!=DRAWNULL AND REFX(SX=DRAWNULL,1)),JG1,JG1),COLORYELLOW,DRAWABOVE;
JXRAWLINE(VARY4,L,REF(VARY4,1),REF(L,1),1),COLORMAGENTA,DOTLINE;
JG2:=REF(L,BARSLAST(VARY4));
DRAWNUMBER(CURRBARSCOUNT=1 OR (JX!=DRAWNULL AND REFX(JX=DRAWNULL,1)),JG2,JG2),COLORMAGENTA,DRAWABOVE;
{每一次MACD最大绿柱到最大红柱之间的涨跌幅，分别在最大红绿住最高价最低处标注}
VARI6:=LLVBARS(VARY3,BARSLAST(VARY5)+1);
VARI7:=HHVBARS(VARY3,BARSLAST(VARY4)+1);
VARI8:=CROSS(BACKSET(VARY5,VARI7+1) AND VARY1>VARY2,0.1) OR CROSS(BACKSET(ISLASTBAR AND VARY1>VARY2,VARI7+1),0.1);
VARI9:=REF(L,VARI6);
VARI10:= (H-VARI9)/VARI9*100;
VARI11:=CROSS(BACKSET(VARY4,VARI6+1) AND VARY1<VARY2,0.1) OR CROSS(BACKSET(ISLASTBAR AND VARY1<VARY2,VARI6+1),0.1);
VARI12:=REF(H,VARI7);
VARI13:= (L/VARI12-1)*100;
DRAWTEXT(VARI8,H,VARCAT(VAR2STR(VARI10,2),'%')),COLORYELLOW,DRAWABOVE;
DRAWTEXT(VARI11,L*0.99,VARCAT(VAR2STR(VARI13,2),'%')),COLORGREEN;
{ZLRAWTEXT(ISLASTBAR,H,VARCAT(VAR2STR((H-VARI9)/VARI9*100,2),'%')),NODRAW,COLORGREEN;}
涨幅: (H-VARI9)/VARI9*100,NODRAW,COLORMAGENTA;
{黄金柱}
SPJ:=C<=REFX(C,1) AND C<=REFX(C,2) AND C<=REFX(C,3);
CJL:=V>=REFX(V,1) AND V>=REFX(V,2) AND V>=REFX(V,3);
ZDJ:=O<=REFX(L,1) AND O<=REFX(L,2) AND O<=REFX(L,3);
STICKLINE(SPJ AND CJL AND ZDJ AND C>O,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(SPJ AND CJL AND ZDJ AND C>O,OPEN,CLOSE,0.1,0),COLORRED;
{画涨停跌停K线}
DT:=IF(NAMEINCLUDE('ST'),(C<=DTPRICE(REF(CLOSE,1),0.05) AND C=L),IF(FINANCE(3)=3 OR FINANCE(3)=4,(C<=DTPRICE(REF(CLOSE,1),0.2) AND C=L),(C<=DTPRICE(REF(CLOSE,1),0.1) AND C=L)));
ZT:=IF(NAMEINCLUDE('ST'),(C>=ZTPRICE(REF(CLOSE,1),0.05) AND C=H),IF(FINANCE(3)=3 OR FINANCE(3)=4,(C>=ZTPRICE(REF(CLOSE,1),0.2) AND C=H),(C>=ZTPRICE(REF(CLOSE,1),0.1) AND C=H)));
STICKLINE(ZT,C,O,-1,0),COLORRED;
STICKLINE(DT,C,O,-1,0),COLORGREEN;
个数:VARY12+1,COLORGREEN,NODRAW;
{涨停价一半划线}
VAR1:= (STR2CON(CODE)>=300000 AND STR2CON(CODE)<=302999 AND DATE>=1200824);
VAR2:=VAR1 OR (STR2CON(CODE)>=688000 AND STR2CON(CODE)<=689999);
VAR3:= (STR2CON(CODE)>=430000 AND STR2CON(CODE)<=439999) OR
(STR2CON(CODE)>=830000 AND STR2CON(CODE)<=879999) OR
(STR2CON(CODE)>=920000 AND STR2CON(CODE)<=929999);
VAR4:=IF(VAR3,ZTPRICE(REF(C,1),0.3),IF(VAR2,ZTPRICE(REF(C,1),0.2),ZTPRICE(REF(C,1),0.1)));
VAR5:=C>=VAR4 AND C=H;
VAR6:=BARSLAST(VAR5);
VAR7:=IF(O>REF(C,1),(REF(C,1)+C)/2,(O+C)/2);
DRAWSL(1,REF(VAR7,VAR6),0,1,0),COLORYELLOW;
DRAWTEXT(REFX(VAR5,1) OR ISLASTBAR,REF(VAR7,VAR6),VAR2STR(REF(VAR7,VAR6),2)),COLORYELLOW,DRAWABOVE;

DRAWSL(DATE<>REF(DATE,1) AND PERIOD=1,REF(C,1),0,48,0),COLORWHITE;
NOTEXTJ:=IF(DAYSTOTODAY=1,REF(C,BARSLAST(DAY!=REF(DAY,1))+1),DRAWNULL);
DRAWTEXT(ISLASTBAR,NOTEXTJ,VAR2STR(NOTEXTJ,2)),COLORYELLOW,DRAWABOVE;
B:=CURRBARSCOUNT;
B1:=DAY<>REF(DAY,1);
B2:=BARSLAST(B1)+1;
B3:=MA(C,B2);
B4:=SUM(AMO,B2)/SUM(VOL,B2)/100;
B5:=IF(CAPITAL>0,B4,B3);
均价1:=IF(B<=CONST(B2) AND (PERIOD=1 OR PERIOD=0 OR PERIOD=8),B5,DRAWNULL),COLORYELLOW,LINETHICK2;
均价:IF(B<=48 AND (PERIOD=1 OR PERIOD=0 OR PERIOD=8),B4,DRAWNULL),COLORYELLOW,LINETHICK2;

MA55:MA(C,55),COLORGREEN;
回复

使用道具 举报

 楼主| 发表于 2026-6-13 21:12 | 显示全部楼层
{MACD交易系统 看盘主图}
{每一个|死叉|红色MACD最高柱的最低价|绿色MACD最高柱的最高价|向右划线并在线末端标上最低价100元}
{简介:=STRCAT('简介：',EXTERNSTR(1,10010));DRAWTEXT_FIX(1,0,0,0,简介),COLORGREEN;
简介:=STRCAT('简介：',EXTERNSTR(1,10010));DRAWTEXT_FIX(1,0.00,0.06,0,简介),COLORGREEN;}
UPPER:IF(PERIOD=5,MA(C,10)*(1+9/100),DRAWNULL);
LOWER:IF(PERIOD=5,MA(C,10)*(1-11/100),DRAWNULL);
ENE:IF(PERIOD=5,(UPPER+LOWER)/2,DRAWNULL);
DRAWTEXT(ISLASTBAR,UPPER,VAR2STR(UPPER,2)),COLORWHITE,DRAWABOVE;

VARY1:=EMA(C,12)-EMA(C,26);
VARY2:=EMA(VARY1,9);
VARY3:=2*(VARY1-VARY2);
VARY4:=CROSS(VARY1,VARY2);
VARY5:=CROSS(VARY2,VARY1);
VARY6:=HHVBARS(VARY3,BARSLAST(VARY4)+1);
VARY7:=CROSS(BACKSET(VARY5 OR (ISLASTBAR AND VARY1>VARY2),VARY6+1),0.1);
VARY8:=BARSLAST(VARY7);
VARY9:=REF(L,VARY8);
DRAWSL(1,VARY9,0,1,0),COLORRED;{STICKLINE(1,VARY9,VARY9,2,1),COLORRED;}
DRAWTEXT(REFX(VARY7,1) OR (ISLASTBAR AND REF(VARY1>VARY2,VARY8)),VARY9,VAR2STR(VARY9,2)),COLORRED,DRAWABOVE;
VARY10:=LLVBARS(VARY3,BARSLAST(VARY5)+1);
VARY11:=CROSS(BACKSET(VARY4 OR (ISLASTBAR AND VARY1<VARY2),VARY10+1),0.1);
VARY12:=BARSLAST(VARY11);
VARY13:=REF(H,VARY12);
DRAWSL(1,VARY13,0,1,0),COLORCYAN;
DRAWTEXT(REFX(VARY11,1) OR (ISLASTBAR AND REF(VARY1<VARY2,VARY12)),VARY13,VAR2STR(VARY13,2)),COLORCYAN,DRAWABOVE;
SX: DRAWLINE(VARY5,H,REF(VARY5,1),REF(H,1),1),COLORYELLOW,DOTLINE;
JG1:=REF(H,BARSLAST(VARY5));
DRAWNUMBER(CURRBARSCOUNT=1 OR (SX!=DRAWNULL AND REFX(SX=DRAWNULL,1)),JG1,JG1),COLORYELLOW,DRAWABOVE;
JX: DRAWLINE(VARY4,L,REF(VARY4,1),REF(L,1),1),COLORMAGENTA,DOTLINE;
JG2:=REF(L,BARSLAST(VARY4));
DRAWNUMBER(CURRBARSCOUNT=1 OR (JX!=DRAWNULL AND REFX(JX=DRAWNULL,1)),JG2,JG2),COLORMAGENTA,DRAWABOVE;
{每一次MACD最大绿柱到最大红柱之间的涨跌幅，分别在最大红绿住最高价最低处标注}
VARI6:=LLVBARS(VARY3,BARSLAST(VARY5)+1);
VARI7:=HHVBARS(VARY3,BARSLAST(VARY4)+1);
VARI8:=CROSS(BACKSET(VARY5,VARI7+1) AND VARY1>VARY2,0.1) OR CROSS(BACKSET(ISLASTBAR AND VARY1>VARY2,VARI7+1),0.1);
VARI9:=REF(L,VARI6);
VARI10:= (H-VARI9)/VARI9*100;
VARI11:=CROSS(BACKSET(VARY4,VARI6+1) AND VARY1<VARY2,0.1) OR CROSS(BACKSET(ISLASTBAR AND VARY1<VARY2,VARI6+1),0.1);
VARI12:=REF(H,VARI7);
VARI13:= (L/VARI12-1)*100;
DRAWTEXT(VARI8,H,VARCAT(VAR2STR(VARI10,2),'%')),COLORYELLOW,DRAWABOVE;
DRAWTEXT(VARI11,L*0.99,VARCAT(VAR2STR(VARI13,2),'%')),COLORGREEN;
{ZL: DRAWTEXT(ISLASTBAR,H,VARCAT(VAR2STR((H-VARI9)/VARI9*100,2),'%')),NODRAW,COLORGREEN;}
涨幅: (H-VARI9)/VARI9*100,NODRAW,COLORMAGENTA;
{黄金柱}
SPJ:=C<=REFX(C,1) AND C<=REFX(C,2) AND C<=REFX(C,3);
CJL:=V>=REFX(V,1) AND V>=REFX(V,2) AND V>=REFX(V,3);
ZDJ:=O<=REFX(L,1) AND O<=REFX(L,2) AND O<=REFX(L,3);
STICKLINE(SPJ AND CJL AND ZDJ AND C>O,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(SPJ AND CJL AND ZDJ AND C>O,OPEN,CLOSE,0.1,0),COLORRED;
{画涨停跌停K线}
DT:=IF(NAMEINCLUDE('ST'),(C<=DTPRICE(REF(CLOSE,1),0.05) AND C=L),IF(FINANCE(3)=3 OR FINANCE(3)=4,(C<=DTPRICE(REF(CLOSE,1),0.2) AND C=L),(C<=DTPRICE(REF(CLOSE,1),0.1) AND C=L)));
ZT:=IF(NAMEINCLUDE('ST'),(C>=ZTPRICE(REF(CLOSE,1),0.05) AND C=H),IF(FINANCE(3)=3 OR FINANCE(3)=4,(C>=ZTPRICE(REF(CLOSE,1),0.2) AND C=H),(C>=ZTPRICE(REF(CLOSE,1),0.1) AND C=H)));
STICKLINE(ZT,C,O,-1,0),COLORRED;
STICKLINE(DT,C,O,-1,0),COLORGREEN;
个数:VARY12+1,COLORGREEN,NODRAW;
{涨停价一半划线}
VAR1:= (STR2CON(CODE)>=300000 AND STR2CON(CODE)<=302999 AND DATE>=1200824);
VAR2:=VAR1 OR (STR2CON(CODE)>=688000 AND STR2CON(CODE)<=689999);
VAR3:= (STR2CON(CODE)>=430000 AND STR2CON(CODE)<=439999) OR
(STR2CON(CODE)>=830000 AND STR2CON(CODE)<=879999) OR
(STR2CON(CODE)>=920000 AND STR2CON(CODE)<=929999);
VAR4:=IF(VAR3,ZTPRICE(REF(C,1),0.3),IF(VAR2,ZTPRICE(REF(C,1),0.2),ZTPRICE(REF(C,1),0.1)));
VAR5:=C>=VAR4 AND C=H;
VAR6:=BARSLAST(VAR5);
VAR7:=IF(O>REF(C,1),(REF(C,1)+C)/2,(O+C)/2);
DRAWSL(1,REF(VAR7,VAR6),0,1,0),COLORYELLOW;
DRAWTEXT(REFX(VAR5,1) OR ISLASTBAR,REF(VAR7,VAR6),VAR2STR(REF(VAR7,VAR6),2)),COLORYELLOW,DRAWABOVE;

DRAWSL(DATE<>REF(DATE,1) AND PERIOD=1,REF(C,1),0,48,0),COLORWHITE;
NOTEXTJ:=IF(DAYSTOTODAY=1,REF(C,BARSLAST(DAY!=REF(DAY,1))+1),DRAWNULL);
DRAWTEXT(ISLASTBAR,NOTEXTJ,VAR2STR(NOTEXTJ,2)),COLORYELLOW,DRAWABOVE;
B:=CURRBARSCOUNT;
B1:=DAY<>REF(DAY,1);
B2:=BARSLAST(B1)+1;
B3:=MA(C,B2);
B4:=SUM(AMO,B2)/SUM(VOL,B2)/100;
B5:=IF(CAPITAL>0,B4,B3);
均价1:=IF(B<=CONST(B2) AND (PERIOD=1 OR PERIOD=0 OR PERIOD=8),B5,DRAWNULL),COLORYELLOW,LINETHICK2;
均价:IF(B<=48 AND (PERIOD=1 OR PERIOD=0 OR PERIOD=8),B4,DRAWNULL),COLORYELLOW,LINETHICK2;

MA55:MA(C,55),COLORGREEN;
回复

使用道具 举报

 楼主| 发表于 2026-6-13 22:38 | 显示全部楼层
{连阳天数统计}
T:=C>=REF(C,1);
A:=BARSLASTCOUNT(T);
J:=(A>2 AND REFX(NOT(T),1)) OR (REF(T,1) AND T AND ISLASTBAR);
DRAWTEXT(J,V*1.0382,VAR2STR(A,0)),COLORYELLOW;
回复

使用道具 举报

下一页 »
1234567下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

快速回复 返回顶部 返回列表