您现在的位置:程序化交易>> 股票公式>> 大智慧>> 大智慧公式>>正文内容

抓主升立竿见影极品立庄量主图指标公式源码[大智慧公式]

相关标签:

原理解析:

N赋值:20
DRAWGBKLAST(日期>900101,STRIP(自定色,自定色,0))
DRAWTEXTABS(10,10,STKLABEL+''+品种名称+''+BKNAME),COLOR00FFFF
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR000055
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为6.5,0不为0则画空心柱.,COLOR000075
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR000095
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为3.5,0不为0则画空心柱.,COLOR0000B5
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR0000D5
当满足条件收盘价>=开盘价时,在最高价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR0000F5
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR303000
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为6.5,0不为0则画空心柱.,COLOR404000
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR505000
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为3.5,0不为0则画空心柱.,COLOR606000
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR707000
当满足条件收阴线时,在最高价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR808000
输出总股本(亿):FINANCE2(35)/10000,画黄色,线宽为0
输出流通(亿):FINANCE2(37)/10000,COLORFFFFFF,线宽为0
均价赋值:(3*收盘价+最高价+最低价+开盘价)/6
VAR1赋值:(8*均价+7*1日前的均价+6*2日前的均价+5*3日前的均价+4*4日前的均价+3*5日前的均价+2*6日前的均价+8日前的均价)/36
VAR2赋值:(2日内VAR1的最低值+4日内VAR1的最低值+6日内VAR1的最低值)/3
FILLRGN(VAR1,VAR2,VAR1>VAR2,(自定色))
输出短趋:VAR1,COLORFFFFFF
输出中趋:VAR2,画黄色
PARTLINE(中趋,中趋<1日前的中趋),画绿色
SZ1赋值:1日前的VAR1=1日前的VAR2AND VAR1>VAR2 AND 收盘价>VAR1
SZ2赋值:VAR1>VAR2 AND VAR1>1日前的VAR1AND VAR2>1日前的VAR2 AND 最高价/VAR1<1.1 AND 最低价>VAR2 ANDCLOSE>VAR1
SZ3赋值:VAR1>VAR2 AND VAR1>1日前的VAR1 ANDVAR2>=1日前的VAR2 AND 最高价/VAR1>1.1
SZ4赋值:VAR1>VAR2 ANDVAR1>1日前的VAR1 AND VAR2>1日前的VAR2 AND 收盘价>VAR2 ANDCLOSE<VAR1
SZ5赋值:(VAR1>VAR2 AND VAR2>1日前的VAR2 ANDVAR1不等于1日前的VAR1 AND 收盘价<VAR2) OR (VAR1>VAR2 ANDVAR1<1日前的VAR1 AND VAR2<1日前的VAR2 ANDCLOSE<VAR2)
 
