{给股票算八字}
{参数：高低开收，最小1 最大4 缺省4}
DRAWRECTREL(0,900,356,1000,RGB(80,80,80));
DA:=YEAR AND MONTH AND DAY;
AAA:=STRCAT(CON2STR(YEAR,0),'年');
AAB:=STRCAT(CON2STR(MONTH,0),'月');
AA33:=STRCAT(CON2STR(DAY,0),'日');
AA4:=STRCAT('【',IF(WEEKDAY=1,'星期一',IF(WEEKDAY=2,'星期二',IF(WEEKDAY=3,'星期三',IF(WEEKDAY=4,'星期四',IF(WEEKDAY=5,'星期五',IF(WEEKDAY=6,'六','日')))))));
AA:=STRCAT(STRCAT(STRCAT(AAA,AAB),STRCAT(AA33,AA4)),'】');
DRAWTEXT_FIX(DA,0.21,0.97,0,AA),COLORRED;
K1:=MOD(DATETODAY(DATE),10);{1990年12月19日是戊午日，纳甲序数55，再过6天就是甲子,减掉的数值越大，前面的盲区越远，如果不想留下盲区可以不减，只是从K=0开始，第一位就是戊午了}
K2:=MOD(DATETODAY(DATE),12);{1990年12月19日是戊午日，纳甲序数55，再过6天就是甲子,减掉的数值越大，前面的盲区越远，如果不想留下盲区可以不减，只是从K=0开始，第一位就是戊午了}
TXT1:=IF(K1=0,'戊',IF(K1=1,'己',IF(K1=2,'庚',IF(K1=3,'辛',IF(K1=4,'壬',IF(K1=5,'癸',IF(K1=6,'甲',IF(K1=7,'乙',IF(K1=8,'丙',IF(K1=9,'丁',''))))))))));
TXT2:=IF(K2=0,'午日',IF(K2=1,'未日',IF(K2=2,'申日',IF(K2=3,'酉日',IF(K2=4,'戌日',IF(K2=5,'亥日',IF(K2=6,'子日',IF(K2=7,'丑日',IF(K2=8,'寅日',IF(K2=9,'卯日',IF(K2=10,'辰日',IF(K2=11,'巳日',''))))))))))));
{算八字原理:干支从1开始,从1970到1900天数25567+1 ,通达信数据是从1990.12.19开始，到1900的天数33224+1,0.375是收盘修正}
距日:=DATETODAY(DATE)+33225-0.375+1,NODRAW;
流年:=INTPART(DATE/10000),NODRAW;
流月:=(MOD(INTPART(DATE/100),100)-1)*2,NODRAW;
积日:=365.242*流年+6.15+15.2226*流月-1.9*SIN(0.262*流月),NODRAW;
立春:=365.242*流年+6.15+15.2226*2-1.9*SIN(0.262*2),NODRAW;
年干:MOD(流年-(距日<立春)+6,10)+1,NODRAW;
年支:MOD(流年-(距日<立春)+12,12)+1,NODRAW;
月干:MOD(流年*12+MOD(INTPART(DATE/100),100)-(距日<积日)+2,10)+1,NODRAW;
月支:MOD(流年*12+MOD(INTPART(DATE/100),100)-(距日<积日),12)+1,NODRAW;
TXT3:=IF(月干=5,'戊',IF(月干=6,'己',IF(月干=7,'庚',IF(月干=8,'辛',IF(月干=9,'壬',IF(月干=10,'癸',IF(月干=1,'甲',IF(月干=2,'乙',IF(月干=3,'丙',IF(月干=4,'丁',''))))))))));
TXT4:=IF(月支=7,'午月',IF(月支=8,'未月',IF(月支=9,'申月',IF(月支=10,'酉月',IF(月支=11,'戌月',IF(月支=12,'亥月',IF(月支=1,'子月',IF(月支=2,'丑月',IF(月支=3,'寅月',IF(月支=4,'卯月',IF(月支=5,'辰月',IF(月支=6,'巳月',''))))))))))));
TXT5:=IF(年干=5,'戊',IF(年干=6,'己',IF(年干=7,'庚',IF(年干=8,'辛',IF(年干=9,'壬',IF(年干=10,'癸',IF(年干=1,'甲',IF(年干=2,'乙',IF(年干=3,'丙',IF(年干=4,'丁',''))))))))));
TXT6:=IF(年支=7,'午年',IF(年支=8,'未年',IF(年支=9,'申年',IF(年支=10,'酉年',IF(年支=11,'戌年',IF(年支=12,'亥年',IF(年支=1,'子年',IF(年支=2,'丑年',IF(年支=3,'寅年',IF(年支=4,'卯年',IF(年支=5,'辰年',IF(年支=6,'巳年',''))))))))))));
{旬空}
KK:=MOD(DATETODAY(DATE)-6,60);
X:=INTPART(KK/10);
旬空:=IF(X=0,11,IF(X=1,9,IF(X=2,7,IF(X=3,5,IF(X=4,3,IF(X=5,1,DRAWNULL)))))),NODRAW;
TXT7:=IF(X=0,'戌亥空',IF(X=1,'申酉空',IF(X=2,'午未空',IF(X=3,'辰巳空',IF(X=4,'寅卯空',IF(X=5,'子丑空',''))))));
BZ:=STRCAT(STRCAT(STRCAT(STRCAT(TXT5,TXT6),', '),STRCAT(STRCAT(STRCAT(TXT3,TXT4),'; '),STRCAT(STRCAT(TXT1,TXT2),', '))),TXT7);
DRAWTEXT_FIX(ISLASTBAR,0.03,0.97,0,BZ),COLORYELLOW;
{本指标价咯计算没有解决大盘指数末尾为0的情况，还需要细化修正，并且引用的是即时行情数据而不是成交列表数值，一定要注意。比如：2017年5月11日收盘3061.50点应该是天水讼却变成天山遁，动爻也不对。}
JG:=IF(高低开收=1,H,IF(高低开收=2,L,IF(高低开收=3,O,IF(高低开收=4,C,DRAWNULL))));
位数上:=IF(JG>=10000,INTPART(JG/100),IF(JG>=1000 AND JG<10000,INTPART(JG/10),IF(JG>=100 AND JG<1000,INTPART(JG/10),IF(JG>=10 AND JG<100,INTPART(JG),IF(JG>=10 AND JG<100,INTPART(JG),IF(JG<10,INTPART(JG),DRAWNULL))))));
位数下:=IF(JG>=10000,FRACPART(JG/100)*10000,IF(JG>=1000 AND JG<10000,FRACPART(JG/10)*1000,IF(JG>=100 AND JG<1000,FRACPART(JG/10)*1000,IF(JG>=10 AND JG<100,FRACPART(JG)*100,IF(JG<10,FRACPART(JG)*100,DRAWNULL)))));
W1:=IF(位数上>=1000,INTPART(位数上/1000)+(INTPART(位数上/100)-INTPART(位数上/1000)*10)+(INTPART(位数上/10)-INTPART(位数上/100)*10)+(位数上-INTPART(位数上/10)*10),IF(位数上>=100 AND 位数上<1000,INTPART(位数上/100)+(INTPART(位数上/10)-INTPART(位数上/100)*10)+(位数上-INTPART(位数上/10)*10),IF(位数上>=10 AND 位数上<100,INTPART(位数上/10)+(位数上-INTPART(位数上/10)*10),IF(位数上<10,位数上,DRAWNULL))));
W2:=IF(位数下>=1000,INTPART(位数下/1000)+(INTPART(位数下/100)-INTPART(位数下/1000)*10)+(INTPART(位数下/10)-INTPART(位数下/100)*10)+(位数下-INTPART(位数下/10)*10),IF(位数下>=100 AND 位数下<1000,INTPART(位数下/100)+(INTPART(位数下/10)-INTPART(位数下/100)*10)+(位数下-INTPART(位数下/10)*10),IF(位数下>=10 AND 位数下<100,INTPART(位数下/10)+(位数下-INTPART(位数下/10)*10),IF(位数下<10,位数下,DRAWNULL))));
上卦:IF(MOD(W1,8)=0,8,MOD(W1,8))COLORWHITE,NODRAW;
下卦:IF(MOD(W2,8)=0,8,MOD(W2,8))COLORWHITE,NODRAW;
动爻:IF(MOD(W1+W2,6)=0,6,MOD(W1+W2,6)),COLORCYAN,NODRAW;{指标编写重点在于把前面一位数乘以10，然后去掉。只有这种起卦方法才与传统梅花易数的方法接近。本指标适合万点级别指数显示。}
{图片保存的格式必须是：BMP或者PNG，单引号加图片名称是一种引用格式，如果是通过内部计算得数的变量就要把单引号去掉。定点文字也是同样的逻辑。但是他们的缺点就是只有最后一个数据有效};
DRAWGBK(ISLASTBAR,0,0,0,CON2STR(INTPART(上卦*100+下卦*10+动爻),0),0);
{六神：青龙、白虎、朱雀、玄武、勾陈、腾蛇}
{DRAWTEXT_FIX(K1=0,0.39,0.90,0,'勾陈'),COLORYELLOW;}
DRAWRECTREL(357,210,386,880,RGB(50,60,60));
TXTA:=IF(K1=0,'勾陈',IF(K1=1,'腾蛇',IF(K1=2 OR K1=3,'白虎',IF(K1=4 OR K1=5,'玄武',IF(K1=6 OR K1=7,'青龙',IF(K1=8 OR K1=9,'朱雀',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.78,0,TXTA),COLORGREEN;{必须与TXTA同时出现才行};
TXTB:=IF(K1=0,'腾蛇',IF(K1=1,'白虎',IF(K1=2 OR K1=3,'玄武',IF(K1=4 OR K1=5,'青龙',IF(K1=6 OR K1=7,'朱雀',IF(K1=8 OR K1=9,'勾陈',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.67,0,TXTB),COLORMAGENTA;{必须与TXTB同时出现才行};
TXTC:=IF(K1=0,'白虎',IF(K1=1,'玄武',IF(K1=2 OR K1=3,'青龙',IF(K1=4 OR K1=5,'朱雀',IF(K1=6 OR K1=7,'勾陈',IF(K1=8 OR K1=9,'腾蛇',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.56,0,TXTC),COLORYELLOW;{必须与TXTC同时出现才行};
TXTD:=IF(K1=0,'玄武',IF(K1=1,'青龙',IF(K1=2 OR K1=3,'朱雀',IF(K1=4 OR K1=5,'勾陈',IF(K1=6 OR K1=7,'腾蛇',IF(K1=8 OR K1=9,'白虎',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.45,0,TXTD),COLORCYAN;{必须与TXTD同时出现才行};
TXTE:=IF(K1=0,'青龙',IF(K1=1,'朱雀',IF(K1=2 OR K1=3,'勾陈',IF(K1=4 OR K1=5,'腾蛇',IF(K1=6 OR K1=7,'白虎',IF(K1=8 OR K1=9,'玄武',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.34,0,TXTE),COLORWHITE;{必须与TXTE同时出现才行};
TXTF:=IF(K1=0,'朱雀',IF(K1=1,'勾陈',IF(K1=2 OR K1=3,'腾蛇',IF(K1=4 OR K1=5,'白虎',IF(K1=6 OR K1=7,'玄武',IF(K1=8 OR K1=9,'青龙',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.23,0,TXTF),COLORBLUE;{必须与TXTF同时出现才行};
{===表格竖线===分析家公式网 WWW.fxjgsw.com}
DRAWRECTREL(388,0,999,990,RGB(50,100,140));{充当“表格底色”}
{DRAWRECTREL(73,0,131,990,RGB(50,50,50));
DRAWRECTREL(189,0,247,990,RGB(50,50,50));
DRAWRECTREL(305,0,388,990,RGB(50,50,50));}
DRAWRECTREL(388,0,471,990,RGB(50,50,50));
DRAWRECTREL(471,0,529,990,RGB(50,78,250));
DRAWRECTREL(587,0,645,990,RGB(250,78,50));
DRAWRECTREL(703,0,761,990,RGB(50,78,50));
DRAWRECTREL(817,0,867,990,RGB(250,100,140));
DRAWRECTREL(916,0,960,990,RGB(50,100,250));
{==表格横线 |
给股票算八字，易学指标（通达信公式 副图 源码 测试图）
评论内容只代表网友观点，与本站立场无关！
评论摘要(共 0 条，得分 0 分，平均 0 分)
查看完整评论
* 使用方法：点击上面蓝色块，打开新页面按照提示进行
* 本网站提供的各种股票软件，例如大智慧软件，通达信软件，同花顺软件，东方财富通等等，和各种股票公式指标，例如大智慧公式，通达信公式，同花顺公式，文华公式，博易大师公式，股票价格计算公式等等公式指标等，都来源网上公开来源收集
本网提供的公式文件说明：
* alg格式飞狐股票公式，可以用飞狐交易师或者交易师软件导入；
* fnc格式大智慧新一代公式指标，可以用大智慧股票软件使用，少部分可以用分析家股票软件引入使用；
* exp格式大智慧经典版股票公式，仅可以用大智慧经典版股票软件引入使用；
* tni和tnc格式通达信股票公式，仅可以用通达信新引入使用，例如可以用通达信股票软件引入使用；
* tne，tn6格式通达信公式，可以用通达信公式编辑器5.0版导入，推荐通达信金融终端版本；
* hxf格式同花顺股票公式，仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式，交易师公式或者飞狐公式的时候，发现公式名称栏是空白的，这时候调整电脑时间到1997年，又能出现公式名称，并且能正常显示，可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式，通达信公式，同花顺公式,操盘手公式,飞狐公式，博易大师公式，金字塔公式，文华公式和交易师公式等等公式的密码，本网可帮恢复源码，有.偿.服.务无意勿扰，点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码，一般都可以编辑成公式，如果不明白公式的编辑，在本页右侧教程录像可参考，或者找公式教程资料学习，请搜索：教程
* 如果您发现软件内容或者链接错误，请点击报告错误谢谢！
* 站内提供的所有软件包含源码均是由网上搜集，若侵犯了你的版权利益，请联系通知我们!