黄金分割比例 TJ360:=C=HHV(C,150);{黑马线}
TS360:=BARSLAST(TJ360);
HHC360:=REF(C,TS360);
RHHC360:=REF(HHC360,1);
TJ1360:=H>L AND C>RHHC360 ;
CS1360:=BARSLASTCOUNT(TJ1360);
CSS:=COUNT(CS1360=1,60);
MR:=CS1360=1 AND CSS=1;
HMXTS:=BARSLAST(MR);
黑马线:CONST(REF(C,HMXTS)),COLORFFFF00,LINETHICK2;
高:=REF(HHV(H,72),5);
龙门:REFDATE(高,DATE),COLORWHITE,LINETHICK2;
TM:=1200823;
涨停:IF(DATE<TM,ZTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),ZTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORRED;
跌停:IF(DATE<TM,DTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),DTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORGREEN;
明涨停:=IF(DATE<TM,C*IF(CODELIKE('688'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)),C*(IF(CODELIKE('688') OR CODELIKE('300'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)))),NODRAW,COLORLIMAGENTA;
明跌停:=IF(DATE<TM,C*IF(CODELIKE('688'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)),C*(IF(CODELIKE('688') OR CODELIKE('300'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)))),NODRAW,COLORFFFF00;
ZT:=C=涨停 AND PERIOD=5 AND H=C;
ZT1:=H=涨停 AND PERIOD=5 AND H>C;
DT:=C=跌停 AND PERIOD=5 AND L=C;
DT1:=L=跌停 AND PERIOD=5 AND L<C;
{涨停K线颜色设置}
STICKLINE(ZT,C,(O+C)/2,3,0),COLOR0000CC;
STICKLINE(ZT,O,(O+C)/2,3,0),COLORBBBBBB;
STICKLINE(DT,O,(O+C)/2,3,0),COLORBBBBBB;
STICKLINE(DT,C,(O+C)/2,3,0),COLOR00BB00;
{曾涨跌停打开K线颜色设置}
STICKLINE(ZT1,C,(O+C)/2,3,0),COLORFF00FF;
STICKLINE(ZT1,O,(O+C)/2,3,0),COLOR999999;
STICKLINE(DT1,O,(O+C)/2,3,0),COLOR888888;
STICKLINE(DT1,C,(O+C)/2,3,0),COLOR009900;
HDAY:=150;LDAY:=150;
TCH:=CONST(FINDHIGH(H,0,HDAY*10,1));
GTT:=CONST(BARSLAST(TCH=H))+1;
SX跌H:=CONST(IF(GTT=1,H,REF(H,GTT-1)));
BCL:=CONST(FINDLOW(L,0,LDAY*10,1));
DTT:=CONST(BARSLAST(BCL=L))+1,COLORLIBLUE;
SX涨L:=CONST(IF(DTT=1,L,REF(L,DTT-1)));
{斐波那契 下跌周期}
DRAWTEXT(CURRBARSCOUNT=GTT,SX跌H*0.985,'下跌'),COLOR00FF00;
STICKLINE(CURRBARSCOUNT=GTT,SX跌H,SX涨L,0,0),COLORGREEN;
FB3:STICKLINE(CURRBARSCOUNT=GTT-2,SX跌H,MAX(C,O),0,-1),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=GTT-2,SX跌H*0.97,'3'),COLOR00FF00;
FB5: STICKLINE(CURRBARSCOUNT=GTT-4,SX跌H,MAX(C,O),0,-1),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=GTT-4,SX跌H*0.97,'5'),COLOR00FF00;
FB8: STICKLINE(CURRBARSCOUNT=GTT-7,SX跌H,MAX(C,O),0,-1),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=GTT-7,SX跌H*0.97,'8'),COLOR00FF00;
FB13: STICKLINE(CURRBARSCOUNT=GTT-12,SX跌H,MAX(C,O),0,-1),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=GTT-12,SX跌H*0.97,'13'),COLOR00FF00;
FB21: STICKLINE(CURRBARSCOUNT=GTT-20,SX跌H,MAX(C,O),0,-1),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=GTT-20,SX跌H*0.97,'21'),COLOR00FF00;
FB34: STICKLINE(CURRBARSCOUNT=GTT-33,SX跌H,MAX(C,O),0,-1),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=GTT-33,SX跌H*0.97,'34 '),COLOR00FF00;
FB55: STICKLINE(CURRBARSCOUNT=GTT-54,SX跌H,MAX(C,O),0,-1),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=GTT-54,SX跌H*0.97,'55'),COLOR00FF00;
FB89: STICKLINE(CURRBARSCOUNT=GTT-88,SX跌H,MAX(C,O),0,-1),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=GTT-88,SX跌H*0.97,'89'),COLOR00FF00;
FB144: STICKLINE(CURRBARSCOUNT=GTT-143,SX跌H,MAX(C,O),0,-1),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=GTT-143,SX跌H*0.97,'144'),COLOR00FF00;
FB233: STICKLINE(CURRBARSCOUNT=GTT-232,SX跌H,MAX(C,O),0,-1),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=GTT-232,SX跌H*0.97,'233'),COLOR00FF00;
FB377: STICKLINE(CURRBARSCOUNT=GTT-376,SX跌H,MAX(C,O),0,-1),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=GTT-376,SX跌H*0.97,'376'),COLOR00FF00;
FB610: STICKLINE(CURRBARSCOUNT=GTT-609,SX跌H,MAX(C,O),0,-1),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=GTT-609,SX跌H*0.97,'610'),COLOR00FF00;
{斐波那契 上涨周期}
DRAWTEXT(CURRBARSCOUNT=DTT,SX涨L*1.03,'启动'),COLORYELLOW;
STICKLINE(CURRBARSCOUNT=DTT,SX跌H,SX涨L,0,0),COLORRED;
STICKLINE(CURRBARSCOUNT=DTT-2,MIN(C,O),SX涨L,0,-1),COLORAA00AA;
DRAWTEXT(CURRBARSCOUNT=DTT-2,SX涨L*1.03,'3'),COLOR0000FF;
STICKLINE(CURRBARSCOUNT=DTT-4,MIN(C,O),SX涨L,0,-1),COLORAA00AA;
DRAWTEXT(CURRBARSCOUNT=DTT-4,SX涨L*1.03,'5'),COLOR0000FF;
STICKLINE(CURRBARSCOUNT=DTT-7,MIN(C,O),SX涨L,0,-1),COLORAA00AA;
DRAWTEXT(CURRBARSCOUNT=DTT-7,SX涨L*1.03,'8'),COLOR0000FF;
STICKLINE(CURRBARSCOUNT=DTT-12,MIN(C,O),SX涨L,0,-1),COLORAA00AA;
DRAWTEXT(CURRBARSCOUNT=DTT-12,SX涨L*1.03,'13'),COLOR0000FF;
STICKLINE(CURRBARSCOUNT=DTT-20,MIN(C,O),SX涨L,0,-1),COLORAA00AA;
DRAWTEXT(CURRBARSCOUNT=DTT-20,SX涨L*1.03.01,'21'),COLOR0000FF;
STICKLINE(CURRBARSCOUNT=DTT-33,MIN(C,O),SX涨L,0,-1),COLORAA00AA;
DRAWTEXT(CURRBARSCOUNT=DTT-33,SX涨L*1.03,'34'),COLOR0000FF;
STICKLINE(CURRBARSCOUNT=DTT-54,MIN(C,O),SX涨L,0,-1),COLORAA00AA;
DRAWTEXT(CURRBARSCOUNT=DTT-54,SX涨L*1.03,'55'),COLOR0000FF;
STICKLINE(CURRBARSCOUNT=DTT-88,MIN(C,O),SX涨L,0,-1),COLORAA00AA;
DRAWTEXT(CURRBARSCOUNT=DTT-88,SX涨L*1.03,'89'),COLOR0000FF;
STICKLINE(CURRBARSCOUNT=DTT-143,MIN(C,O),SX涨L,0,-1),COLORAA00AA;
DRAWTEXT(CURRBARSCOUNT=DTT-143,SX涨L*1.03,'144'),COLOR0000FF;
STICKLINE(CURRBARSCOUNT=DTT-232,MIN(C,O),SX涨L,0,-1),COLORAA00AA;
DRAWTEXT(CURRBARSCOUNT=DTT-232,SX涨L*1.03,'233'),,COLOR0000FF;
STICKLINE(CURRBARSCOUNT=DTT-376,MIN(C,O),SX涨L,0,-1),COLORAA00AA;
DRAWTEXT(CURRBARSCOUNT=DTT-376,SX涨L*1.03,'376'),COLOR0000FF;
{黄金分割}
日:=150;昨前:=3;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前);
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),COLORLIBLUE;
低:=REFDATE(低1,DATE),COLORYELLOW;
DRAWNUMBER(ISLASTBAR,顶,顶),COLORLIBLUE;
DRAWNUMBER(ISLASTBAR,低,低),COLORYELLOW;
DH1:STICKLINE(FILTER(BETWEEN(H1,H,L),DTT) AND (CURRBARSCOUNT<DTT AND CURRBARSCOUNT<GTT),H*1.07,L*0.93,0,-1),COLORYELLOW;
DH2:STICKLINE(FILTER(BETWEEN(H2,H,L),DTT) AND (CURRBARSCOUNT<DTT AND CURRBARSCOUNT<GTT),H*1.07,L*0.93,0,-1),COLORYELLOW;
DH3:STICKLINE(FILTER(BETWEEN(H3,H,L),DTT) AND (CURRBARSCOUNT<DTT AND CURRBARSCOUNT<GTT),H*1.07,L*0.93,0,-1),COLORYELLOW;
DH4:STICKLINE(FILTER(BETWEEN(H4,H,L),DTT) AND (CURRBARSCOUNT<DTT AND CURRBARSCOUNT<GTT),H*1.07,L*0.93,0,-1),COLORYELLOW;
DH5:STICKLINE(FILTER(BETWEEN(H5,H,L),DTT) AND (CURRBARSCOUNT<DTT AND CURRBARSCOUNT<GTT),H*1.07,L*0.93,0,-1),COLORYELLOW;
DRAWTEXT(DH1 ,H*1.02,'0.809'),COLORLIBLUE;
DRAWTEXT(DH2 ,H*1.02,'0.618'),COLORLIBLUE;
DRAWTEXT(DH3 ,H*1.02,'0.500'),COLORLIBLUE;
DRAWTEXT(DH4 ,H*1.02,'0.382'),COLORLIBLUE;
DRAWTEXT(DH5 ,H*1.02,'0.191'),COLORLIBLUE;
半分:(O+C)/2,NODRAW,COLORWHITE;
JYZY:=(REF(C>=O,1) OR O>REF(H,1)) AND AMOUNT/V/100>REF(C,1) AND C<O;
假阳:=REF(C<=O,1) AND H<REF(O,1) AND C<(REF(O-C,1))/3+REF(C,1) AND AMOUNT/V/100<REF(C,1) AND C>O;
STICKLINE(JYZY,O,C,0.2,0),COLORRED;{假阴柱};
STICKLINE(假阳,O,C,0.5,0),COLORLIGREEN;{假阳柱};
股东增减:=100*(流通股东变化.人数-REF(流通股东变化.人数,1))/REF(流通股东变化.人数,1),NODRAW;
A1:DRAWTEXT_FIX(股东增减<=-8 AND BETWEEN(H4,H,L) ,0.74,0.05,0,'5级病马 '),COLORGREEN;
A2:DRAWTEXT_FIX(股东增减<=-10 AND BETWEEN(H3,H,L) ,0.69,0.05,0,'4级瘟马'),COLORLIBLUE;
A3:DRAWTEXT_FIX(股东增减<=-12 AND BETWEEN(H2,H,L),0.64,0.05,0,'3级黑马'),COLORWHITE;
A4:DRAWTEXT_FIX(股东增减<=-15 AND BETWEEN(H1,H,L),0.59,0.05,0,'2级巨马'),COLORYELLOW;
A5:DRAWTEXT_FIX(股东增减<=-20 AND BETWEEN(H1,H,L),0.54,0.05,0,'1级金马'),COLORRED;
B1:DRAWTEXT(股东增减<=-8 AND BETWEEN(H4,H,L) ,L*0.98,'5级病马'),COLORGREEN;
B2:DRAWTEXT(股东增减<=-10 AND BETWEEN(H3,H,L),L,'4级瘟马'),COLORLIBLUE;
B3:DRAWTEXT(股东增减<=-12 AND BETWEEN(H2,H,L),MIN(C,O),'3级黑马'),COLORWHITE;
B4:DRAWTEXT(股东增减<=-15 AND BETWEEN(H1,H,L),MAX(C,O),'2级巨马'),COLORYELLOW;
B5:DRAWTEXT(股东增减<=-20 AND BETWEEN(H1,H,L),H*1.02,'1级金马'),COLORRED;
AB1:=股东增减<=-8 AND BETWEEN(H4,H,L);
AB2:=股东增减<=-10 AND BETWEEN(H3,H,L);
AB3:=股东增减<=-12 AND BETWEEN(H2,H,L);
AB4:=股东增减<=-15 AND BETWEEN(H1,H,L);
AB5:=股东增减<=-20 AND BETWEEN(H1,H,L);
DTD:=AB1 OR AB2 OR AB3 OR AB4 OR AB5;
日期:=REF(DATE,BARSLAST(DTD))+19000000,NODRAW,COLORYELLOW;
DRAWNUMBER(DTD,L*0.977,日期);
DRAWTEXT_FIX(1,0.5,0,0,STRCAT('定级日期:','')),COLORYELLOW,LINETHICK2;
DRAWNUMBER_FIX(AB1,0.74,0,0,日期),COLORWHITE;
DRAWNUMBER_FIX(AB2,0.69,0,0,日期),COLORWHITE;
DRAWNUMBER_FIX(AB3,0.64,0,0,日期),COLORWHITE;
DRAWNUMBER_FIX(AB4,0.59,0,0,日期),COLORWHITE;
DRAWNUMBER_FIX(AB5,0.54,0,0,日期),COLORWHITE;
DRAWTEXT_FIX(1,0.5,0.05,0,STRCAT('金马定级:','')),COLORYELLOW,LINETHICK2;
ZY:=C<REF(C,1) AND EXIST(L=LLV(L,20),3);
ZFX:=O>REF(C,1) AND C>REF((H+L)/2,1) AND REF(ZY,1);
DRAWICON(ZFX,L,23);
DRAWICON((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.98,7);
DRAWICON((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)),HIGH*1.02,8);
|
- 软件大小:8.00 KB
- 推荐星级:
- 更新时间:2022-11-19 00:15:33
- 软件类别: 国产软件 / 通达信公式
- 软件语言:简体中文
- 授权方式: 免费版
- 联系方式:暂无联系方式
- 官方主页: Home Page
- 点击大图: 【一键转帖到论坛】
- 插件情况:
- 运行环境:Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
- 相关Tags:指标公式 股票软件,公式源码
-
(0)0%(0)0%
评论内容只代表网友观点,与本站立场无关!
本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程
* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!