SZ6赋值:1日前的VAR1>1日前的VAR2 AND VAR1=VAR2 ANDCLOSE<VAR2
XD1赋值:VAR1=VAR2 AND 收盘价<VAR2 OR (VAR1<1日前的VAR1 ANDVAR2<1日前的VAR2 AND 1日前的VAR1=1日前的VAR2 ANDCLOSE<VAR2)
XD2赋值:VAR1=VAR2 AND 收盘价>VAR1
SAT赋值:(成交额(元)/收盘价)/(N日内成交额(元)的最高值/N日内收盘价的最高值)
量能饱和度赋值:如果SAT>1,返回1,否则返回SAT*100
IFBARSTATUS=2 AND SZ1 THEN BEGINDRAWTEXTABS(320,25,'调整结束短线介入'),画红色
ENDELSEIF 数据位置状态=2AND SZ2 THEN BEGINDRAWTEXTABS(320,25,'上升通道走势良好'),画红色
ENDELSEIF 数据位置状态=2AND SZ3 THEN BEGINDRAWTEXTABS(320,25,'股价偏离注意调整'),画红色
ENDELSEIF 数据位置状态=2AND SZ4 THEN BEGINDRAWTEXTABS(320,25,'上升通道调整洗盘'),画绿色
ENDELSEIF 数据位置状态=2AND SZ5 THEN BEGINDRAWTEXTABS(320,25,'转向特征注意离场'),画绿色
ENDELSEIF 数据位置状态=2AND SZ6 THEN BEGINDRAWTEXTABS(320,25,'通道改变坚决离场'),画绿色
ENDELSEIF 数据位置状态=2AND XD1 THEN BEGINDRAWTEXTABS(320,25,'下跌通道只宜观望'),画绿色
ENDELSEIF 数据位置状态=2AND XD2 THEN BEGINDRAWTEXTABS(320,25,'短期底部准备进入'),画黄色
END
AB1赋值:获利盘为0.33%的成本分布
AB2赋值:获利盘为5%的成本分布
AB3赋值:获利盘为15%的成本分布
AB4赋值:获利盘为55%的成本分布
AB5赋值:获利盘为97%的成本分布
AA1赋值:获利盘为90%的成本分布
AA2赋值:获利盘为70%的成本分布
AA3赋值:获利盘为30%的成本分布
AA4赋值:获利盘为10%的成本分布
获利赋值:以收盘价计算的获利盘比例*100
套牢赋值:100-以收盘价计算的获利盘比例*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
TJ1赋值:成交量(手)=10日内成交量(手)的最高值 AND 成交量(手)>2*1日前的成交量(手) ANDCLOSE>VAR1
立桩量赋值:TJ1的5日过滤
TJ2赋值:如果上次立桩量距今天数=1ANDCLOSE>1日前的最高价,返回1,否则返回如果上次立桩量距今天数=2ANDCLOSE>2日前的最高价,返回1,否则返回如果上次立桩量距今天数=3ANDCLOSE>3日前的最高价,返回1,否则返回0
突破赋值:TJ2=1
当满足条件收盘价时,在上次立桩量距今天数日前的最高价和上次立桩量距今天数日前的最高价位置之间画柱状线,宽度为6,0不为0则画空心柱.,画青色
当满足条件收盘价时,在上次立桩量距今天数日前的最低价和上次立桩量距今天数日前的最低价位置之间画柱状线,宽度为6,0不为0则画空心柱.,画黄色
TJ3赋值:如果上次立桩量距今天数=1ANDCLOSE>1日前的最低价,返回1,否则返回如果上次立桩量距今天数=2ANDCLOSE>2日前的最低价,返回1,否则返回如果上次立桩量距今天数=3ANDCLOSE>3日前的最低价,返回1,否则返回0
三天法则赋值:TJ3=1
成立赋值:三天法则 AND突破
条件成立赋值:成立的3日过滤
当满足条件条件成立时,在最低价*0.99位置书写文字,画黄色
相对位置上画矩形,画白色
AAA赋值:量能饱和度<=10
BBB赋值:量能饱和度>10 AND 量能饱和度<=20
CCC赋值:量能饱和度>20 AND 量能饱和度<=30
DDD赋值:量能饱和度>30 AND 量能饱和度<=50
EEE赋值:量能饱和度>50 AND量能饱和度<=70
FFF赋值:量能饱和度>70 AND 量能饱和度<=80
GGG赋值:量能饱和度>80 AND量能饱和度<=90
HHH赋值:量能饱和度>90
条件判断 数据位置状态=2 AND AAA THEN BEGINDRAWRECTRE最低价
ENDELSEIF 数据位置状态=2 AND BBBTHEN BEGIN 相对位置上画矩形
ENDELSEIFBARSTATUS=2 AND CCC THEN BEGINDRAWRECTRE最低价
ENDELSEIF 数据位置状态=2 AND DDDTHEN BEGIN 相对位置上画矩形
ENDELSEIFBARSTATUS=2 AND EEE THEN BEGINDRAWRECTRE最低价
ENDELSEIF 数据位置状态=2 AND FFFTHEN BEGIN 相对位置上画矩形
ENDELSEIFBARSTATUS=2 AND GGG THEN BEGINDRAWRECTRE最低价
ENDELSEIF 数据位置状态=2 AND HHHTHEN BEGIN 相对位置上画矩形
END
 

