※※ 公式未来函数在线检测 ※※
开启辅助访问 ※※ 公式未来函数在线检测 ※※

股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步，快速开始

搜索
股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识»股资源 › 【股课程 股论坛 股票基础知识 股票学习】 › 公式源码 › 江恩系列指标公式（主图副图皆有）
返回列表 发新帖
上一主题 下一主题

[大智慧] 江恩系列指标公式（主图副图皆有）


    [-----复制链接-----]
楼主
 通达信源码安装路径：1，工具栏点击公式选项。2，弹出公式窗口点击新建。3，把源码复制到指标编辑器保存。4，回到K线图界面安装建立好的公式 || 2023-10-16 12:26:25
通达信完全加密指标提取 通达信指标公式破解 可破解完全加密 通达信加密指标直显软件

以下是江恩系列指标公式（主图副图皆有）

input:K(1,1,3);
T:=BARSLAST(DISPSTATUS=1)+1;
A:=DISPSTATUS=2;
HH:=HHV(H,T);
LL:=LLV(L,T);
HL:=HH-LL;
wH:=HHVBARS(H,T);
wL:=LLVBARS(L,T);
KK:=wH-wL;
mHL:=HH-HL*0.5;
ifK=1thenbegin
HL191:=(HH-LL)*0.191;
HL382:=(HH-LL)*0.382;
HL618:=(HH-LL)*0.618;
HL809:=(HH-LL)*0.809;
ifKK<0thenbegin
a1:=HH-HL191;
a2:=HH-HL382;
a3:=HH-HL618;
a4:=HH-HL809;
endelsebegin
a1:=LL+HL191;
a2:=LL+HL382;
a3:=LL+HL618;
a4:=LL+HL809;
end
end
ifk=1thenbegin
HL125:=(HH-LL)*0.125;
HL250:=(HH-LL)*0.25;
HL375:=(HH-LL)*0.375;
HL625:=(HH-LL)*0.625;
HL750:=(HH-LL)*0.75;
HL875:=(HH-LL)*0.875;
ifkk<0thenbegin
b1:=HH-HL125;
b2:=HH-HL250;
b3:=HH-HL375;
b4:=HH-HL625;
b5:=HH-HL750;
b6:=HH-HL875;
endelsebegin
b1:=LL+HL125;
b2:=LL+HL250;
b3:=LL+HL375;
b4:=LL+HL625;
b5:=LL+HL750;
b6:=LL+HL875;
end
end
DRAWTEXT(AandK<>3,HH,'最高价：'+HH),ALIGN2,color00ffff;
DRAWTEXT(AandK<>3,LL,'最低价：'+ll),ALIGN2,VALIGN2,color00ffff;
DRAWTEXT(AandK<>3,mHL,'中间价：'+mHL),ALIGN2,color00ffff;
{DRAWTEXT(AandK=1,a1,'0.191：'+NUMTOSTRN(a1,2)),ALIGN2,color00ffff;
DRAWTEXT(AandK=1,a2,'0.382：'+NUMTOSTRN(a2,2)),ALIGN0,color00ffff;
DRAWTEXT(AandK=1,a3,'0.618：'+NUMTOSTRN(a3,2)),ALIGN0,color00ffff;
DRAWTEXT(AandK=1,a4,'0.809：'+NUMTOSTRN(a4,2)),ALIGN2,color00ffff;}
DRAWTEXT(AandK=1,b1,'1/8：'+NUMTOSTRN(b1,2)),ALIGN2,color00ffff;
DRAWTEXT(AandK=1,b2,'1/4：'+NUMTOSTRN(b2,2)),ALIGN2,color00ffff;
DRAWTEXT(AandK=1,b3,'3/8：'+NUMTOSTRN(b3,2)),ALIGN2,color00ffff;
DRAWTEXT(AandK=1,b4,'5/8：'+NUMTOSTRN(b4,2)),ALIGN2,color00ffff;
DRAWTEXT(AandK=1,b5,'3/4：'+NUMTOSTRN(b5,2)),ALIGN2,color00ffff;
DRAWTEXT(AandK=1,b6,'7/8：'+NUMTOSTRN(b6,2)),ALIGN2,color00ffff;
DRAWTEXT(AandK<>3,HH,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;
DRAWTEXT(AandK<>3,LL,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;
DRAWTEXT(AandK<>3,mHL,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;
{DRAWTEXT(AandK=1,a1,'﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊'),ALIGN2,color208FFF,linethick0;
DRAWTEXT(AandK=1,a2,'﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊'),ALIGN2,color208FFF,linethick0;
DRAWTEXT(AandK=1,a3,'﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊'),ALIGN2,color208FFF,linethick0;
DRAWTEXT(AandK=1,a4,'﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊﹊'),ALIGN2,color208FFF,linethick0;}
DRAWTEXT(AandK<>3,b1,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;
DRAWTEXT(AandK<>3,b2,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;
DRAWTEXT(AandK<>3,b3,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;
DRAWTEXT(AandK<>3,b4,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;
DRAWTEXT(AandK<>3,b5,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;
DRAWTEXT(AandK<>3,b6,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;

DRAWTEXTABS(50,20,'所属板块：'+BKNAME),Color00FF00;


{};


板块
gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);
明日阻力:=l+(gj-l)+(c-l);
明日支撑:=l+(c-gj);
明日阻力:=l+(gj-l)+(c-l);
明日支撑:=l+(c-gj);
今日阻力:=REF(明日阻力,1);
今日支撑:=REF(明日支撑,1);

当前股价或指数:=C;

IFBARSTATUS=2andc<今日支撑THEN
DRAWTEXTABS(600,45,'当前价位=：'+NUMTOSTRN(当前股价或指数,2)),Color00FF05;
IFBARSTATUS=2andc>=今日支撑THEN
DRAWTEXTABS(600,45,'当前价位=：'+NUMTOSTRN(当前股价或指数,2)),COLORMAGENTA;
IFBARSTATUS=2andc>=今日阻力THEN
DRAWTEXTABS(600,45,'当前价位=：'+NUMTOSTRN(当前股价或指数,2)),COLORRED;
IFBARSTATUS=2andc>=今日支撑THEN
DRAWTEXTABS(600,65,'今日支撑=：'+NUMTOSTRN(今日支撑,2)),Color00FFFF;
IFBARSTATUS=2andc<今日支撑THEN
DRAWTEXTABS(600,65,'今日支撑=：'+NUMTOSTRN(今日支撑,2)),Color00FFFF;
IFBARSTATUS=2andc>=今日阻力THEN
DRAWTEXTABS(600,25,'今日阻力=：'+NUMTOSTRN(今日阻力,2)),Color00FFFF;
IFBARSTATUS=2andc<今日阻力THEN
DRAWTEXTABS(600,25,'今日阻力=：'+NUMTOSTRN(今日阻力,2)),Color00FFFF;
IFBARSTATUS=2andc>=明日支撑THEN
DRAWTEXTABS(600,105,'明日支撑=：'+NUMTOSTRN(明日支撑,2)),Color00FFFF;
IFBARSTATUS=2andc<明日阻力THEN
DRAWTEXTABS(600,85,'明日阻力=：'+NUMTOSTRN(明日阻力,2)),Color00FFFF;
IFBARSTATUS=2andv>ref(v,1)andma(v,5)>ref(ma(v,5),1)THEN
DRAWTEXTABS(600,5,'今日成交量大于昨日,且有继续增大趋势'),Color8285FF;
IFBARSTATUS=2andv<ref(v,1)andma(v,5)>ref(ma(v,5),1)THEN
DRAWTEXTABS(600,5,'今日成交量小于昨日，但有放大迹象'),Color8285FF;
IFBARSTATUS=2andv>ref(v,1)andma(v,5)<ref(ma(v,5),1)THEN
DRAWTEXTABS(600,5,'今日成交量大于昨日,但有缩小迹象'),Color8285FF;
IFBARSTATUS=2andv<ref(v,1)andma(v,5)<ref(ma(v,5),1)THEN
DRAWTEXTABS(600,5,'今日成交量小于昨日，且有缩小迹象'),Color8285FF;
IFC>0ANDDISPSTATUS=2THEN

{DRAWTEXTABS(20,120,'机构评级:'+Extrastring('评级')),Color00FF05;
DRAWTEXTABS(20,100,'所属板块：'+BKNAME),Color00FF00;}

DRAWTEXTABS(20,5,STKLABEL+''+STKNAME),LINETHICK1,Color00FF05;


每股收益:=FINANCE2(3);
总股本:=FINANCE2(35)/10000;
流通盘大小:=FINANCE2(37)/10000;

日换手率:=SUM(VOL,1)*100/CAPITAL;
量比:=DYNAINFO(17);
主营收入同比:=FINANCE2(11);
净利润同比增长:=FINANCE2(10);
净资产收益率:=FINANCE2(5);
获利盘:=WINNER(CLOSE)*100;
套牢盘:=100*(1-WINNER(C));
F:=COST(5);J:=COST(95);
M:=COST(15);N:=COST(85);
F1:=(J-F)/(F+J)*100;M1:=(N-M)/(N+M)*100;
成本集中度90﹪:=F1;
成本集中度70﹪:=M1;
浮筹比例:=(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100;

DRAWTEXTABS(20,20,'每股收益:'+NUMTOSTRN(每股收益,3)),Color00FF05;
DRAWTEXTABS(20,35,'主营收入增长:'+NUMTOSTRN(主营收入同比,2)+'%'),Color00FF05;
DRAWTEXTABS(20,50,'净利润增长率:'+NUMTOSTRN(净利润同比增长,2)+'%'),Color00FF05;
DRAWTEXTABS(20,65,'净资产收益率:'+NUMTOSTRN(净资产收益率,2)+'%'),Color00FF05;


DRAWTEXTABS(180,20,'总股本:'+NUMTOSTRN(总股本,3)+'亿'),Color00FF05;
DRAWTEXTABS(180,35,'流通盘:'+NUMTOSTRN(流通盘大小,3)+'亿'),Color00FF05;
DRAWTEXTABS(180,50,'量比:'+NUMTOSTRN(量比,2)+'%'),Color00FF05;
DRAWTEXTABS(180,65,'换手率:'+NUMTOSTRN(日换手率,2)+'%'),Color00FF05;

DRAWTEXTABS(340,20,'获利盘:'+NUMTOSTRN(获利盘,2)+'%'),Color00FF05;
DRAWTEXTABS(340,35,'套牢盘:'+NUMTOSTRN(套牢盘,2)+'%'),Color00FF05;
DRAWTEXTABS(340,50,'吸筹拉升区集中度:'+NUMTOSTRN(成本集中度90﹪,2)+'%'),Color00FF05;
DRAWTEXTABS(340,65,'底仓区成本集中度:'+NUMTOSTRN(成本集中度70﹪,2)+'%'),Color00FF05;
DRAWTEXTABS(340,80,'浮筹比例:'+NUMTOSTRN(浮筹比例,2)+'%'),Color00FF05;







每股市盈率:=DYNAINFO(39);
每股净资产:=FINANCE2(4);
DRAWTEXTABS(20,80,'每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),Color00FF05;
DRAWTEXTABS(180,80,'每股净资产:'+NUMTOSTRN(每股净资产,2)+'元'),Color00FF05;




{};


gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);
明日阻力:=l+(gj-l)+(c-l);
明日支撑:=l+(c-gj);
明日阻力:=l+(gj-l)+(c-l);
明日支撑:=l+(c-gj);
今日阻力:=REF(明日阻力,1);
今日支撑:=REF(明日支撑,1);
当前股价或指数:=C;
IFBARSTATUS=2andc<今日支撑THEN
DRAWTEXTABS(600,45,'当前价位=：'+NUMTOSTRN(当前股价或指数,2)),Color00FF05;
IFBARSTATUS=2andc>=今日支撑THEN
DRAWTEXTABS(600,45,'当前价位=：'+NUMTOSTRN(当前股价或指数,2)),COLORMAGENTA;
IFBARSTATUS=2andc>=今日阻力THEN
DRAWTEXTABS(600,45,'当前价位=：'+NUMTOSTRN(当前股价或指数,2)),COLORRED;
IFBARSTATUS=2andc>=今日支撑THEN
DRAWTEXTABS(600,65,'今日支撑=：'+NUMTOSTRN(今日支撑,2)),Color00FFFF;
IFBARSTATUS=2andc<今日支撑THEN
DRAWTEXTABS(600,65,'今日支撑=：'+NUMTOSTRN(今日支撑,2)),Color00FFFF;
IFBARSTATUS=2andc>=今日阻力THEN
DRAWTEXTABS(600,25,'今日阻力=：'+NUMTOSTRN(今日阻力,2)),Color00FFFF;
IFBARSTATUS=2andc<今日阻力THEN
DRAWTEXTABS(600,25,'今日阻力=：'+NUMTOSTRN(今日阻力,2)),Color00FFFF;
IFBARSTATUS=2andc>=明日支撑THEN
DRAWTEXTABS(600,105,'明日支撑=：'+NUMTOSTRN(明日支撑,2)),Color00FFFF;
IFBARSTATUS=2andc<明日阻力THEN
DRAWTEXTABS(600,85,'明日阻力=：'+NUMTOSTRN(明日阻力,2)),Color00FFFF;
IFBARSTATUS=2andv>ref(v,1)andma(v,5)>ref(ma(v,5),1)THEN
DRAWTEXTABS(600,5,'今日成交量大于昨日,且有继续增大趋势'),Color8285FF;
IFBARSTATUS=2andv<ref(v,1)andma(v,5)>ref(ma(v,5),1)THEN
DRAWTEXTABS(600,5,'今日成交量小于昨日，但有放大迹象'),Color8285FF;
IFBARSTATUS=2andv>ref(v,1)andma(v,5)<ref(ma(v,5),1)THEN
DRAWTEXTABS(600,5,'今日成交量大于昨日,但有缩小迹象'),Color8285FF;
IFBARSTATUS=2andv<ref(v,1)andma(v,5)<ref(ma(v,5),1)THEN
DRAWTEXTABS(600,5,'今日成交量小于昨日，且有缩小迹象'),Color8285FF;
IFC>0ANDDISPSTATUS=2THEN
{DRAWTEXTABS(20,120,'机构评级:'+Extrastring('评级')),Color00FF05;
DRAWTEXTABS(20,100,'所属板块：'+BKNAME),Color00FF00;}
DRAWTEXTABS(20,5,STKLABEL+''+STKNAME),LINETHICK1,Color00FF05;
每股收益:=FINANCE2(3);
总股本:=FINANCE2(35)/10000;
流通盘大小:=FINANCE2(37)/10000;
日换手率:=SUM(VOL,1)*100/CAPITAL;
量比:=DYNAINFO(17);
主营收入同比:=FINANCE2(11);
净利润同比增长:=FINANCE2(10);
净资产收益率:=FINANCE2(5);
获利盘:=WINNER(CLOSE)*100;
套牢盘:=100*(1-WINNER(C));
F:=COST(5);J:=COST(95);
M:=COST(15);N:=COST(85);
F1:=(J-F)/(F+J)*100;M1:=(N-M)/(N+M)*100;
成本集中度90﹪:=F1;
成本集中度70﹪:=M1;
浮筹比例:=(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100;
DRAWTEXTABS(20,20,'每股收益:'+NUMTOSTRN(每股收益,3)),Color00FF05;
DRAWTEXTABS(20,35,'主营收入增长:'+NUMTOSTRN(主营收入同比,2)+'%'),Color00FF05;
DRAWTEXTABS(20,50,'净利润增长率:'+NUMTOSTRN(净利润同比增长,2)+'%'),Color00FF05;
DRAWTEXTABS(20,65,'净资产收益率:'+NUMTOSTRN(净资产收益率,2)+'%'),Color00FF05;
DRAWTEXTABS(180,20,'总股本:'+NUMTOSTRN(总股本,3)+'亿'),Color00FF05;
DRAWTEXTABS(180,35,'流通盘:'+NUMTOSTRN(流通盘大小,3)+'亿'),Color00FF05;
DRAWTEXTABS(180,50,'量比:'+NUMTOSTRN(量比,2)+'%'),Color00FF05;
DRAWTEXTABS(180,65,'换手率:'+NUMTOSTRN(日换手率,2)+'%'),Color00FF05;
DRAWTEXTABS(340,20,'获利盘:'+NUMTOSTRN(获利盘,2)+'%'),Color00FF05;
DRAWTEXTABS(340,35,'套牢盘:'+NUMTOSTRN(套牢盘,2)+'%'),Color00FF05;
DRAWTEXTABS(340,50,'吸筹拉升区集中度:'+NUMTOSTRN(成本集中度90﹪,2)+'%'),Color00FF05;
DRAWTEXTABS(340,65,'底仓区成本集中度:'+NUMTOSTRN(成本集中度70﹪,2)+'%'),Color00FF05;
DRAWTEXTABS(340,80,'浮筹比例:'+NUMTOSTRN(浮筹比例,2)+'%'),Color00FF05;
每股市盈率:=DYNAINFO(39);
每股净资产:=FINANCE2(4);
DRAWTEXTABS(20,80,'每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),Color00FF05;
DRAWTEXTABS(180,80,'每股净资产:'+NUMTOSTRN(每股净资产,2)+'元'),Color00FF05;
{};


发力
Var3:=REF(CLOSE,2);
入市资金:=SMA(MAX(CLOSE-Var3,0),7,1)/SMA(ABS(CLOSE-Var3),7,1)*100-50;
oo:=IF(CAPITAL=0,5000000,CAPITAL);
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
买盘:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
卖盘:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2));
主动买盘:=SUM(买盘,1)/oo*100;
主动卖盘:=SUM(卖盘,1)/oo*100;
HL10:=WINNER(C/1.1)*V/oo*100;
fc:=(主动买盘-主动卖盘)/HL10;
a1:=IF(REF(fc,1)>fc,REF(fc,1)-fc,0);
a2:=IF(REF(a1,1)=0,a1,0);
a3:=IF(a2>6,a2,0);
fl:=IF(入市资金>REF(入市资金,1),a3,0);
发力:SQRT(fl),COLORGREEN;

年发力:SUM(发力,34),LINETHICK0,Color00FFFF;


画线主图
n:=14;
限制:=1;
A6a:=REF(HIGH,6)=HHV(HIGH,2*6+1);
B6a:=FILTER(A6a,6);
C6a:=BACKSET(B6a,6+1);
D6a:=FILTER(C6a,6);
A7a:=REF(LOW,6)=LLV(LOW,2*6+1);
B7a:=FILTER(A7a,6);
C7a:=BACKSET(B7a,6+1);
D7a:=FILTER(C7a,6);
E6a:=(REF(LLV(LOW,2*6),1)+REF(HHV(HIGH,2*6),1))/2;
E7a:=(HIGH+LOW)/2;
H6a:=(D6aANDNOT(D7aANDE6a>=E7a))ORBARSTATUS=2ORBARSCOUNT(CLOSE)=1;
H7a:=D6aANDNOT(D7aANDE6a>=E7a);
L6a:=D7aANDNOT(D6aANDE6a=E7a);
X6a:=REF(BARSLAST(H6a),1)+1;
F6a:=BACKSET(H6aANDCOUNT(L6a,X6a)>0,LLVBARS(IF(L6a,LOW,10000),X6a));
G6a:=F6a>REF(F6a,1);
I6a:=BACKSET(G6a,2);
LD2a:=I6a>REF(I6a,1);
L7a:=LD2aORBARSTATUS=2ORBARSCOUNT(CLOSE)=1;
X7a:=REF(BARSLAST(L7a),1)+1;
F7a:=BACKSET(L7aANDCOUNT(H7a,X7a)>0,HHVBARS(IF(H7a,HIGH,0),X7a));
G7a:=F7a>REF(F7a,1);
I7a:=BACKSET(G7a,2);
HD2a:=I7a>REF(I7a,1);
UU3a:=BACKSET(BARSTATUS=2,BARSLAST(LD2a)+1);
VV3a:=UU3a>REF(UU3a,1);
WW3a:=BACKSET(VV3a,REF(BARSLAST(LD2a),1)+2);
XX3a:=WW3a>REF(WW3a,1);
DRAWLINE(XX3aand限制,L,VV3aand限制,L,1),Color800040;
UU4a:=BACKSET(BARSTATUS=2,BARSLAST(HD2a)+1);
VV4a:=UU4a>REF(UU4a,1);
WW4a:=BACKSET(VV4a,REF(BARSLAST(HD2a),1)+2);
XX4a:=WW4a>REF(WW4a,1);
DRAWLINE(XX4aand限制,H,VV4aand限制,H,1),Color800040;

A6b:=REF(HIGH,3)=HHV(HIGH,2*3+1);
B6b:=FILTER(A6b,3);
C6b:=BACKSET(B6b,3+1);
D6b:=FILTER(C6b,3);
A7b:=REF(LOW,3)=LLV(LOW,2*3+1);
B7b:=FILTER(A7b,3);
C7b:=BACKSET(B7b,3+1);
D7b:=FILTER(C7b,3);
E6b:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
E7b:=(HIGH+LOW)/2;
H6b:=(D6bANDNOT(D7bANDE6b>=E7b))ORBARSTATUS=2ORBARSCOUNT(CLOSE)=1;
H7b:=D6bANDNOT(D7bANDE6b>=E7b);
L6b:=D7bANDNOT(D6bANDE6b=E7b);
X6b:=REF(BARSLAST(H6b),1)+1;
F6b:=BACKSET(H6bANDCOUNT(L6b,X6b)>0,LLVBARS(IF(L6b,LOW,10000),X6b));
G6b:=F6b>REF(F6b,1);
I6b:=BACKSET(G6b,2);
LD2b:=I6b>REF(I6b,1);
L7b:=LD2bORBARSTATUS=2ORBARSCOUNT(CLOSE)=1;
X7b:=REF(BARSLAST(L7b),1)+1;
F7b:=BACKSET(L7bANDCOUNT(H7b,X7b)>0,HHVBARS(IF(H7b,HIGH,0),X7b));
G7b:=F7b>REF(F7b,1);
I7b:=BACKSET(G7b,2);
HD2b:=I7b>REF(I7b,1);
UU3b:=BACKSET(BARSTATUS=2,BARSLAST(LD2b)+1);
VV3b:=UU3b>REF(UU3b,1);
WW3b:=BACKSET(VV3b,REF(BARSLAST(LD2b),1)+2);
XX3b:=WW3b>REF(WW3b,1);
DRAWLINE(XX3band限制,L,VV3band限制,L,1),Color009090;
UU4b:=BACKSET(BARSTATUS=2,BARSLAST(HD2b)+1);
VV4b:=UU4b>REF(UU4b,1);
WW4b:=BACKSET(VV4b,REF(BARSLAST(HD2b),1)+2);
XX4b:=WW4b>REF(WW4b,1);
DRAWLINE(XX4band限制,H,VV4band限制,H,1){,COLOR888888;},Color00FF00;


A6e:=REF(HIGH,13)=HHV(HIGH,2*13+1);
B6e:=FILTER(A6e,13);
C6e:=BACKSET(B6e,13+1);
D6e:=FILTER(C6e,13);
A7e:=REF(LOW,13)=LLV(LOW,2*13+1);
B7e:=FILTER(A7e,13);
C7e:=BACKSET(B7e,13+1);
D7e:=FILTER(C7e,13);{低点}
E6e:=(REF(LLV(LOW,2*13),1)+REF(HHV(HIGH,2*13),1))/2;
E7e:=(HIGH+LOW)/2;
H6e:=(D6eANDNOT(D7eANDE6e>=E7e))ORBARSTATUS=2ORBARSCOUNT(CLOSE)=1;
H7e:=D6eANDNOT(D7eANDE6e>=E7e);
L6e:=D7eANDNOT(D6eANDE6e=E7e);
X6e:=REF(BARSLAST(H6e),1)+1;
F6e:=BACKSET(H6eANDCOUNT(L6e,X6e)>0,LLVBARS(IF(L6e,LOW,10000),X6e));
G6e:=F6e>REF(F6e,1);
I6e:=BACKSET(G6e,2);
LD2e:=I6e>REF(I6e,1);
L7e:=LD2eORBARSTATUS=2ORBARSCOUNT(CLOSE)=1;
X7e:=REF(BARSLAST(L7e),1)+1;
F7e:=BACKSET(L7eANDCOUNT(H7e,X7e)>0,HHVBARS(IF(H7e,HIGH,0),X7e));
G7e:=F7e>REF(F7e,1);
I7e:=BACKSET(G7e,2);
HD2e:=I7e>REF(I7e,1);
UU3e:=BACKSET(BARSTATUS=2,BARSLAST(LD2e)+1);
VV3e:=UU3e>REF(UU3e,1);
WW3e:=BACKSET(VV3e,REF(BARSLAST(LD2e),1)+2);
XX3e:=WW3e>REF(WW3e,1);
DRAWLINE(XX3eand限制,L,VV3eand限制,L,1),Colorred;
UU4e:=BACKSET(BARSTATUS=2,BARSLAST(HD2e)+1);
VV4e:=UU4e>REF(UU4e,1);
WW4e:=BACKSET(VV4e,REF(BARSLAST(HD2e),1)+2);
XX4e:=WW4e>REF(WW4e,1);
DRAWLINE(XX4eand限制,H,VV4eand限制,H,1),Colorgreen;

AW1:=ref(h,N)=hhv(h,2*N+1);
BW1:=filter(AW1,N);
CW1:=backset(BW1,N+1);
DW1:=filter(CW1,n);{高点}
AW2:=ref(l,N)=llv(l,2*N+1);
BW2:=filter(AW2,N);
CW2:=backset(BW2,N+1);
DW2:=filter(CW2,N);{低点}
EW1:=(ref(llv(l,2*N),1)+ref(hhv(h,2*N),1))/2;
EW2:=(h+l)/2;{高低点出现在同一K线上时可作取舍}
HW1:=(DW1ANDnot(DW2ANDEW1>=EW2))ORbarstatus=2ORbarscount(c)=1;
LW1:=(DW2ANDnot(DW1ANDEW1<EW2));
HW2:=DW1ANDnot(DW2ANDEW1>=EW2);

XW1:=ref(barslast(HW1),1)+1;
FW1:=backset(HW1ANDcount(LW1,XW1)>0,llvbars(if(LW1,l,10000),XW1));
GW1:=FW1>ref(FW1,1);
IW1:=backset(GW1,2);
LDW:=IW1>ref(IW1,1);{过滤后低点}
LW2:=LDWORbarstatus=2ORbarscount(c)=1;
XW2:=ref(barslast(LW2),1)+1;
FW2:=backset(LW2ANDcount(HW2,XW2)>0,hhvbars(if(HW2,h,0),XW2));
GW2:=FW2>ref(FW2,1);
IW2:=backset(GW2,2);
HDW:=IW2>ref(IW2,1);{过滤后高点}
RW1:=backset(barstatus=2,barslast(HDW)+1);
SW1:=RW1>ref(RW1,1);{前一高}
TW1:=backset(barstatus=2,barslast(LDW)+1);
UW1:=TW1>ref(TW1,1);{前一低}
RW2:=backset(SW1,ref(barslast(HDW),1)+2);
SW2:=RW2>ref(RW2,1);{前二高}
TW2:=backset(UW1,ref(barslast(LDW),1)+2);
UW2:=TW2>ref(TW2,1);{前二低}
RW3:=backset(SW2,ref(barslast(HDW),1)+2);
SW3:=RW3>ref(RW3,1);{前三高}
TW3:=backset(UW2,ref(barslast(LDW),1)+2);
UW3:=TW3>ref(TW3,1);{前三低}
RW4:=backset(SW3,ref(barslast(HDW),1)+2);
SW4:=RW4>ref(RW4,1);{前四高}
TW4:=backset(UW3,ref(barslast(LDW),1)+2);
UW4:=TW4>ref(TW4,1);{前四低}
RW5:=backset(SW4,ref(barslast(HDW),1)+2);
SW5:=RW5>ref(RW5,1);{前五高}
TW5:=backset(UW4,ref(barslast(LDW),1)+2);
UW5:=TW5>ref(TW5,1);{前五低}
RW6:=backset(SW5,ref(barslast(HDW),1)+2);
SW6:=RW6>ref(RW6,1);{前六高}
TW6:=backset(UW5,ref(barslast(LDW),1)+2);
UW6:=TW6>ref(TW6,1);{前六低}
drawline(UW4and限制,l,UW3and限制,l,0),COLORFF00FF;
drawline(UW3and限制,l,UW2and限制,l,0),Color8080FF;
drawline(SW2and限制,h,SW1and限制,h,1),COLORCYAN;
drawline(UW2and限制,l,UW1and限制,l,1),COLORFAABEC;
drawline(SW5and限制,h,SW4and限制,h,1),COLORFF9C00;
drawline(UW5and限制,l,UW4and限制,l,1),Color400080;
drawline(SW6and限制,h,SW5and限制,h,0);
drawline(UW6and限制,l,UW5and限制,l,0),Color800080;
drawline(SW3and限制,h,SW2and限制,h,0),colorblue;
drawline(SW4and限制,h,SW3and限制,h,1),COLOR009900;


解盘
N:=20;
DRAWTEXTABS(10,10,STKLABEL+''+STKNAME+''+BKNAME),COLORGREEN;

均价:=(3*C+H+L+O)/6;
VAR1:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36;
VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
SZ1:=REF(VAR1,1)=REF(VAR2,1)ANDVAR1>VAR2ANDCLOSE>VAR1;
SZ2:=VAR1>VAR2ANDVAR1>REF(VAR1,1)ANDVAR2>REF(VAR2,1)ANDH/VAR1<1.1ANDL>VAR2ANDCLOSE>VAR1;
SZ3:=VAR1>VAR2ANDVAR1>REF(VAR1,1)ANDVAR2>=REF(VAR2,1)ANDH/VAR1>1.1;
SZ4:=VAR1>VAR2ANDVAR1>REF(VAR1,1)ANDVAR2>REF(VAR2,1)ANDCLOSE>VAR2ANDCLOSE<VAR1;
SZ5:=(VAR1>VAR2ANDVAR2>REF(VAR2,1)ANDVAR1<>REF(VAR1,1)ANDCLOSE<VAR2)OR(VAR1>VAR2ANDVAR1<REF(VAR1,1)ANDVAR2<REF(VAR2,1)ANDCLOSE<VAR2);;
SZ6:=REF(VAR1,1)>REF(VAR2,1)ANDVAR1=VAR2ANDCLOSE<VAR2;
XD1:=VAR1=VAR2ANDCLOSE<VAR2OR(VAR1<REF(VAR1,1)ANDVAR2<REF(VAR2,1)ANDREF(VAR1,1)=REF(VAR2,1)ANDCLOSE<VAR2);
XD2:=VAR1=VAR2ANDCLOSE>VAR1;
SAT:=(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N));
量能饱和度:=IF(SAT>1,1,SAT)*100;
IFBARSTATUS=2ANDSZ1THENBEGIN
DRAWTEXTABS(320,25,'调整结束短线介入'),COLORRED;
END
ELSE
IFBARSTATUS=2ANDSZ2THENBEGIN
DRAWTEXTABS(320,25,'上升通道走势良好'),COLORRED;
END
ELSE
IFBARSTATUS=2ANDSZ3THENBEGIN
DRAWTEXTABS(320,25,'股价偏离注意调整'),COLORRED;
END
ELSE
IFBARSTATUS=2ANDSZ4THENBEGIN
DRAWTEXTABS(320,25,'上升通道调整洗盘'),COLORGREEN;
END
ELSE
IFBARSTATUS=2ANDSZ5THENBEGIN
DRAWTEXTABS(320,25,'转向特征注意离场'),COLORGREEN;
END
ELSE
IFBARSTATUS=2ANDSZ6THENBEGIN
DRAWTEXTABS(320,25,'通道改变坚决离场'),COLORGREEN;
END
ELSE
IFBARSTATUS=2ANDXD1THENBEGIN
DRAWTEXTABS(320,25,'下跌通道只宜观望'),COLORGREEN;
END
ELSE
IFBARSTATUS=2ANDXD2THENBEGIN
DRAWTEXTABS(320,25,'短期底部准备进入'),COLORYELLOW;
END;
AB1:=COST(0.33);
AB2:=COST(5);
AB3:=COST(15);
AB4:=COST(55);
AB5:=COST(97);
AA1:=COST(90);
AA2:=COST(70);
AA3:=COST(30);
AA4:=COST(10);
获利:=WINNER(CLOSE)*100;
套牢:=100-WINNER(CLOSE)*100;
DRAWTEXTABS(15,25,'量能饱和度:'+NUMTOSTRN(量能饱和度,2)+'%'),COLOR00FFFF;
DRAWTEXTABS(15,40,'90成本:'+NUMTOSTRN(AA1,2)),COLOR00FFFF;
DRAWTEXTABS(15,55,'70成本:'+NUMTOSTRN(AA2,2)),COLOR00FFFF;
DRAWTEXTABS(15,70,'30成本:'+NUMTOSTRN(AA3,2)),COLOR00FFFF;
DRAWTEXTABS(15,85,'10成本:'+NUMTOSTRN(AA4,2)),COLOR00FFFF;
DRAWTEXTABS(15,100,'底出击:'+NUMTOSTRN(AB1,2)),COLOR00FFFF;
DRAWTEXTABS(520,25,'建仓:'+NUMTOSTRN(AB2,2)),COLOR00FFFF;
DRAWTEXTABS(600,25,'整固:'+NUMTOSTRN(AB3,2)),COLOR00FFFF;
DRAWTEXTABS(675,25,'升浪:'+NUMTOSTRN(AB4,2)),COLOR00FFFF;
DRAWTEXTABS(520,40,'获利:'+NUMTOSTRN(获利,2)+'%'),COLOR00FFFF;
DRAWTEXTABS(600,40,'套牢:'+NUMTOSTRN(套牢,2)+'%'),COLOR00FFFF;
DRAWTEXTABS(675,40,'预测:'+NUMTOSTRN(AB5,2)),COLOR00FFFF;

AAA:=量能饱和度<=10;
BBB:=量能饱和度>10AND量能饱和度<=20;
CCC:=量能饱和度>20AND量能饱和度<=30;
DDD:=量能饱和度>30AND量能饱和度<=50;
EEE:=量能饱和度>50AND量能饱和度<=70;
FFF:=量能饱和度>70AND量能饱和度<=80;
GGG:=量能饱和度>80AND量能饱和度<=90;
HHH:=量能饱和度>90;
IFBARSTATUS=2ANDAAATHENBEGINDRAWRECTREL(0,350,15,380,RGB(255,0,0));
END
ELSE
IFBARSTATUS=2ANDBBBTHENBEGINDRAWRECTREL(0,320,15,380,RGB(255,0,0));
END
ELSE
IFBARSTATUS=2ANDCCCTHENBEGINDRAWRECTREL(0,290,15,380,RGB(255,0,0));
END
ELSE
IFBARSTATUS=2ANDDDDTHENBEGINDRAWRECTREL(0,230,15,380,RGB(255,0,0));
END
ELSE
IFBARSTATUS=2ANDEEETHENBEGINDRAWRECTREL(0,170,15,380,RGB(255,0,0));
END
ELSE
IFBARSTATUS=2ANDFFFTHENBEGINDRAWRECTREL(0,140,15,380,RGB(255,0,0));
END
ELSE
IFBARSTATUS=2ANDGGGTHENBEGINDRAWRECTREL(0,110,15,380,RGB(255,0,0));
END
ELSE
IFBARSTATUS=2ANDHHHTHENBEGINDRAWRECTREL(0,85,15,380,RGB(255,0,0));
END;


RSI1预设:=5000;
RSI2预设:=5000;
RSI3预设:=5000;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
RSI3:=SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*100;
A:=SMA(MAX(CLOSE-LC,0),24,1);
B:=SMA(ABS(CLOSE-LC),24,1);
A1:=SMA(MAX(CLOSE-LC,0),6,1);
B1:=SMA(ABS(CLOSE-LC),6,1);
YCJ1:IF(C>LC,(REF(A1,1)*5-REF(B1,1)*5*RSI1预设/10000)/(RSI1预设/10000-1)+LC,LC+REF(B1,1)*5-REF(A1,1)*5/(RSI1预设/10000));
A2:=SMA(MAX(CLOSE-LC,0),12,1);
B2:=SMA(ABS(CLOSE-LC),12,1);
YCJ2:IF(C>LC,(REF(A2,1)*11-REF(B2,1)*11*RSI2预设/10000)/(RSI1预设/10000-1)+LC,LC+REF(B2,1)*11-REF(A2,1)*11/(RSI1预设/10000));
YCJ3:IF(C>LC,(REF(A,1)*23-REF(B,1)*23*RSI3预设/10000)/(RSI3预设/10000-1)+LC,LC+REF(B,1)*23-REF(A,1)*23/(RSI3预设/10000));


A74:=MA(CLOSE,20);
A75:=(CLOSE>MA(CLOSE,5));
A76:=(MA(CLOSE,5)>MA(CLOSE,10));
A77:=(CLOSE>MA(CLOSE,10));
A78:=(MA(CLOSE,5)>MA(CLOSE,20));
A79:=(CLOSE>MA(CLOSE,20));
A710:=REF(A74,1);
A711:=(A74>A710);
AVX:=(((((IF(A75,10,(0-10))+IF(A76,10,(0-10)))+IF(A77,10,(0-10)))+IF(A78,10,(0-10)))+IF(A79,10,(0-10)))+IF(A711,10,(0-10)));
DSLX:=(CLOSE/INDEXC);
DSLX1:=MA(DSLX,5);
DSLX2:=MA(DSLX,10);
V1:=MA(VOL,5);
V2:=MA(VOL,10);T:=BARSLAST(DISPSTATUS=1)+1;
T:=BARSLAST(DISPSTATUS=1)+1;
HHg:=HHV(H,T);
ddg:=LLV(L,T);
IFBARSTATUS=2andc<200and((CROSS(AVX,1)AND(V1>=V2))AND(DSLX>=DSLX1))THEN
DRAWTEXTREL(360,960,'的量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右。'),color0000FF,LINETHICK1;
IFBARSTATUS=2andc<200and((CROSS(AVX,1)AND(V1<V2))AND(DSLX>=DSLX1))THEN
DRAWTEXTREL(360,960,'虽然走势趋强，但量能还显不足，可以考虑短线进场，仓位在1/2左右。'),color0000FF,LINETHICK1;
IFBARSTATUS=2andc<200and((CROSS(AVX,1)AND(V1>V2))AND(DSLX<DSLX1))THEN
DRAWTEXTREL(360,960,'量价配合良好，但相对其它股票并没有明显走强，可以考虑短线进场，仓位1/2左右。'),color0000FF,LINETHICK1;
IFBARSTATUS=2andc<200and((CROSS(AVX,1)AND(V1<=V2))AND(DSLX<DSLX1))THEN
DRAWTEXTREL(360,960,'形态尚可，但量能不足，股票也未完全走强，可以短线参与，仓位1/3左右。'),color0000FF,LINETHICK1;
IFBARSTATUS=2andc<200and((CROSS(1,AVX)AND(V1>=V2))AND(DSLX>=DSLX1))THEN
DRAWTEXTREL(360,960,'形态变坏，但走势相对其它股票尚可，重仓者减持大半，清仓者可以观望。'),color00FF00,LINETHICK1;
IFBARSTATUS=2andc<200and((CROSS(1,AVX)AND(V1<V2))AND(DSLX>=DSLX1))THEN
DRAWTEXTREL(360,960,'随大盘一起下跌，程明显缩量走势，考虑到大盘风险，减持或清仓。'),color00FF00,LINETHICK1;
IFBARSTATUS=2andc<200and((CROSS(1,AVX)AND(V1>=V2))AND(DSLX<DSLX1))THEN
DRAWTEXTREL(360,960,'放量下跌，走势明显偏弱，离场观望。'),color00FF00,LINETHICK1;
IFBARSTATUS=2andc<200and((CROSS(1,AVX)AND(V1<V2))AND(DSLX<DSLX1))THEN
DRAWTEXTREL(360,960,'缩量下跌，走势偏弱，离场观望。'),color00FF00,LINETHICK1;
IFBARSTATUS=2andc<200and((((AVX>=1)AND(REF(AVX,1)>0))AND(V1>=V2))AND(DSLX>=DSLX1))THEN
DRAWTEXTREL(360,960,'形态良好，强势明显，量能充足，可以继续持有。'),color00FFFF,LINETHICK1;
IFBARSTATUS=2andc<200and((((AVX>=1)AND(REF(AVX,1)>0))AND(V1<V2))AND(DSLX>=DSLX1))THEN
DRAWTEXTREL(360,960,'上行趋势不变，强势依然，但量能开始转弱，注意风险。'),color00FFFF,LINETHICK1;
IFBARSTATUS=2andc<200and((((AVX>=1)AND(REF(AVX,1)>0))AND(V1>=V2))AND(DSLX<DSLX1))THEN
DRAWTEXTREL(360,960,'仍然具备上涨潜力，但股性偏弱，可考虑减仓。'),color00FFFF,LINETHICK1;
IFBARSTATUS=2andc<200and((((AVX>=1)AND(REF(AVX,1)>0))AND(V1<V2))AND(DSLX<DSLX1))THEN
DRAWTEXTREL(360,960,'走势趋弱，量能不足，减持大部分筹码。'),color00FFFF,LINETHICK1;
IFBARSTATUS=2andc<200and((((AVX<1)AND(REF(AVX,1)<0))AND(V1>=V2))AND(DSLX>=DSLX1))THEN
DRAWTEXTREL(360,960,'形态不佳，注意成交量的变化，但目前不适合参与。'),COLOR00FF00,LINETHICK1;
IFBARSTATUS=2andc<200and((((AVX<1)AND(REF(AVX,1)<0))AND(V1<V2))AND(DSLX>=DSLX1))THEN
DRAWTEXTREL(360,960,'趋势不明，股价偏弱，注意量能变化，目前不宜参与。'),COLOR00FF00,LINETHICK1;
IFBARSTATUS=2andc<200and((((AVX<1)AND(REF(AVX,1)<0))AND(V1>=V2))AND(DSLX<DSLX1))THEN
DRAWTEXTREL(360,960,'有走强迹象，但量能不足，趋势不明，不适合操作。'),COLOR00FF00,LINETHICK1;
IFBARSTATUS=2andc<200and((((AVX<1)AND(REF(AVX,1)<0))AND(V1<V2))AND(DSLX<DSLX1))THEN
DRAWTEXTREL(360,960,'走势太弱，没有参与价值。'),COLOR00FF00,LINETHICK1;
IFBARSTATUS=2andc>200and(CROSS(AVX,1)AND(V1>=V2))THEN
DRAWTEXTREL(360,960,'大盘量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右，'),color0000FF,LINETHICK1;
IFBARSTATUS=2andc>200and(CROSS(AVX,1)AND(V1>=V2))THEN
DRAWTEXTREL(360,960,'如前期经过一轮下跌，此时为最佳买点，但如果前期有过一段涨幅则介入需谨慎。'),color0000FF,LINETHICK1;
IFBARSTATUS=2andc>200and(CROSS(AVX,1)AND(V1<V2))THEN
DRAWTEXTREL(360,960,'大盘虽然走势趋强，但量能还显不足，如果前期经过一轮下跌，'),color0000FF,LINETHICK1;
IFBARSTATUS=2andc>200and(CROSS(AVX,1)AND(V1<V2))THEN
DRAWTEXTREL(360,960,'可以考虑短线进场，仓位在1/2左右，一旦量能放大可以加仓买入。'),color0000FF,LINETHICK1;
IFBARSTATUS=2andc>200and(CROSS(1,AVX)AND(V1>=V2))THEN
DRAWTEXTREL(360,960,'大盘形态走坏，重仓者可以减去大部分仓位。'),color00FF00,LINETHICK1;
IFBARSTATUS=2andc>200and(CROSS(1,AVX)AND(V1<V2))THEN
DRAWTEXTREL(360,960,'大盘缩量调整，注意风险，短线清仓观望。'),color00FF00,LINETHICK1;
IFBARSTATUS=2andc>200and(((AVX>=1)AND(REF(AVX,1)>0))AND(V1>=V2))THEN
DRAWTEXTREL(360,960,'大盘走势良好，量能理想，可以继续持有强势股。'),color00FFFF,LINETHICK1;
IFBARSTATUS=2andc>200and(((AVX>=1)AND(REF(AVX,1)>0))AND(V1<V2))THEN
DRAWTEXTREL(360,960,'大盘形态良好，但量能稍显不足，随时准备减仓。'),color00FFFF,LINETHICK1;
IFBARSTATUS=2andc>200and(((AVX<1)AND(REF(AVX,1)<0))AND(V1>=V2))THEN
DRAWTEXTREL(360,960,'大盘趋势不明，注意成交量变化，目前不适宜进场。'),COLOR00FF00,LINETHICK1;
IFBARSTATUS=2andc>200and(((AVX<1)AND(REF(AVX,1)<0))AND(V1<V2))THEN
DRAWTEXTREL(360,960,'大盘趋势向下，量能萎缩，不适合进场。'),COLOR00FF00,LINETHICK1;


E:=(HIGH+LOW+OPEN+2*CLOSE)/5;
明日阻力:=2*E-LOW;
明日支撑:=2*E-HIGH;
明日突破:=E+(HIGH-LOW);
明日反转:=E-(HIGH-LOW);
今日阻力:=REF(明日阻力,1);
今日支撑:=REF(明日支撑,1);

DRAWTEXTREL(100,100,'今日阻力=：'+NUMTOSTRN(今日阻力,2)+''),Color00FFFF;
DRAWTEXTREL(100,140,'今日支撑=：'+NUMTOSTRN(今日支撑,2)+''),Color00FF00;
DRAWTEXTREL(100,180,'明日突破=：'+NUMTOSTRN(明日突破,2)),ColorFF00FF;
DRAWTEXTREL(100,220,'明日阻力=：'+NUMTOSTRN(明日阻力,2)),ColorFFFF00;
DRAWTEXTREL(100,260,'明日支撑=：'+NUMTOSTRN(明日支撑,2)),COLORRED;
DRAWTEXTREL(100,300,'明日反转=：'+NUMTOSTRN(明日反转,2)),COLORGREEN;


趋势
37.5;
22.77;
-22.77;
-37.5;

Var3:=REF(CLOSE,2);
入市资金:SMA(MAX(CLOSE-Var3,0),8,1)/SMA(ABS(CLOSE-Var3),8,1)*100-50,Color00FFFF;
趋势:SMA(((CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100),3,1)-50,ColorFF8000;
趋势5:ema(趋势,5),COLORGREEN;

DRAWICON(CROSS(趋势,-37.5),-40,1),COLORGREEN;
DRAWICON(CROSS(37.5,趋势),45,2),COLORYELLOW;

bb1:=SMA(ABS(L-REF(L,1)),3,1);
bb2:=SMA(MAX((L-REF(L,1)),0),3,1);
bb3:=bb1/bb2*100;
bb4:=EMA(IF(C*1.2,bb3*10,bb3/10),3);
bb5:=LLV(L,38);
bb6:=HHV(bb4,38);
bb7:=IF(LLV(L,90),1,0);
bb8:=IF(L<=bb5,(bb4+bb6*2)/2,0);
秘密筹码:SQRT(EMA(bb8,3)/1000*bb7)*3,COLORRED;




回复

举报

返回列表 发新帖

GMT+8, 2025-2-24 00:11

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