最新公告
  • 欢迎您光临九毛八公式指标网www.9m8.cn，本站全新改版试运行，期间内容全部免费，欢迎下载！欢迎加入本站VIP
    • 18年
    www.9m8.cn做最专业的免费股票公式指标资源网！
    副图均线布林涨停选股买点
    升级VIP
    首页
    当前位置：首页 > 通达信 > 副图

    通达信算八字副图指标 九毛八公式指标网

    正文概述    2024-04-07 12:21:43  
    通达信算八字副图指标 源码 贴图
    通达信算八字副图指标 源码 贴图

    {给股票算八字}{九毛八公式指标网www.9m8.cn}
    {参数：高低开收，最小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;

    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同时出现才行};
    {===表格竖线===}
    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));
    {==表格横线==};
    DRAWRECTREL(388,90,999,90,RGB(250,250,250));
    DRAWRECTREL(388,190,999,190,RGB(250,250,250));
    DRAWRECTREL(388,290,999,290,RGB(250,250,250));
    DRAWRECTREL(388,390,999,390,RGB(250,250,250));
    DRAWRECTREL(388,490,999,490,RGB(250,250,250));
    DRAWRECTREL(388,590,999,590,RGB(250,250,250));
    DRAWRECTREL(388,690,999,690,RGB(250,250,250));
    DRAWRECTREL(388,790,999,790,RGB(250,250,250));
    DRAWRECTREL(388,890,999,890,RGB(250,250,250));
    AX1:=STRCAT(STRCAT(STRCAT(STRCAT('日 期' ,' 开') ,' 高') ,' 低') ,' 收');
    DRAWTEXT_FIX(C 0,0.4,0.015,0,AX1),COLORYELLOW;
    {AX2:=STRCAT(STRCAT('摇头 ',' 摆尾'),' 翻身');
    DRAWTEXT_FIX(C 0,0.765,0.015,0,AX2),COLORWHITE;
    AX3:=STRCAT(STRCAT('小差',' 中差'),' 大差');
    DRAWTEXT_FIX(C 0,0.885,0.015,0,AX3),COLORRED;
    {====}
    AA2:=STRCAT(CON2STR(DAY,0),'日');
    DRAWTEXT_FIX(C 0,0.425,0.91,0,AA2),COLORYELLOW;
    BB1:=STRCAT(CON2STR(REF(MONTH,1),0),'月');
    BB2:=STRCAT(CON2STR(REF(DAY,1),0),'日');
    BB3:=STRCAT(BB1,BB2);
    DRAWTEXT_FIX(C 0,0.4,0.81,0,BB3),COLORYELLOW;
    CC2:=STRCAT(CON2STR(REF(DAY,2),0),'日');
    CC3:=STRCAT(BB1,CC2);
    DRAWTEXT_FIX(C 0,0.4,0.71,0,CC3),COLORYELLOW;
    DD2:=STRCAT(CON2STR(REF(DAY,3),0),'日');
    DD3:=STRCAT(BB1,DD2);
    DRAWTEXT_FIX(C 0,0.4,0.61,0,DD3),COLORYELLOW;
    EE2:=STRCAT(CON2STR(REF(DAY,4),0),'日');
    EE3:=STRCAT(BB1,EE2);
    DRAWTEXT_FIX(C 0,0.4,0.51,0,EE3),COLORYELLOW;
    FF2:=STRCAT(CON2STR(REF(DAY,5),0),'日');
    FF3:=STRCAT(BB1,FF2);
    DRAWTEXT_FIX(C 0,0.4,0.41,0,FF3),COLORYELLOW;
    GG2:=STRCAT(CON2STR(REF(DAY,6),0),'日');
    GG3:=STRCAT(BB1,GG2);
    DRAWTEXT_FIX(C 0,0.4,0.31,0,GG3),COLORYELLOW;
    HH2:=STRCAT(CON2STR(REF(DAY,7),0),'日');
    HH3:=STRCAT(BB1,HH2);
    DRAWTEXT_FIX(C 0,0.4,0.21,0,HH3),COLORYELLOW;
    YY2:=STRCAT(CON2STR(REF(DAY,8),0),'日');
    YY3:=STRCAT(BB1,YY2);
    DRAWTEXT_FIX(C 0,0.4,0.11,0,YY3),COLORYELLOW;
    DRAWTEXT_FIX(C 0,0.4,0.91,0,'今日'),COLORRED;
    {因为大小数据平铺后所占的空间不同，所以区分为 高中低价与指数 4类};
    低价1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) ;
    低价2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,1),2),' '),STRCAT(CON2STR(REF(H,1),2),' ')),STRCAT(CON2STR(REF(L,1),2),' ')),CON2STR(REF(C,1),2)) ;
    低价3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,2),2),' '),STRCAT(CON2STR(REF(H,2),2),' ')),STRCAT(CON2STR(REF(L,2),2),' ')),CON2STR(REF(C,2),2)) ;
    低价4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,3),2),' '),STRCAT(CON2STR(REF(H,3),2),' ')),STRCAT(CON2STR(REF(L,3),2),' ')),CON2STR(REF(C,3),2)) ;
    低价5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,4),2),' '),STRCAT(CON2STR(REF(H,4),2),' ')),STRCAT(CON2STR(REF(L,4),2),' ')),CON2STR(REF(C,4),2)) ;
    低价6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,5),2),' '),STRCAT(CON2STR(REF(H,5),2),' ')),STRCAT(CON2STR(REF(L,5),2),' ')),CON2STR(REF(C,5),2)) ;
    低价7:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,6),2),' '),STRCAT(CON2STR(REF(H,6),2),' ')),STRCAT(CON2STR(REF(L,6),2),' ')),CON2STR(REF(C,6),2)) ;
    低价8:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,7),2),' '),STRCAT(CON2STR(REF(H,7),2),' ')),STRCAT(CON2STR(REF(L,7),2),' ')),CON2STR(REF(C,7),2)) ;
    低价9:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,8),2),' '),STRCAT(CON2STR(REF(H,8),2),' ')),STRCAT(CON2STR(REF(L,8),2),' ')),CON2STR(REF(C,8),2)) ;
    中价1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')),STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) ;
    中价2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,1),2),' '),STRCAT(CON2STR(REF(H,1),2),' ')),STRCAT(CON2STR(REF(L,1),2),' ')),CON2STR(REF(C,1),2)) ;
    中价3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,2),2),' '),STRCAT(CON2STR(REF(H,2),2),' ')),STRCAT(CON2STR(REF(L,2),2),' ')),CON2STR(REF(C,2),2)) ;
    中价4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,3),2),' '),STRCAT(CON2STR(REF(H,3),2),' ')),STRCAT(CON2STR(REF(L,3),2),' ')),CON2STR(REF(C,3),2)) ;
    中价5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,4),2),' '),STRCAT(CON2STR(REF(H,4),2),' ')),STRCAT(CON2STR(REF(L,4),2),' ')),CON2STR(REF(C,4),2)) ;
    中价6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,5),2),' '),STRCAT(CON2STR(REF(H,5),2),' ')),STRCAT(CON2STR(REF(L,5),2),' ')),CON2STR(REF(C,5),2)) ;
    中价7:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,6),2),' '),STRCAT(CON2STR(REF(H,6),2),' ')),STRCAT(CON2STR(REF(L,6),2),' ')),CON2STR(REF(C,6),2)) ;
    中价8:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,7),2),' '),STRCAT(CON2STR(REF(H,7),2),' ')),STRCAT(CON2STR(REF(L,7),2),' ')),CON2STR(REF(C,7),2)) ;
    中价9:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,8),2),' '),STRCAT(CON2STR(REF(H,8),2),' ')),STRCAT(CON2STR(REF(L,8),2),' ')),CON2STR(REF(C,8),2)) ;
    高价1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) ;
    高价2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,1),2),' '),STRCAT(CON2STR(REF(H,1),2),' ')),STRCAT(CON2STR(REF(L,1),2),' ')),CON2STR(REF(C,1),2)) ;
    高价3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,2),2),' '),STRCAT(CON2STR(REF(H,2),2),' ')),STRCAT(CON2STR(REF(L,2),2),' ')),CON2STR(REF(C,2),2)) ;
    高价4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,3),2),' '),STRCAT(CON2STR(REF(H,3),2),' ')),STRCAT(CON2STR(REF(L,3),2),' ')),CON2STR(REF(C,3),2)) ;
    高价5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,4),2),' '),STRCAT(CON2STR(REF(H,4),2),' ')),STRCAT(CON2STR(REF(L,4),2),' ')),CON2STR(REF(C,4),2)) ;
    高价6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,5),2),' '),STRCAT(CON2STR(REF(H,5),2),' ')),STRCAT(CON2STR(REF(L,5),2),' ')),CON2STR(REF(C,5),2)) ;
    高价7:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,6),2),' '),STRCAT(CON2STR(REF(H,6),2),' ')),STRCAT(CON2STR(REF(L,6),2),' ')),CON2STR(REF(C,6),2)) ;
    高价8:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,7),2),' '),STRCAT(CON2STR(REF(H,7),2),' ')),STRCAT(CON2STR(REF(L,7),2),' ')),CON2STR(REF(C,7),2)) ;
    高价9:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,8),2),' '),STRCAT(CON2STR(REF(H,8),2),' ')),STRCAT(CON2STR(REF(L,8),2),' ')),CON2STR(REF(C,8),2)) ;
    指数1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')), CON2STR(C,2)) ;
    指数2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,1),2),' '),STRCAT(CON2STR(REF(H,1),2),' ')),STRCAT(CON2STR(REF(L,1),2),' ')),CON2STR(REF(C,1),2)) ;
    指数3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,2),2),' '),STRCAT(CON2STR(REF(H,2),2),' ')),STRCAT(CON2STR(REF(L,2),2),' ')),CON2STR(REF(C,2),2)) ;
    指数4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,3),2),' '),STRCAT(CON2STR(REF(H,3),2),' ')),STRCAT(CON2STR(REF(L,3),2),' ')),CON2STR(REF(C,3),2)) ;
    指数5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,4),2),' '),STRCAT(CON2STR(REF(H,4),2),' ')),STRCAT(CON2STR(REF(L,4),2),' ')),CON2STR(REF(C,4),2)) ;
    指数6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,5),2),' '),STRCAT(CON2STR(REF(H,5),2),' ')),STRCAT(CON2STR(REF(L,5),2),' ')),CON2STR(REF(C,5),2)) ;
    指数7:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,6),2),' '),STRCAT(CON2STR(REF(H,6),2),' ')),STRCAT(CON2STR(REF(L,6),2),' ')),CON2STR(REF(C,6),2)) ;
    指数8:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,7),2),' '),STRCAT(CON2STR(REF(H,7),2),' ')),STRCAT(CON2STR(REF(L,7),2),' ')),CON2STR(REF(C,7),2)) ;
    指数9:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,8),2),' '),STRCAT(CON2STR(REF(H,8),2),' ')),STRCAT(CON2STR(REF(L,8),2),' ')),CON2STR(REF(C,8),2)) ;
    QQ1:=IF(CONST(H) 10,低价1,IF(CONST(H) 100,中价1,IF(CONST(H) 1000,高价1,指数1)));
    QQ2:=IF(CONST(REF(H,1)) 10,低价2,IF(CONST(REF(H,1)) 100,中价2,IF(CONST(REF(H,1)) 1000,高价2,指数2)));
    QQ3:=IF(CONST(REF(H,2)) 10,低价3,IF(CONST(REF(H,2)) 100,中价3,IF(CONST(REF(H,2)) 1000,高价3,指数3)));
    QQ4:=IF(CONST(REF(H,3)) 10,低价4,IF(CONST(REF(H,3)) 100,中价4,IF(CONST(REF(H,3)) 1000,高价4,指数4)));
    QQ5:=IF(CONST(REF(H,4)) 10,低价5,IF(CONST(REF(H,4)) 100,中价5,IF(CONST(REF(H,4)) 1000,高价5,指数5)));
    QQ6:=IF(CONST(REF(H,5)) 10,低价6,IF(CONST(REF(H,5)) 100,中价6,IF(CONST(REF(H,5)) 1000,高价6,指数6)));
    QQ7:=IF(CONST(REF(H,6)) 10,低价7,IF(CONST(REF(H,6)) 100,中价7,IF(CONST(REF(H,6)) 1000,高价7,指数7)));
    QQ8:=IF(CONST(REF(H,7)) 10,低价8,IF(CONST(REF(H,7)) 100,中价8,IF(CONST(REF(H,7)) 1000,高价8,指数8)));
    QQ9:=IF(CONST(REF(H,8)) 10,低价9,IF(CONST(REF(H,8)) 100,中价9,IF(CONST(REF(H,8)) 1000,高价9,指数9)));
    DRAWTEXT_FIX(C 0,0.478,0.91,0,QQ1);
    DRAWTEXT_FIX(C 0,0.478,0.81,0,QQ2);
    DRAWTEXT_FIX(C 0,0.478,0.71,0,QQ3);
    DRAWTEXT_FIX(C 0,0.478,0.61,0,QQ4);
    DRAWTEXT_FIX(C 0,0.478,0.51,0,QQ5);
    DRAWTEXT_FIX(C 0,0.478,0.41,0,QQ6);
    DRAWTEXT_FIX(C 0,0.478,0.31,0,QQ7);
    DRAWTEXT_FIX(C 0,0.478,0.21,0,QQ8);
    DRAWTEXT_FIX(C 0,0.478,0.11,0,QQ9);
    SGX:=IF(上卦=1,'天',IF(上卦=2,'泽',IF(上卦=3,'火',IF(上卦=4,'雷',IF(上卦=5,'风',IF(上卦=6,'水',IF(上卦=7,'山',IF(上卦=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.71,0.91,0,SGX),COLOR00FFFF;
    XGX:=IF(下卦=1,'天',IF(下卦=2,'泽',IF(下卦=3,'火',IF(下卦=4,'雷',IF(下卦=5,'风',IF(下卦=6,'水',IF(下卦=7,'山',IF(下卦=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.73,0.91,0,XGX),COLOR00FFFF;
    SGX1:=IF(REF(上卦,1)=1,'天',IF(REF(上卦,1)=2,'泽',IF(REF(上卦,1)=3,'火',IF(REF(上卦,1)=4,'雷',IF(REF(上卦,1)=5,'风',IF(REF(上卦,1)=6,'水',IF(REF(上卦,1)=7,'山',IF(REF(上卦,1)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.71,0.81,0,SGX1),COLOR80FFFF;
    XGX1:=IF(REF(下卦,1)=1,'天',IF(REF(下卦,1)=2,'泽',IF(REF(下卦,1)=3,'火',IF(REF(下卦,1)=4,'雷',IF(REF(下卦,1)=5,'风',IF(REF(下卦,1)=6,'水',IF(REF(下卦,1)=7,'山',IF(REF(下卦,1)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.73,0.81,0,XGX1),COLOR80FFFF;
    SGX2:=IF(REF(上卦,2)=1,'天',IF(REF(上卦,2)=2,'泽',IF(REF(上卦,2)=3,'火',IF(REF(上卦,2)=4,'雷',IF(REF(上卦,2)=5,'风',IF(REF(上卦,2)=6,'水',IF(REF(上卦,2)=7,'山',IF(REF(上卦,2)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.71,0.71,0,SGX2),COLOR80FFFF;
    XGX2:=IF(REF(下卦,2)=1,'天',IF(REF(下卦,2)=2,'泽',IF(REF(下卦,2)=3,'火',IF(REF(下卦,2)=4,'雷',IF(REF(下卦,2)=5,'风',IF(REF(下卦,2)=6,'水',IF(REF(下卦,2)=7,'山',IF(REF(下卦,2)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.73,0.71,0,XGX2),COLOR80FFFF;
    SGX3:=IF(REF(上卦,3)=1,'天',IF(REF(上卦,3)=2,'泽',IF(REF(上卦,3)=3,'火',IF(REF(上卦,3)=4,'雷',IF(REF(上卦,3)=5,'风',IF(REF(上卦,3)=6,'水',IF(REF(上卦,3)=7,'山',IF(REF(上卦,3)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.71,0.61,0,SGX3),COLOR80FFFF;
    XGX3:=IF(REF(下卦,3)=1,'天',IF(REF(下卦,3)=2,'泽',IF(REF(下卦,3)=3,'火',IF(REF(下卦,3)=4,'雷',IF(REF(下卦,3)=5,'风',IF(REF(下卦,3)=6,'水',IF(REF(下卦,3)=7,'山',IF(REF(下卦,3)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.73,0.61,0,XGX3),COLOR80FFFF;
    SGX4:=IF(REF(上卦,4)=1,'天',IF(REF(上卦,4)=2,'泽',IF(REF(上卦,4)=3,'火',IF(REF(上卦,4)=4,'雷',IF(REF(上卦,4)=5,'风',IF(REF(上卦,4)=6,'水',IF(REF(上卦,4)=7,'山',IF(REF(上卦,4)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.71,0.51,0,SGX4),COLOR80FFFF;
    XGX4:=IF(REF(下卦,4)=1,'天',IF(REF(下卦,4)=2,'泽',IF(REF(下卦,4)=3,'火',IF(REF(下卦,4)=4,'雷',IF(REF(下卦,4)=5,'风',IF(REF(下卦,4)=6,'水',IF(REF(下卦,4)=7,'山',IF(REF(下卦,4)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.73,0.51,0,XGX4),COLOR80FFFF;
    SGX5:=IF(REF(上卦,5)=1,'天',IF(REF(上卦,5)=2,'泽',IF(REF(上卦,5)=3,'火',IF(REF(上卦,5)=4,'雷',IF(REF(上卦,5)=5,'风',IF(REF(上卦,5)=6,'水',IF(REF(上卦,5)=7,'山',IF(REF(上卦,5)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.71,0.41,0,SGX5),COLOR80FFFF;
    XGX5:=IF(REF(下卦,5)=1,'天',IF(REF(下卦,5)=2,'泽',IF(REF(下卦,5)=3,'火',IF(REF(下卦,5)=4,'雷',IF(REF(下卦,5)=5,'风',IF(REF(下卦,5)=6,'水',IF(REF(下卦,5)=7,'山',IF(REF(下卦,5)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.73,0.41,0,XGX5),COLOR80FFFF;
    SGX6:=IF(REF(上卦,6)=1,'天',IF(REF(上卦,6)=2,'泽',IF(REF(上卦,6)=3,'火',IF(REF(上卦,6)=4,'雷',IF(REF(上卦,6)=5,'风',IF(REF(上卦,6)=6,'水',IF(REF(上卦,6)=7,'山',IF(REF(上卦,6)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.71,0.31,0,SGX6),COLOR80FFFF;
    XGX6:=IF(REF(下卦,6)=1,'天',IF(REF(下卦,6)=2,'泽',IF(REF(下卦,6)=3,'火',IF(REF(下卦,6)=4,'雷',IF(REF(下卦,6)=5,'风',IF(REF(下卦,6)=6,'水',IF(REF(下卦,6)=7,'山',IF(REF(下卦,6)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.73,0.31,0,XGX6),COLOR80FFFF;
    SGX7:=IF(REF(上卦,7)=1,'天',IF(REF(上卦,7)=2,'泽',IF(REF(上卦,7)=3,'火',IF(REF(上卦,7)=4,'雷',IF(REF(上卦,7)=5,'风',IF(REF(上卦,7)=6,'水',IF(REF(上卦,7)=7,'山',IF(REF(上卦,7)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.71,0.21,0,SGX7),COLOR80FFFF;
    XGX7:=IF(REF(下卦,7)=1,'天',IF(REF(下卦,7)=2,'泽',IF(REF(下卦,7)=3,'火',IF(REF(下卦,7)=4,'雷',IF(REF(下卦,7)=5,'风',IF(REF(下卦,7)=6,'水',IF(REF(下卦,7)=7,'山',IF(REF(下卦,7)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.73,0.21,0,XGX7),COLOR80FFFF;
    SGX8:=IF(REF(上卦,8)=1,'天',IF(REF(上卦,8)=2,'泽',IF(REF(上卦,8)=3,'火',IF(REF(上卦,8)=4,'雷',IF(REF(上卦,8)=5,'风',IF(REF(上卦,8)=6,'水',IF(REF(上卦,8)=7,'山',IF(REF(上卦,8)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.71,0.11,0,SGX8),COLOR80FFFF;
    XGX8:=IF(REF(下卦,8)=1,'天',IF(REF(下卦,8)=2,'泽',IF(REF(下卦,8)=3,'火',IF(REF(下卦,8)=4,'雷',IF(REF(下卦,8)=5,'风',IF(REF(下卦,8)=6,'水',IF(REF(下卦,8)=7,'山',IF(REF(下卦,8)=8,'地',''))))))));
    DRAWTEXT_FIX(ISLASTBAR,0.73,0.11,0,XGX8),COLOR80FFFF;
    DRAWTEXT_FIX(ISLASTBAR,0.71,0.01,0,'上下卦爻'),COLORYELLOW;
    动爻0:=IF(动爻=1,'初',IF(动爻=2,'二',IF(动爻=3,'三',IF(动爻=4,'四',IF(动爻=5,'五',IF(动爻=6,'上',''))))));
    DRAWTEXT_FIX(ISLASTBAR,0.745,0.91,0,动爻0),COLOR8000FF;
    动爻1:=IF(REF(动爻,1)=1,'初',IF(REF(动爻,1)=2,'二',IF(REF(动爻,1)=3,'三',IF(REF(动爻,1)=4,'四',IF(REF(动爻,1)=5,'五',IF(REF(动爻,1)=6,'上',''))))));
    DRAWTEXT_FIX(ISLASTBAR,0.745,0.81,0,动爻1),COLOR8000FF;
    动爻2:=IF(REF(动爻,2)=1,'初',IF(REF(动爻,2)=2,'二',IF(REF(动爻,2)=3,'三',IF(REF(动爻,2)=4,'四',IF(REF(动爻,2)=5,'五',IF(REF(动爻,2)=6,'上',''))))));
    DRAWTEXT_FIX(ISLASTBAR,0.745,0.71,0,动爻2),COLOR8000FF;
    动爻3:=IF(REF(动爻,3)=1,'初',IF(REF(动爻,3)=2,'二',IF(REF(动爻,3)=3,'三',IF(REF(动爻,3)=4,'四',IF(REF(动爻,3)=5,'五',IF(REF(动爻,3)=6,'上',''))))));
    DRAWTEXT_FIX(ISLASTBAR,0.745,0.61,0,动爻3),COLOR8000FF;
    动爻4:=IF(REF(动爻,4)=1,'初',IF(REF(动爻,4)=2,'二',IF(REF(动爻,4)=3,'三',IF(REF(动爻,4)=4,'四',IF(REF(动爻,4)=5,'五',IF(REF(动爻,4)=6,'上',''))))));
    DRAWTEXT_FIX(ISLASTBAR,0.745,0.51,0,动爻4),COLOR8000FF;
    动爻5:=IF(REF(动爻,5)=1,'初',IF(REF(动爻,5)=2,'二',IF(REF(动爻,5)=3,'三',IF(REF(动爻,5)=4,'四',IF(REF(动爻,5)=5,'五',IF(REF(动爻,5)=6,'上',''))))));
    DRAWTEXT_FIX(ISLASTBAR,0.745,0.41,0,动爻5),COLOR8000FF;
    动爻6:=IF(REF(动爻,6)=1,'初',IF(REF(动爻,6)=2,'二',IF(REF(动爻,6)=3,'三',IF(REF(动爻,6)=4,'四',IF(REF(动爻,6)=5,'五',IF(REF(动爻,6)=6,'上',''))))));
    DRAWTEXT_FIX(ISLASTBAR,0.745,0.31,0,动爻6),COLOR8000FF;
    动爻7:=IF(REF(动爻,7)=1,'初',IF(REF(动爻,7)=2,'二',IF(REF(动爻,7)=3,'三',IF(REF(动爻,7)=4,'四',IF(REF(动爻,7)=5,'五',IF(REF(动爻,7)=6,'上',''))))));
    DRAWTEXT_FIX(ISLASTBAR,0.745,0.21,0,动爻7),COLOR8000FF;
    动爻8:=IF(REF(动爻,8)=1,'初',IF(REF(动爻,8)=2,'二',IF(REF(动爻,8)=3,'三',IF(REF(动爻,8)=4,'四',IF(REF(动爻,8)=5,'五',IF(REF(动爻,8)=6,'上',''))))));
    DRAWTEXT_FIX(ISLASTBAR,0.745,0.11,0,动爻8),COLOR8000FF;
    DRAWTEXT_FIX(ISLASTBAR,0.778,0.01,0,'日辰'),COLORYELLOW;
    DRAWTEXT_FIX(ISLASTBAR,0.77,0.91,0,STRCAT(TXT1,TXT2)),COLORYELLOW;
    DRAWTEXT_FIX(ISLASTBAR,0.77,0.81,0,STRCAT(REF(TXT1,1),REF(TXT2,1))),COLORYELLOW;
    DRAWTEXT_FIX(ISLASTBAR,0.77,0.71,0,STRCAT(REF(TXT1,2),REF(TXT2,2))),COLORYELLOW;
    DRAWTEXT_FIX(ISLASTBAR,0.77,0.61,0,STRCAT(REF(TXT1,3),REF(TXT2,3))),COLORYELLOW;
    DRAWTEXT_FIX(ISLASTBAR,0.77,0.51,0,STRCAT(REF(TXT1,4),REF(TXT2,4))),COLORYELLOW;
    DRAWTEXT_FIX(ISLASTBAR,0.77,0.41,0,STRCAT(REF(TXT1,5),REF(TXT2,5))),COLORYELLOW;
    DRAWTEXT_FIX(ISLASTBAR,0.77,0.31,0,STRCAT(REF(TXT1,6),REF(TXT2,6))),COLORYELLOW;
    DRAWTEXT_FIX(ISLASTBAR,0.77,0.21,0,STRCAT(REF(TXT1,7),REF(TXT2,7))),COLORYELLOW;
    DRAWTEXT_FIX(ISLASTBAR,0.77,0.11,0,STRCAT(REF(TXT1,8),REF(TXT2,8))),COLORYELLOW;



    九毛八公式指标，一个优质的公式指标平台！
    九毛八公式指标 » 通达信算八字副图指标 九毛八公式指标网 加入收藏

    相关推荐