源码:

N:=20;
DRAWGBKLAST(DATE>900101,STRIP(RGB(75,75,75),RGB(0,0,0),0));
DRAWTEXTABS(10,10,STKLABEL+'
'+STKNAME+'
'+BKNAME),COLOR00FFFF;
STICKLINE(C>=O,C,O,8,0),COLOR000055;
STICKLINE(C>=O,C,O,6.5,0),COLOR000075;
STICKLINE(C>=O,C,O,5,0),COLOR000095;
STICKLINE(C>=O,C,O,3.5,0),COLOR0000B5;
STICKLINE(C>=O,C,O,2,0),COLOR0000D5;
STICKLINE(C>=O,H,L,0.5,0),COLOR0000F5;
STICKLINE(C<O,C,O,8,0),COLOR303000;
STICKLINE(C<O,C,O,6.5,0),COLOR404000;
STICKLINE(C<O,C,O,5,0),COLOR505000;
STICKLINE(C<O,C,O,3.5,0),COLOR606000;
STICKLINE(C<O,C,O,2,0),COLOR707000;
STICKLINE(C<O,H,L,0.5,0),COLOR808000;
总股本(亿):FINANCE2(35)/10000,COLORYELLOW,LINETHICK0;{http://www.cxh99.com}
流通(亿):FINANCE2(37)/10000,COLORFFFFFF,LINETHICK0;{http://www.cxh99.com}
均价:=(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;
FILLRGN(VAR1,VAR2,VAR1>VAR2,(RGB(255,0,0)));
短趋:VAR1,ColorFFFFFF;
中趋:VAR2,COLORYELLOW;{http://cxh99.com}
PARTLINE(中趋,中趋<REF(中趋,1)),COLORGREEN;{http://www.cxh99.com}
SZ1:=REF(VAR1,1)=REF(VAR2,1)
AND VAR1>VAR2 AND CLOSE>VAR1;
SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1)
AND VAR2>REF(VAR2,1) AND H/VAR1<1.1 AND L>VAR2 AND
CLOSE>VAR1;
SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND
VAR2>=REF(VAR2,1) AND H/VAR1>1.1;
SZ4:=VAR1>VAR2 AND
VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND CLOSE>VAR2 AND
CLOSE<VAR1;
SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND
VAR1<>REF(VAR1,1) AND CLOSE<VAR2) OR (VAR1>VAR2 AND
VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND
CLOSE<VAR2);;
SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND
CLOSE<VAR2;
XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND
VAR2<REF(VAR2,1) AND REF(VAR1,1)=REF(VAR2,1) AND
CLOSE<VAR2);
XD2:=VAR1=VAR2 AND CLOSE>VAR1;

SAT:=(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N));
量能饱和度:=IF(SAT>1,1,SAT)*100;
IF
BARSTATUS=2 AND SZ1 THEN BEGIN

DRAWTEXTABS(320,25,'调整结束短线介入'),COLORRED;
END
ELSE
IF BARSTATUS=2
AND SZ2 THEN BEGIN

DRAWTEXTABS(320,25,'上升通道走势良好'),COLORRED;
END
ELSE
IF BARSTATUS=2
AND SZ3 THEN BEGIN

DRAWTEXTABS(320,25,'股价偏离注意调整'),COLORRED;
END
ELSE
IF BARSTATUS=2
AND SZ4 THEN BEGIN

DRAWTEXTABS(320,25,'上升通道调整洗盘'),COLORGREEN;{http://www.cxh99.com}
END
ELSE
IF BARSTATUS=2
AND SZ5 THEN BEGIN

DRAWTEXTABS(320,25,'转向特征注意离场'),COLORGREEN;{http://www.cxh99.com}
END
ELSE
IF BARSTATUS=2
AND SZ6 THEN BEGIN

DRAWTEXTABS(320,25,'通道改变坚决离场'),COLORGREEN;{http://www.cxh99.com}
END
ELSE
IF BARSTATUS=2
AND XD1 THEN BEGIN

DRAWTEXTABS(320,25,'下跌通道只宜观望'),COLORGREEN;{http://www.cxh99.com}
END
ELSE
IF BARSTATUS=2
AND XD2 THEN BEGIN

DRAWTEXTABS(320,25,'短期底部准备进入'),COLORYELLOW;{http://cxh99.com}
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;
TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND
CLOSE>VAR1;
立桩量:=FILTER(TJ1,5);
TJ2:=IF(BARSLAST(立桩量)=1 AND
CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量)=2 AND
CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量)=3 AND
CLOSE>REF(HIGH,3),1,0)));
突破:=TJ2=1;
STICKLINE(CLOSE,REF(HIGH,BARSLAST(立桩量)),REF(HIGH,BARSLAST(立桩量)),6,0),COLORCYAN;
STICKLINE(CLOSE,REF(LOW,BARSLAST(立桩量)),REF(LOW,BARSLAST(立桩量)),6,0),COLORYELLOW;{http://cxh99.com}
TJ3:=IF(BARSLAST(立桩量)=1
AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立桩量)=2 AND
CLOSE>REF(LOW,2),1,IF(BARSLAST(立桩量)=3 AND
CLOSE>REF(LOW,3),1,0)));
三天法则:=TJ3=1;
成立:=三天法则 AND
突破;
条件成立:=FILTER(成立,3);
DRAWTEXT(条件成立,L*0.99,'成立'),COLORYELLOW;{http://cxh99.com}
DRAWRECTREL(0,85,15,380,RGB(30,30,30)),COLORWHITE;
AAA:=量能饱和度<=10;

BBB:=量能饱和度>10 AND 量能饱和度<=20;
CCC:=量能饱和度>20 AND 量能饱和度<=30;

DDD:=量能饱和度>30 AND 量能饱和度<=50;
EEE:=量能饱和度>50 AND
量能饱和度<=70;
FFF:=量能饱和度>70 AND 量能饱和度<=80;
GGG:=量能饱和度>80 AND
量能饱和度<=90;
HHH:=量能饱和度>90;
IF BARSTATUS=2 AND AAA THEN BEGIN
DRAWRECTREL(0,350,15,380,RGB(255,0,0));
END
ELSE
IF BARSTATUS=2 AND BBB
THEN BEGIN DRAWRECTREL(0,320,15,380,RGB(255,0,0));
END
ELSE
IF
BARSTATUS=2 AND CCC THEN BEGIN
DRAWRECTREL(0,290,15,380,RGB(255,0,0));
END
ELSE
IF BARSTATUS=2 AND DDD
THEN BEGIN DRAWRECTREL(0,230,15,380,RGB(255,0,0));
END
ELSE
IF
BARSTATUS=2 AND EEE THEN BEGIN
DRAWRECTREL(0,170,15,380,RGB(255,0,0));
END
ELSE
IF BARSTATUS=2 AND FFF
THEN BEGIN DRAWRECTREL(0,140,15,380,RGB(255,0,0));
END
ELSE
IF
BARSTATUS=2 AND GGG THEN BEGIN
DRAWRECTREL(0,110,15,380,RGB(255,0,0));
END
ELSE
IF BARSTATUS=2 AND HHH
THEN BEGIN DRAWRECTREL(0,85,15,380,RGB(255,0,0));
END;

 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程

 

 

有思路,想编写各种指标公式,交易模型,选股公式,还原公式的朋友

可联系技术人员 QQ: 262069696  点击在线交流或微信:cxhjy888 进行 有偿收费 编写!(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

怎么收费,代编流程等详情请点击查阅!

(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

 


【字体: 】【打印文章】【查看评论

相关文章

    没有相关内容