{黄金分割线} {自用纯K}
N:=34;
高1:=REF(HHV(H,N),3);
低1:=REF(LLV(L,N),3);
H1:=高1-(高1-低1)*0.191;
H2:=高1-(高1-低1)*0.382;
H3:=高1-(高1-低1)*0.500;
H4:=高1-(高1-低1)*0.618;
H5:=高1-(高1-低1)*0.809;
顶:REFDATE(高1,DATE),COLORRED,DOTLINE;
一:REFDATE(H1,DATE),COLORGRAY,DOTLINE;
二:REFDATE(H2,DATE),COLORGRAY,DOTLINE;
三:REFDATE(H3,DATE),COLORRED,DOTLINE;
四:REFDATE(H4,DATE),COLORGRAY,DOTLINE;
五:REFDATE(H5,DATE),COLORGRAY,DOTLINE;
低:REFDATE(低1,DATE),COLORGREEN,DOTLINE;
TT4:=(CURRBARSCOUNT=34);
DRAWTEXT(TT4 AND 顶,顶,'---顶---'),COLORCYAN;
DRAWTEXT(TT4 AND 一,一,'-0.809-'),COLORCYAN;
DRAWTEXT(TT4 AND 二,二,'-0.618-'),COLORCYAN;
DRAWTEXT(TT4 AND 三,三,'-0.500-'),COLORCYAN;
DRAWTEXT(TT4 AND 四,四,'-0.382-'),COLORCYAN;
DRAWTEXT(TT4 AND 五,五,'-0.191-'),COLORCYAN;
DRAWTEXT(TT4 AND 低,低,'---底---'),COLORCYAN;
{〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓}
DRAWTEXT(CURRBARSCOUNT=1,顶,CON2STR(顶,2)),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=1,一,CON2STR(一,2)),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,二,CON2STR(二,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1,三,CON2STR(三,2)),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=1,四,CON2STR(四,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1,五,CON2STR(五,2)),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,低,CON2STR(低,2)),COLORMAGENTA;
{〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓}
{K线------------------------------------------------绿}
STICKLINE(CLOSE<=REF(C,1),CLOSE,OPEN,0.1,0),COLOR00CC00;
STICKLINE(CLOSE<=REF(C,1),CLOSE,OPEN,3.1,0),COLOR00CC00;
STICKLINE(CLOSE<=REF(C,1),CLOSE,OPEN,2.7,0),COLOR003300;
STICKLINE(CLOSE<=REF(C,1),CLOSE,OPEN,2.1,0),COLOR006600;
STICKLINE(CLOSE<=REF(C,1),CLOSE,OPEN,1.5,0),COLOR009900;
STICKLINE(CLOSE<=REF(C,1),CLOSE,OPEN,0.9,0),COLOR00CC00;
STICKLINE(CLOSE<=REF(C,1),CLOSE,OPEN,0.3,0),COLOR00FF00;
{K线------------------------------------------------红}
STICKLINE(CLOSE>REF(C,1),CLOSE,OPEN,0.1,0),COLOR0000FF;
STICKLINE(CLOSE>REF(C,1),CLOSE,OPEN,3.1,0),COLOR0000FF;
STICKLINE(CLOSE>REF(C,1),CLOSE,OPEN,2.7,0),COLOR000077;
STICKLINE(CLOSE>REF(C,1),CLOSE,OPEN,2.1,0),COLOR000099;
STICKLINE(CLOSE>REF(C,1),CLOSE,OPEN,1.5,0),COLOR0000BB;
STICKLINE(CLOSE>REF(C,1),CLOSE,OPEN,0.9,0),COLOR0000DD;
STICKLINE(CLOSE>REF(C,1),CLOSE,OPEN,0.3,0),COLOR0000FF;
{〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓}
{涨跌停}
今涨停:ZTPRICE(REF(C,1),0.1),COLORRED,NODRAW;
今跌停:DTPRICE(REF(C,1),0.1),COLOR00A600,NODRAW;
明涨停:ZTPRICE(C,0.1),COLORRED,NODRAW; {盘后挂单看};
明跌停:DTPRICE(C,0.1),COLOR00A600,NODRAW;{盘后挂单看};
{主题投资,主营业务}
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(1,0.00,0.00,0,'主题投资：'),COLORGREEN;
DRAWTEXT_FIX(1,0.06,0.00,0,EXTERNSTR(0,1)),COLORCYAN;
DRAWTEXT_FIX(1,0.00,0.035,0,'主营业务：'),COLORGREEN;
DRAWTEXT_FIX(1,0.06,0.035,0,EXTERNSTR(0,2)),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.06,0.07,0,STRCAT(Z3,GNBLOCK)),COLORCYAN;
{涨_下跌_具体数据}
上涨家数:=STRCAT('【沪深上涨家数】:',CON2STR(DYNAINFO(60),0));
下跌家数:=STRCAT('【沪深下跌家数】:',CON2STR(DYNAINFO(61),0));
上涨百分比:=DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61))*100;
下跌百分比:=DYNAINFO(61)/(DYNAINFO(60)+DYNAINFO(61))*100;
DRAWTEXT_FIX(1,0.0575,0.105,0,上涨家数),COLORRED;
DRAWTEXT_FIX(1,0.16,0.105,0,STRCAT(STRCAT('(',VAR2STR(上涨百分比,2)),'%)')),COLORRED;
DRAWTEXT_FIX(1,0.22,0.105,0,下跌家数),COLORGREEN;
DRAWTEXT_FIX(1,0.32,0.105,0,STRCAT(STRCAT('(',VAR2STR(下跌百分比,2)),'%)')),COLORGREEN;
{〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓}
{右上角年月日}
TA0:=YEAR AND MONTH AND DAY;
TA1:=STRCAT(CON2STR(YEAR,0),'年');
TA2:=STRCAT(CON2STR(MONTH,0),'月');
TA3:=STRCAT(CON2STR(DAY,0),'日');
TA4:=STRCAT('星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
TA5:=STRCAT(STRCAT(STRCAT(TA1,TA2),STRCAT(TA3,TA4)),'');
DRAWTEXT_FIX(TA0,0.37,0.105,0,TA5),COLORWHITE;
{〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓}
时间:=VAR2STR(9.25,2);
DRAWTEXT_FIX(C>0,0.001,1,0,VARCAT('时间:',时间)),COLORMAGENTA;
竞价成交金額:=VAR2STR(DYNAINFO(15),2);
DRAWTEXT_FIX(C>0,0.055,1,0,VARCAT('竞价成交金額:',竞价成交金額)),COLORMAGENTA;
{〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓}
★★:=(SUM(EMA((CLOSE+LOW)/2,1)/3,3)),COLORWHITE,LINETHICK1;
☆☆:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,9))/3,LINETHICK1,DOTLINE,COLORMAGENTA;
∑:=(6*H+5*REF(H,1)+4*REF(H,2)+3*REF(H,3)+2*REF(H,4)+1*REF(H,5))/21,COLORGREEN,LINETHICK1;
◎:(6*L+5*REF(L,1)+4*REF(L,2)+3*REF(L,3)+2*REF(L,4)+1*REF(L,5))/21,COLORWHITE,LINETHICK1,DOTLINE;
☆:(3*H+2*REF(H,1)+1*REF(H,2))/6,COLORGREEN,LINETHICK1,DOTLINE;
★:=(3*L+2*REF(L,1)+1*REF(L,2))/6,COLORRED,LINETHICK1,DOTLINE;
◆:=MA(MA(C,5),3),COLORWHITE,LINETHICK1,DOTLINE;
DA:=(3*CLOSE+OPEN+LOW+HIGH)/6;
≌:=(20*DA+19*REF(DA,1)+18*REF(DA,2)+17*REF(DA,3)+16*REF(DA,4)+15*REF(DA,5)+14*REF(DA,6)
+13*REF(DA,7)+12*REF(DA,8)+11*REF(DA,9)+10*REF(DA,10)+9*REF(DA,11)+8*REF(DA,12)
+7*REF(DA,13)+6*REF(DA,14)+5*REF(DA,15)+4*REF(DA,16)+3*REF(DA,17)+2*REF(DA,18)+
REF(DA,20))/210,COLORCYAN,LINETHICK1;
{〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓}
HK:=EMA(C,3),COLORMAGENTA;
№H:=MA(HK,6),COLORCYAN,LINETHICK1,NODRAW;
{深蓝色柱}
STICKLINE(C>№H AND №H>O AND C>O,C,O,2.7,0),COLORB20000;
STICKLINE(C>№H AND №H>O AND C>O,C,O,2.7,0),COLOREC0000;
STICKLINE(C>№H AND №H>O AND C>O,C,O,2.1,0),COLORFF4600;
STICKLINE(C>№H AND №H>O AND C>O,C,O,1.5,0),COLORFF6300;
STICKLINE(C>№H AND №H>O AND C>O,C,O,0.9,0),COLORFF8B00;
STICKLINE(C>№H AND №H>O AND C>O,C,O,0.3,0),COLORFFAB00;
{〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓}
BK:=EMA(C,6),COLORMAGENTA;
⊙H:=MA(BK,3),COLORRED,LINETHICK1;
{黄s柱}
STICKLINE(C>⊙H AND ⊙H>O AND C>O,O,(O+C)/2,2.7,0),COLOR335555;
STICKLINE(C>⊙H AND ⊙H>O AND C>O,O,(O+C)/2,2.1,0),COLOR338888;
STICKLINE(C>⊙H AND ⊙H>O AND C>O,O,(O+C)/2,1.5,0),COLOR33AAAA;
STICKLINE(C>⊙H AND ⊙H>O AND C>O,O,(O+C)/2,0.9,0),COLOR33CCCC;
STICKLINE(C>⊙H AND ⊙H>O AND C>O,O,(O+C)/2,0,0),COLOR33EEEE;
{〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓}
{白色柱}
STICKLINE(CROSS(⊙H,№H) AND C>O,C,O,2.7,0),COLOR555555; |
黄金分割线 自用纯K（通达信公式 主图 源码 测试图）
评论内容只代表网友观点，与本站立场无关！
评论摘要(共 0 条，得分 0 分，平均 0 分)
查看完整评论
* 使用方法：点击上面蓝色块，打开新页面按照提示进行
* 本网站提供的各种股票软件，例如大智慧软件，通达信软件，同花顺软件，东方财富通等等，和各种股票公式指标，例如大智慧公式，通达信公式，同花顺公式，文华公式，博易大师公式，股票价格计算公式等等公式指标等，都来源网上公开来源收集
本网提供的公式文件说明：
* alg格式飞狐股票公式，可以用飞狐交易师或者交易师软件导入；
* fnc格式大智慧新一代公式指标，可以用大智慧股票软件使用，少部分可以用分析家股票软件引入使用；
* exp格式大智慧经典版股票公式，仅可以用大智慧经典版股票软件引入使用；
* tni和tnc格式通达信股票公式，仅可以用通达信新引入使用，例如可以用通达信股票软件引入使用；
* tne，tn6格式通达信公式，可以用通达信公式编辑器5.0版导入，推荐通达信金融终端版本；
* hxf格式同花顺股票公式，仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式，交易师公式或者飞狐公式的时候，发现公式名称栏是空白的，这时候调整电脑时间到1997年，又能出现公式名称，并且能正常显示，可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式，通达信公式，同花顺公式,操盘手公式,飞狐公式，博易大师公式，金字塔公式，文华公式和交易师公式等等公式的密码，本网可帮恢复源码，有.偿.服.务无意勿扰，点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码，一般都可以编辑成公式，如果不明白公式的编辑，在本页右侧教程录像可参考，或者找公式教程资料学习，请搜索：教程
* 如果您发现软件内容或者链接错误，请点击报告错误谢谢！
* 站内提供的所有软件包含源码均是由网上搜集，若侵犯了你的版权利益，请联系通知我们!