股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
    上一主题 下一主题

    [通达信] 「指标」通达信江恩时空 百分比 黄金分割 主图 源码

     
        [-----复制链接-----]

    22万

    主题

    22万

    帖子

    14

    精华

    积分
    11040
    楼主
    2024-2-21 12:05:05
    【资料名称】:通达信江恩时空 百分比 黄金分割 主图 源码介绍
    【资料描述】:

    通达信江恩时空 百分比 黄金分割 主图 源码

    江恩时空百分

    N:=6000;

    高:=REFDATE(HHV(H,N),DATE);
    低:=REFDATE(LLV(L,N),DATE);
    H11:=高-(高-低)*1.000;
    H10:=高-(高-低)*0.875;
    H9:=高-(高-低)*0.750;
    H8:=高-(高-低)*0.666;
    H7:=高-(高-低)*0.625;
    H6:=高-(高-低)*0.500;
    H5:=高-(高-低)*0.375;
    H4:=高-(高-低)*0.333;
    H3:=高-(高-低)*0.250;
    H2:=高-(高-低)*0.125;
    H1:=高-(高-低)*0.000;
    STICKLINE(CURRBARSCOUNT=18,高,高,120,1),COLORGREEN;
    STICKLINE(CURRBARSCOUNT=18,H1,H1,120,1),COLORCYAN;
    STICKLINE(CURRBARSCOUNT=18,H2,H2,120,1),COLORCCCCCC;
    DRAWTEXT(CURRBARSCOUNT=10,H1,'0.000'),COLORCYAN;
    DRAWTEXT(CURRBARSCOUNT=10,H2,' 0.125'),COLORFFFFFF;
    DRAWTEXT(CURRBARSCOUNT=10,H3,' 0.250'),COLORYELLOW;
    DRAWTEXT(CURRBARSCOUNT=10,H4,' 0.333'),COLORLIRED;
    DRAWTEXT(CURRBARSCOUNT=10,H5,' 0.375'),COLORGREEN;
    DRAWTEXT(CURRBARSCOUNT=10,H6,' 0.500'),COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=10,H7,' 0.625'),COLORRED;
    DRAWTEXT(CURRBARSCOUNT=10,H8,' 0.666'),COLORRED;
    DRAWTEXT(CURRBARSCOUNT=10,H9,' 0.750'),COLORGREEN;
    DRAWTEXT(CURRBARSCOUNT=10,H10,' 0.875'),COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=10,H11,' 1.000'),COLORGREEN;
    STICKLINE(CURRBARSCOUNT=18,H3,H3,120,1),COLORYELLOW;
    STICKLINE(CURRBARSCOUNT=18,H4,H4,120,1),COLORLIRED;
    STICKLINE(CURRBARSCOUNT=18,H6,H6,120,1),COLORGREEN;
    STICKLINE(CURRBARSCOUNT=18,H5,H5,120,1),COLORMAGENTA;
    STICKLINE(CURRBARSCOUNT=18,低,低,120,1),COLORRED;
    STICKLINE(CURRBARSCOUNT=18,H7,H7,120,1),COLORRED;
    STICKLINE(CURRBARSCOUNT=18,H8,H8,120,1),COLORRED;
    STICKLINE(CURRBARSCOUNT=18,H9,H9,120,1),COLORRED;
    STICKLINE(CURRBARSCOUNT=18,H10,H10,120,1),COLORRED;
    STICKLINE(CURRBARSCOUNT=18,H11,H11,120,1),COLORRED;
    DRAWTEXT(CURRBARSCOUNT=35,高*0.99,CON2STR(高,2)),COLORGREEN;
    DRAWTEXT(CURRBARSCOUNT=35,H11,CON2STR(H11,2)),COLORLIRED;
    DRAWTEXT(CURRBARSCOUNT=35,H10,CON2STR(H10,2)),COLORLIRED;
    DRAWTEXT(CURRBARSCOUNT=35,H9,CON2STR(H9,2)),COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=35,H8,CON2STR(H8,2)),COLORRED;
    DRAWTEXT(CURRBARSCOUNT=35,H1,CON2STR(H1,2)),COLORCYAN;
    DRAWTEXT(CURRBARSCOUNT=35,H2,CON2STR(H2,2)),COLORFFFFFF;
    DRAWTEXT(CURRBARSCOUNT=35,H3,CON2STR(H3,2)),COLORYELLOW;
    DRAWTEXT(CURRBARSCOUNT=35,H6,CON2STR(H6,2)),COLORGREEN;
    DRAWTEXT(CURRBARSCOUNT=35,H4,CON2STR(H4,2)),COLORLIRED;
    DRAWTEXT(CURRBARSCOUNT=35,H5,CON2STR(H5,2)),COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=35,H7,CON2STR(H7,2)),COLORRED;

    低点:=800;
    高点:=800;
    时间:=1;
    价格:=1;
    调点:=1;

    PURC:=CONST(FINDHIGH(H,0,高点*10,1));
    PLZ:=CONST(BARSLAST(PURC=H))+1;
    顶X:=CONST(IF(PLZ=1,H,REF(H,PLZ-1)));
    QQT:=CONST(FINDLOW(L,0,低点*10,1));
    PLL:=CONST(BARSLAST(QQT=L))+1;
    低X:=CONST(IF(PLL=1,L,REF(L,PLL-1)));
    ATM:=时间=2 OR 时间=2;
    QTM:=时间=1 OR 时间=1;
    BTM:=时间=1 OR 时间=1 OR 时间=1;
    AAZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.809),DRAWNULL);
    ABZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.5),DRAWNULL);
    ACZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.618),DRAWNULL);
    ADZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.382),DRAWNULL);
    AEZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.236),DRAWNULL);
    AFZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1),DRAWNULL);
    AGZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.809),DRAWNULL);
    AHZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.5),DRAWNULL);
    AIZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.618),DRAWNULL);
    AJZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.382),DRAWNULL);
    AKZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.236),DRAWNULL);
    ALZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2),DRAWNULL);
    AMZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.236),DRAWNULL);
    ANZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.382),DRAWNULL);
    AOZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.5),DRAWNULL);
    APZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.618),DRAWNULL);
    AQZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.809),DRAWNULL);
    ARZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*3),DRAWNULL);
    ASZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)),DRAWNULL);
    HXCS1:=CURRBARSCOUNT=AAZ OR CURRBARSCOUNT=ABZ OR CURRBARSCOUNT=ACZ OR CURRBARSCOUNT=ADZ
    OR CURRBARSCOUNT=AEZ OR CURRBARSCOUNT=AFZ OR CURRBARSCOUNT=AGZ OR CURRBARSCOUNT=AHZ
    OR CURRBARSCOUNT=AIZ OR CURRBARSCOUNT=AJZ OR CURRBARSCOUNT=AKZ OR CURRBARSCOUNT=ALZ
    OR CURRBARSCOUNT=AMZ OR CURRBARSCOUNT=ANZ OR CURRBARSCOUNT=AOZ
    OR CURRBARSCOUNT=APZ OR CURRBARSCOUNT=AQZ OR CURRBARSCOUNT=ARZ OR CURRBARSCOUNT=ASZ;
    QAZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1/8),DRAWNULL);
    QBZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2/8),DRAWNULL);
    QCZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*3/8),DRAWNULL);
    QDZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*4/3),DRAWNULL);
    QEZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*5/8),DRAWNULL);
    QGZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*6/8),DRAWNULL);
    QHZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*7/8),DRAWNULL);
    QIZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*9/8),DRAWNULL);
    QJZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1/3),DRAWNULL);
    QKZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2/3),DRAWNULL);
    QMZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*10/8),DRAWNULL);
    QNZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*11/8),DRAWNULL);
    QOZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*5/3),DRAWNULL);
    QPZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*13/8),DRAWNULL);
    QQZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*14/8),DRAWNULL);
    QRZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*15/8),DRAWNULL);
    QSZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*17/8),DRAWNULL);
    QTZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*18/8),DRAWNULL);
    QUZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*19/8),DRAWNULL);
    QVZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*21/8),DRAWNULL);
    QWZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*22/8),DRAWNULL);
    QXZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*23/8),DRAWNULL);
    QYZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*7/3),DRAWNULL);
    QZZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*8/3),DRAWNULL);
    HXCS2:=CURRBARSCOUNT=QAZ OR CURRBARSCOUNT=QBZ OR CURRBARSCOUNT=QCZ
    OR CURRBARSCOUNT=QDZ OR CURRBARSCOUNT=QEZ OR CURRBARSCOUNT=QGZ
    OR CURRBARSCOUNT=QHZ OR CURRBARSCOUNT=QIZ OR CURRBARSCOUNT=QJZ
    OR CURRBARSCOUNT=QKZ OR CURRBARSCOUNT=QMZ OR CURRBARSCOUNT=QNZ
    OR CURRBARSCOUNT=QOZ OR CURRBARSCOUNT=QPZ OR CURRBARSCOUNT=QQZ
    OR CURRBARSCOUNT=QRZ
    OR CURRBARSCOUNT=QSZ OR CURRBARSCOUNT=QTZ OR CURRBARSCOUNT=QUZ
    OR CURRBARSCOUNT=QVZ OR CURRBARSCOUNT=QWZ OR CURRBARSCOUNT=QXZ
    OR CURRBARSCOUNT=QYZ OR CURRBARSCOUNT=QZZ ;
    STICKLINE(HXCS1 OR HXCS2 ,顶X,低X,0,0),COLORMAGENTA;
    DRAWKLINE(H,O,L,C);
    天XX线:=IF(价格=5 AND 时间=5,DRAWNULL,顶X),COLORMAGENTA;
    地XX线:=IF(价格=5 AND 时间=5,DRAWNULL,低X),COLORMAGENTA;
    顶点:天XX线,COLORMAGENTA;
    底点:地XX线,COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=QAZ OR CURRBARSCOUNT=QIZ OR CURRBARSCOUNT=QSZ,顶X*0.98,'1/8')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=QBZ OR CURRBARSCOUNT=QMZ OR CURRBARSCOUNT=QTZ,顶X*0.98,'2/8')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=QCZ OR CURRBARSCOUNT=QNZ OR CURRBARSCOUNT=QUZ,顶X*0.98,'3/8')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=QEZ OR CURRBARSCOUNT=QPZ OR CURRBARSCOUNT=QVZ,顶X*0.98,'5/8')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=QGZ OR CURRBARSCOUNT=QQZ OR CURRBARSCOUNT=QWZ,顶X*0.98,'6/8')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=QHZ OR CURRBARSCOUNT=QRZ OR CURRBARSCOUNT=QXZ,顶X*0.98,'7/8')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=QJZ OR CURRBARSCOUNT=QDZ OR CURRBARSCOUNT=QYZ,顶X*0.98,'1/3')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=QKZ OR CURRBARSCOUNT=QOZ OR CURRBARSCOUNT=QZZ,顶X*0.98,'2/3')COLORMAGENTA;


    黄金分割


    低点:=800;
    高点:=800;
    时间:=1;
    价格:=1;
    调点:=2;

    PURC:=CONST(FINDHIGH(H,0,高点*10,1));
    PLZ:=CONST(BARSLAST(PURC=H))+1;
    顶X:=CONST(IF(PLZ=1,H,REF(H,PLZ-1)));
    QQT:=CONST(FINDLOW(L,0,低点*10,1));
    PLL:=CONST(BARSLAST(QQT=L))+1;
    低X:=CONST(IF(PLL=1,L,REF(L,PLL-1)));
    ATM:=时间=1 OR 时间=3;
    QTM:=时间=2 OR 时间=3;
    BTM:=时间=1 OR 时间=2 OR 时间=3;
    AAZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.809),DRAWNULL);
    ABZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.5),DRAWNULL);
    ACZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.618),DRAWNULL);
    ADZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.382),DRAWNULL);
    AEZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.236),DRAWNULL);
    AFZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1),DRAWNULL);
    AGZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.809),DRAWNULL);
    AHZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.5),DRAWNULL);
    AIZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.618),DRAWNULL);
    AJZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.382),DRAWNULL);
    AKZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.236),DRAWNULL);
    ALZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2),DRAWNULL);
    AMZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.236),DRAWNULL);
    ANZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.382),DRAWNULL);
    AOZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.5),DRAWNULL);
    APZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.618),DRAWNULL);
    AQZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.809),DRAWNULL);
    ARZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*3),DRAWNULL);
    ASZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)),DRAWNULL);
    HXCS1:=CURRBARSCOUNT=AAZ OR CURRBARSCOUNT=ABZ OR CURRBARSCOUNT=ACZ OR CURRBARSCOUNT=ADZ
    OR CURRBARSCOUNT=AEZ OR CURRBARSCOUNT=AFZ OR CURRBARSCOUNT=AGZ OR CURRBARSCOUNT=AHZ
    OR CURRBARSCOUNT=AIZ OR CURRBARSCOUNT=AJZ OR CURRBARSCOUNT=AKZ OR CURRBARSCOUNT=ALZ
    OR CURRBARSCOUNT=AMZ OR CURRBARSCOUNT=ANZ OR CURRBARSCOUNT=AOZ
    OR CURRBARSCOUNT=APZ OR CURRBARSCOUNT=AQZ OR CURRBARSCOUNT=ARZ OR CURRBARSCOUNT=ASZ;
    QAZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1/8),DRAWNULL);
    QBZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2/8),DRAWNULL);
    QCZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*3/8),DRAWNULL);
    QDZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*4/3),DRAWNULL);
    QEZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*5/8),DRAWNULL);
    QGZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*6/8),DRAWNULL);
    QHZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*7/8),DRAWNULL);
    QIZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*9/8),DRAWNULL);
    QJZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1/3),DRAWNULL);
    QKZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2/3),DRAWNULL);
    QMZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*10/8),DRAWNULL);
    QNZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*11/8),DRAWNULL);
    QOZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*5/3),DRAWNULL);
    QPZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*13/8),DRAWNULL);
    QQZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*14/8),DRAWNULL);
    QRZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*15/8),DRAWNULL);
    QSZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*17/8),DRAWNULL);
    QTZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*18/8),DRAWNULL);
    QUZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*19/8),DRAWNULL);
    QVZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*21/8),DRAWNULL);
    QWZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*22/8),DRAWNULL);
    QXZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*23/8),DRAWNULL);
    QYZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*7/3),DRAWNULL);
    QZZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*8/3),DRAWNULL);
    HXCS2:=CURRBARSCOUNT=QAZ OR CURRBARSCOUNT=QBZ OR CURRBARSCOUNT=QCZ
    OR CURRBARSCOUNT=QDZ OR CURRBARSCOUNT=QEZ OR CURRBARSCOUNT=QGZ
    OR CURRBARSCOUNT=QHZ OR CURRBARSCOUNT=QIZ OR CURRBARSCOUNT=QJZ
    OR CURRBARSCOUNT=QKZ OR CURRBARSCOUNT=QMZ OR CURRBARSCOUNT=QNZ
    OR CURRBARSCOUNT=QOZ OR CURRBARSCOUNT=QPZ OR CURRBARSCOUNT=QQZ
    OR CURRBARSCOUNT=QRZ
    OR CURRBARSCOUNT=QSZ OR CURRBARSCOUNT=QTZ OR CURRBARSCOUNT=QUZ
    OR CURRBARSCOUNT=QVZ OR CURRBARSCOUNT=QWZ OR CURRBARSCOUNT=QXZ
    OR CURRBARSCOUNT=QYZ OR CURRBARSCOUNT=QZZ ;
    STICKLINE(HXCS1 OR HXCS2 ,顶X,低X,0,0),COLORMAGENTA;
    DRAWKLINE(H,O,L,C);
    天XX线:=IF(价格=5 AND 时间=5,DRAWNULL,顶X),COLORMAGENTA;
    地XX线:=IF(价格=5 AND 时间=5,DRAWNULL,低X),COLORMAGENTA;
    顶点:天XX线,COLORMAGENTA;
    底点:地XX线,COLORMAGENTA;

    NOTEXT1:IF(价格=1 OR 价格=2 OR 价格=3,地XX线+(天XX线-地XX线)*0.5,DRAWNULL),COLORMAGENTA,DOTLINE;
    NOTEXT2:IF(价格=1 OR 价格=3,地XX线+(天XX线-地XX线)*0.236,DRAWNULL),COLORMAGENTA,DOTLINE;
    NOTEXT3:IF(价格=1 OR 价格=3,地XX线+(天XX线-地XX线)*0.382,DRAWNULL),COLORMAGENTA,DOTLINE;
    NOTEXT4:IF(价格=1 OR 价格=3,地XX线+(天XX线-地XX线)*0.618,DRAWNULL),COLORMAGENTA,DOTLINE;
    NOTEXT5:IF(价格=1 OR 价格=3,地XX线+(天XX线-地XX线)*0.809,DRAWNULL),COLORMAGENTA,DOTLINE;
    NOTEXT6:IF(价格=2 OR 价格=3,地XX线+(天XX线-地XX线)*1/8,DRAWNULL),COLORMAGENTA,DOTLINE;
    NOTEXT7:IF(价格=2 OR 价格=3,地XX线+(天XX线-地XX线)*2/8,DRAWNULL),COLORMAGENTA,DOTLINE;
    NOTEXT8:IF(价格=2 OR 价格=3,地XX线+(天XX线-地XX线)*3/8,DRAWNULL),COLORMAGENTA,DOTLINE;
    NOTEXT10:IF(价格=2 OR 价格=3,地XX线+(天XX线-地XX线)*5/8,DRAWNULL),COLORMAGENTA,DOTLINE;
    NOTEXT11:IF(价格=2 OR 价格=3,地XX线+(天XX线-地XX线)*6/8,DRAWNULL),COLORMAGENTA,DOTLINE;
    NOTEXT12:IF(价格=2 OR 价格=3,地XX线+(天XX线-地XX线)*7/8,DRAWNULL),COLORMAGENTA,DOTLINE;
    NOTEXT13:IF(价格=2 OR 价格=3,地XX线+(天XX线-地XX线)*1/3,DRAWNULL),COLORMAGENTA,DOTLINE;
    NOTEXT14:IF(价格=2 OR 价格=3,地XX线+(天XX线-地XX线)*2/3,DRAWNULL),COLORMAGENTA,DOTLINE;
    DRAWTEXT(CURRBARSCOUNT=AAZ OR CURRBARSCOUNT=AGZ OR CURRBARSCOUNT=AQZ,顶X*0.98,'0.809')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=ABZ OR CURRBARSCOUNT=AHZ OR CURRBARSCOUNT=AOZ,顶X*0.98,'0.500')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=ACZ OR CURRBARSCOUNT=AIZ OR CURRBARSCOUNT=APZ,顶X*0.98,'0.618')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=ADZ OR CURRBARSCOUNT=AJZ OR CURRBARSCOUNT=ANZ,顶X*0.98,'0.382')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=AEZ OR CURRBARSCOUNT=AKZ OR CURRBARSCOUNT=AMZ,顶X*0.98,'0.236')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=ASZ,顶X*0.98,'0.00')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=AFZ,顶X*0.98,'1.00')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=AGZ,顶X*0.98,'1.809')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=AIZ,顶X*0.98,'1.618')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=AJZ,顶X*0.98,'1.382')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=AKZ,顶X*0.98,'1.236')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=AHZ,顶X*0.98,'1.500')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=ALZ,顶X*0.98,'2.00')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=AMZ,顶X*0.98,'2.236')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=ANZ,顶X*0.98,'2.382')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=APZ,顶X*0.98,'2.618')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=AQZ,顶X*0.98,'2.809')COLORMAGENTA;
    DRAWTEXT(CURRBARSCOUNT=AOZ,顶X*0.98,'2.500')COLORMAGENTA;
     


    N:=6000;

    高:=REFDATE(HHV(H,N),DATE);
    低:=REFDATE(LLV(L,N),DATE);
    H1:=高-(高-低)*0.191;
    H2:=高-(高-低)*0.382;
    H3:=高-(高-低)*0.5;
    H4:=高-(高-低)*0.618;
    H5:=高-(高-低)*0.809;
    H6:=高-(高-低)*0.764;
    H7:=高-(高-低)*0.236;
    STICKLINE(CURRBARSCOUNT=8,高,高,0,1),COLORGREEN;
    STICKLINE(CURRBARSCOUNT=8,H1,H1,0,1),COLORCYAN;
    STICKLINE(CURRBARSCOUNT=8,H2,H2,0,1),COLORCCCCCC;
    DRAWTEXT(CURRBARSCOUNT=10,高,' 1.000'),COLORGREEN;
    DRAWTEXT(CURRBARSCOUNT=10,H1,'0.809'),COLORCYAN;
    DRAWTEXT(CURRBARSCOUNT=10,H2,' 0.618'),COLORFFFFFF;
    DRAWTEXT(CURRBARSCOUNT=10,H3,' 0.500'),COLORYELLOW;
    DRAWTEXT(CURRBARSCOUNT=10,H4,' 0.382'),COLORLIRED;
    DRAWTEXT(CURRBARSCOUNT=10,H6,' 0.236'),COLORGREEN;
    DRAWTEXT(CURRBARSCOUNT=10,低,' 0.000'),COLORRED;
    STICKLINE(CURRBARSCOUNT=8,H3,H3,0,1),COLORYELLOW;
    STICKLINE(CURRBARSCOUNT=8,H4,H4,0,1),COLORLIRED;
    STICKLINE(CURRBARSCOUNT=8,H6,H6,0,1),COLORGREEN;
    STICKLINE(CURRBARSCOUNT=8,H5,H5,0,1),COLORMAGENTA;
    STICKLINE(CURRBARSCOUNT=8,低,低,0,1),COLORRED;
    STICKLINE(CURRBARSCOUNT=8,H7,H7,0,1),COLORRED;
    DRAWTEXT(CURRBARSCOUNT=50,高*0.99,CON2STR(高,2)),COLORGREEN;
    DRAWTEXT(CURRBARSCOUNT=50,H1,CON2STR(H1,2)),COLORCYAN;
    DRAWTEXT(CURRBARSCOUNT=50,H2,CON2STR(H2,2)),COLORFFFFFF;
    DRAWTEXT(CURRBARSCOUNT=50,H3,CON2STR(H3,2)),COLORYELLOW;
    DRAWTEXT(CURRBARSCOUNT=50,H6,CON2STR(H6,2)),COLORGREEN;
    DRAWTEXT(CURRBARSCOUNT=50,H4,CON2STR(H4,2)),COLORLIRED;
    DRAWTEXT(CURRBARSCOUNT=50,低*1.01,CON2STR(低,2)),COLORRED;


     









     


     



    gd38372


    【下载地址隐藏】:                    点:回复可见地址
    游客,如果您要查看本帖隐藏内容请回复






    上一篇:「指标」买卖点提示(主图 指标)
    下一篇:「指标」一阳多线(通达信 主图 副图 选股 说明)
    回复

    举报

    QQ|

    GMT+8, 2024-11-10 22:45

    快速回复 返回顶部 返回列表