<ins id="d3tjn"><th id="d3tjn"><delect id="d3tjn"></delect></th></ins>

        <strike id="d3tjn"><span id="d3tjn"><ol id="d3tjn"></ol></span></strike>

        <output id="d3tjn"></output>

            您現在的位置:程序化交易>> 股票公式>> 其他>> 其他軟件公式>>正文內容

            江恩第九條的時間公式[其他軟件公式]

            相關標簽:

            ?

            {<江恩第九條的時間>公式 X1835}
            {☆§提示:1首先十分感謝做多2008朋友的支持,在他的建議下,我修改老公式為學習了江恩第九條知識的同學所使用,
            江恩買賣十二法則第九條 當出現高低或新高時買入
            (1) 當市價開創新高,表示市勢向上,可以追市買入。 (2) 當市價下破新底,表示市勢向下,可以追沽。
            時間的因素 (1) 由從前頂部到底部的時間; (2) 由從前底部到底部的時間;
            (3) 由重要頂部到重要底部時間; (4) 由重要底部到重要頂部的時間。
            2只是粗略畫圖,計算機畫線不能代替手工作圖。
            3確定歷史數據完整。}
            {☆§說明: 1左上方顯示波段所在時間段的周期數字。參數"頂對底開關”是需要在0和1之間經常調整的,實現從頂底時間到時底對底頂對頂時間的轉換。多嘗試調調參數,別怕弄出問題大不了就刪掉公式重新導入。
            2'江九條'中江恩特別要注意的是4點,但我希望能有更多選擇,所以公式可以調節底對底 頂對頂 頂對底 底對頂 指定時間的頂底對光標的底或頂,誰知道哪個就管用了呢。
            3使用指定時間的時候,公式必須由使用者打出十字光標后,找到需要的那根K線,左上方顯示有K線對應的日期參數,填寫參數到參數名稱時'指定位置'后才能使用,
            4預設了1倍和2倍的,不可更改。另留有有4個自定義的數字,可以填寫時間段乘以的倍數(可以帶小數點的,但是在圖里顯示時候,考慮地方小就顯示保留了2位小數,
            但在最初計算時間倍數時使用的是填寫的完整參數,比如填寫1.618時,顯示時是1.62倍,但計算還是用1.618算后取整的。)
            自定義1和自定義2,目前預設時為0,由使用者自己寫入所需的比例數值。自定義3和4被我填上了數值3和4,也可由使用者自行更改。}

            ?

            ?

            原理解析:

            輸出INPUT:P(10,1,30),頂對底開關(0,0,1),參A(2,1,111),參B(1,1,111),參C(1,1,111),A偏移(0),B偏移(0),C偏移(0),指定時間(0,0,1381231),參自定義1(0),參自定義2(0),參自定義3(3),參自定義4(4)
            X1賦值:4P%之字轉向的前1個波谷值
            BARPOSX8賦值:4P%之字轉向的前1個波谷位置=0
            X11賦值:4P%之字轉向的前參A個波谷位置
            X18賦值:4P%之字轉向的前參B個波谷位置
            X13賦值:4P%之字轉向的前參C個波谷位置
            X3賦值:4P%之字轉向的前1個波峰值
            X31賦值:4P%之字轉向的前參A個波峰位置
            X38賦值:4P%之字轉向的前參B個波峰位置
            X33賦值:4P%之字轉向的前參C個波峰位置
            X5賦值:4P%之字轉向的前1個波峰位置=0
            輸出指定位置:0日內如果指定時間>0ANDDATE=指定時間,返回BARPOS,否則返回0的最高值,線寬為0
            光標位置賦值:SYSPARAM(1),線寬為0
            CLDIS賦值:X13[SYSPARAM(1)],線寬為0
            CHDIS賦值:X33[SYSPARAM(1)],線寬為0
            TCL賦值:光標位置-CLDIS,線寬為0
            TCH賦值:光標位置-CHDIS,線寬為0
            BLDIS賦值:X18[SYSPARAM(1)],線寬為0
            BHDIS賦值:X38[SYSPARAM(1)],線寬為0
            TBL賦值:光標位置-BLDIS,線寬為0
            TBH賦值:光標位置-BHDIS,線寬為0
            ALDIS賦值:X11[SYSPARAM(1)],線寬為0
            AHDIS賦值:X31[SYSPARAM(1)],線寬為0
            TAL賦值:光標位置-ALDIS,線寬為0
            TAH賦值:光標位置-AHDIS,線寬為0
            KA賦值:如果TCL>TCH,返回TAL+A偏移,否則返回TAH+A偏移,線寬為0
            KB賦值:如果TCL>TCH,返回TBH+B偏移,否則返回TBL+B偏移,線寬為0
            KC賦值:如果TCL>TCH,返回TCL+C偏移,否則返回TCH+C偏移,線寬為0
            PH賦值:最高價
            PL賦值:最低價
            PA賦值:如果TCL>TCH,返回PL[TAL+A偏移],否則返回PH[TAH+A偏移],線寬為0
            PB賦值:如果TCL>TCH,返回PH[TBH+B偏移],否則返回PL[TBL+B偏移],線寬為0
            PC賦值:如果TCL>TCH,返回PL[TCL+C偏移],否則返回PH[TCH+C偏移],線寬為0
            Y賦值:年份
            M賦值:月份
            D賦值:日
            光標時間賦值:0日內如果BARPOS=SYSPARAM(1),返回日期,否則返回0的最高值,線寬為0
            DRAWTEXTEX(指定時間=0,1,5,5,'光標時間是 '+NUMTOSTR(Y[SYSPARAM(1)],0)+STRRIGHT(NUMTOSTR(光標時間,0),4)+' 換算 '+NUMTOSTR(光標時間,0)),COLOR77FFFF
            DRAWTEXTEX(指定時間>0,1,5,5,'指定時間是 '+NUMTOSTR(指定時間,0)),COLOR77FFFF
            條件判斷 頂對底開關=0 THEN BEGIN 當滿足條件指定時間=0ANDBARPOS=KA時,在PA位置畫直線起點,當滿足條件BARPOS=KB時,在PB位置畫直線終點,0表示是否延長.,COLOR77FFFF,線寬為1
            當滿足條件BARPOS=KB時,在PB位置畫直線起點,當滿足條件BARPOS=KC時,在PC位置畫直線終點,0表示是否延長.,COLOR77FFFF,線寬為1
            當滿足條件指定時間>0ANDBARPOS=指定位置時,在4P%的之字轉向位置畫直線起點,當滿足條件BARPOS=KB時,在PB位置畫直線終點,0表示是否延長.,COLOR77FFFF,線寬為1
            當滿足條件BARPOS=KA時,在PA位置畫直線起點,當滿足條件BARPOS=KC時,在PC位置畫直線終點,0表示是否延長.,COLORFFAA99,線寬為1
            輸出TAC:如果指定時間>0,返回KC-指定位置,否則返回KC-KA,線寬為0
            DRAWTEXTEX(1,1,5,50,'初始時間段有 '+NUMTOSTR(TAC,0)+' 個周期'),COLOR77FFFF
            VERTLINE(指定時間=0 AND BARPOS=KA),COLORFFAA99,LINEDOT
            VERTLINE(指定時間>0 AND BARPOS=指定位置),COLORFFAA99,LINEDOT
            VERTLINE(BARPOS=KC),COLORFFAA99,LINEDOT
            VERTLINE(BARPOS=KC+TAC*1),畫紅色,LINEDOT
            當滿足條件BARPOS=KC+TAC*1時,在PC位置書寫文字,COLOR77FFFF
            VERTLINE(BARPOS=KC+TAC*2),畫紅色,LINEDOT
            當滿足條件BARPOS=KC+TAC*2時,在PC位置書寫文字,COLOR77FFFF
            條件判斷 參自定義1>0THEN BEGINVERTLINE(BARPOS=KC+TAC*參自定義1的整數部分),畫紅色,LINEDOT
            當滿足條件BARPOS=KC+TAC*參自定義1的整數部分時,在PC位置書寫文字,COLOR77FFFF
            END
            ?條件判斷 參自定義2>0 THEN BEGINVERTLINE(BARPOS=KC+TAC*參自定義2的整數部分),畫紅色,LINEDOT
            當滿足條件BARPOS=KC+TAC*參自定義2的整數部分時,在PC位置書寫文字,COLOR77FFFF
            END
            ?條件判斷 參自定義3>0 THEN BEGINVERTLINE(BARPOS=KC+TAC*參自定義3的整數部分),畫紅色,LINEDOT
            當滿足條件BARPOS=KC+TAC*參自定義3的整數部分時,在PC位置書寫文字,COLOR77FFFF
            END
            ?條件判斷 參自定義4>0 THEN BEGINVERTLINE(BARPOS=KC+TAC*參自定義4的整數部分),畫紅色,LINEDOT
            當滿足條件BARPOS=KC+TAC*參自定義4的整數部分時,在PC位置書寫文字,COLOR77FFFF
            END
            ?END
            條件判斷 頂對底開關>0 THEN BEGIN 當滿足條件指定時間=0ANDBARPOS=KB時,在PB位置畫直線起點,當滿足條件BARPOS=KC時,在PC位置畫直線終點,0表示是否延長.,COLOR77FFFF,線寬為1
            當滿足條件指定時間>0ANDBARPOS=指定位置時,在4P%的之字轉向位置畫直線起點,當滿足條件BARPOS=KC時,在PC位置畫直線終點,0表示是否延長.,COLOR77FFFF,線寬為1
            XX賦值:X
            //SETLBOUND(XX,K看)
            輸出---------------------說話啊-------------------}TBC:如果指定時間>0,返回KC-指定位置,否則返回KC-KB,線寬為0
            DRAWTEXTEX(1,1,5,50,'初始時間段有 '+NUMTOSTR(TBC,0)+' 個周期'),COLOR00AAFF
            VERTLINE(指定時間=0 AND BARPOS=KB),COLORFFAA99,LINEDOT
            VERTLINE(指定時間>0 AND BARPOS=指定位置),COLORFFAA99,LINEDOT
            VERTLINE(BARPOS=KC),COLORFFAA99,LINEDOT
            VERTLINE(BARPOS=KC+TBC*1),畫紅色,LINEDOT
            當滿足條件BARPOS=KC+TBC*1時,在PC位置書寫文字,COLOR00AAFF
            VERTLINE(BARPOS=KC+TBC*2),畫紅色,LINEDOT
            當滿足條件BARPOS=KC+TBC*2時,在PC位置書寫文字,COLOR00AAFF
            條件判斷 參自定義1>0THEN BEGINVERTLINE(BARPOS=KC+TBC*參自定義1的整數部分),畫紅色,LINEDOT
            當滿足條件BARPOS=KC+TBC*參自定義1的整數部分時,在PC位置書寫文字,COLOR00AAFF
            END
            ?條件判斷 參自定義2>0 THEN BEGINVERTLINE(BARPOS=KC+TBC*參自定義2的整數部分),畫紅色,LINEDOT
            當滿足條件BARPOS=KC+TBC*參自定義2的整數部分時,在PC位置書寫文字,COLOR00AAFF
            END
            ?條件判斷 參自定義3>0 THEN BEGINVERTLINE(BARPOS=KC+TBC*參自定義3的整數部分),畫紅色,LINEDOT
            當滿足條件BARPOS=KC+TBC*參自定義3的整數部分時,在PC位置書寫文字,COLOR00AAFF
            END
            ?條件判斷 參自定義4>0 THEN BEGINVERTLINE(BARPOS=KC+TBC*參自定義4的整數部分),畫紅色,LINEDOT
            當滿足條件BARPOS=KC+TBC*參自定義4的整數部分時,在PC位置書寫文字,COLOR00AAFF
            END
            ?END
            KLINE(開盤價,最高價,最低價,收盤價,0)
            ?
            ?

            源碼:

            ?


            input:p(10,1,30),頂對底開關(0,0,1),參a(2,1,111),參b(1,1,111),參c(1,1,111),A偏移(0),B偏移(0),C偏移(0),指定時間(0,0,1381231),參自定義1(0),參自定義2(0),參自定義3(3),參自定義4(4);x1:=TROUGH(4,p,1);//BARPOS
            x8:=TROUGHBARS(4,p,1)=0;x11:=TROUGHBARS(4,p,參a);x18:=TROUGHBARS(4,p,參b);
            x13:=TROUGHBARS(4,p,參c);x3:=PEAK(4,p,1);
            x31:=PEAKBARS(4,p,參a);
            x38:=PEAKBARS(4,p,參b);
            x33:=PEAKBARS(4,p,參c);x5:=PEAKBARS(4,p,1)=0;
            指定位置:hhv(if(指定時間>0 and date=指定時間,BARPOS,0),0),linethick0;
            光標位置:=SYSPARAM(1),linethick0;{ldis:=if(BARPOS=SYSPARAM(1),x18,0),linethick0;
            hdis:=if(BARPOS=SYSPARAM(1),x38,0),linethick0;}
            cldis:=x13[SYSPARAM(1)],linethick0;
            chdis:=x33[SYSPARAM(1)],linethick0;
            tcl:=光標位置-cldis,linethick0;
            tch:=光標位置-chdis,linethick0;bldis:=x18[SYSPARAM(1)],linethick0;
            bhdis:=x38[SYSPARAM(1)],linethick0;
            tbl:=光標位置-bldis,linethick0;
            tbh:=光標位置-bhdis,linethick0;aldis:=x11[SYSPARAM(1)],linethick0;
            ahdis:=x31[SYSPARAM(1)],linethick0;
            tal:=光標位置-aldis,linethick0;
            tah:=光標位置-ahdis,linethick0;Ka:=IF(tcl>tch,tal+A偏移,tah+A偏移),linethick0;
            Kb:=IF(tcl>tch,tbh+B偏移,tbl+B偏移),linethick0;
            Kc:=IF(tcl>tch,tcl+C偏移,tch+C偏移),linethick0;
            PH:=H;
            PL:=L;{說:=Ka;
            話:=Kb;
            啊:=Kc;}Pa:=IF(tcl>tch,PL[tal+A偏移],PH[tah+A偏移]),LINETHICK0;
            Pb:=IF(tcl>tch,PH[tbh+B偏移],PL[tbl+B偏移]),LINETHICK0;
            Pc:=IF(tcl>tch,PL[tcl+C偏移],PH[tch+C偏移]),LINETHICK0;y:=year;m:=month;d:=day;
            光標時間:=hhv(if(barpos=SYSPARAM(1),date,0),0),linethick0;
            DRAWTEXTEX(指定時間=0,1,5,5,'光標時間是 '+numtostr(y[SYSPARAM(1)],0)+STRRIGHT(numtostr(光標時間,0),4)+' 換算 '+numtostr(光標時間,0)),color77FFFF;
            DRAWTEXTEX(指定時間>0,1,5,5,'指定時間是 '+numtostr(指定時間,0)),color77FFFF;{☆§-------------------------------------§☆}
            if 頂對底開關=0 then begin {底對底或頂對頂}
            drawline(指定時間=0 and barpos=Ka,Pa,barpos=Kb,Pb,0),color77FFFF,linethick1;
            drawline(barpos=Kb,Pb,barpos=Kc,Pc,0),color77FFFF,linethick1;
            drawline(指定時間>0 and barpos=指定位置,zig(4,p),barpos=Kb,Pb,0),color77FFFF,linethick1;drawline(barpos=Ka,Pa,barpos=Kc,Pc,0),colorffaa99,linethick1;
            tac:if(指定時間>0,Kc-指定位置,Kc-Ka),linethick0;
            DRAWTEXTEX(1,1,5,50,'初始時間段有 '+numtostr(tac,0)+' 個周期'),color77FFFF;
            VERTLINE(指定時間=0 and barpos=Ka),colorffaa99,LINEDOT;
            VERTLINE(指定時間>0 and barpos=指定位置),colorffaa99,LINEDOT;
            VERTLINE(barpos=Kc),colorffaa99,LINEDOT;
            VERTLINE(barpos=Kc+tac*1),colorred,LINEDOT;
            drawtext(barpos=Kc+tac*1,Pc,'1'),color77FFFF;
            VERTLINE(barpos=Kc+tac*2),colorred,LINEDOT;
            drawtext(barpos=Kc+tac*2,Pc,'2'),color77FFFF;if 參自定義1>0then {call}
            begin
            VERTLINE(barpos=Kc+INTPART(tac*參自定義1)),colorred,LINEDOT;
            drawtext(barpos=Kc+INTPART(tac*參自定義1),Pc,NUMTOSTR(參自定義1,2)),color77FFFF;
            end; {retn}
            if 參自定義2>0 then {call}
            begin
            VERTLINE(barpos=Kc+INTPART(tac*參自定義2)),colorred,LINEDOT;
            drawtext(barpos=Kc+INTPART(tac*參自定義2),Pc,NUMTOSTR(參自定義2,2)),color77FFFF;
            end; {retn}if 參自定義3>0 then {call}
            begin
            VERTLINE(barpos=Kc+INTPART(tac*參自定義3)),colorred,LINEDOT;
            drawtext(barpos=Kc+INTPART(tac*參自定義3),Pc,NUMTOSTR(參自定義3,2)),color77FFFF;
            end; {retn}if 參自定義4>0 then {call}
            begin
            VERTLINE(barpos=Kc+INTPART(tac*參自定義4)),colorred,LINEDOT;
            drawtext(barpos=Kc+INTPART(tac*參自定義4),Pc,NUMTOSTR(參自定義4,2)),color77FFFF;
            end; {retn}end;{☆§-------------------------------------§☆}
            if 頂對底開關>0 then begin {頂對底或底對頂}drawline(指定時間=0 and barpos=Kb,Pb,barpos=Kc,Pc,0),color77FFFF,linethick1;
            drawline(指定時間>0 and barpos=指定位置,zig(4,p),barpos=Kc,Pc,0),color77FFFF,linethick1;
            //xx:=x;
            //SETLBOUND(xx,k看);
            {{小花園}---------------------說話啊-------------------}
            tbc:if(指定時間>0,Kc-指定位置,Kc-Kb),linethick0;DRAWTEXTEX(1,1,5,50,'初始時間段有 '+numtostr(tbc,0)+' 個周期'),color00aaFF;VERTLINE(指定時間=0 and barpos=Kb),colorffaa99,LINEDOT;
            VERTLINE(指定時間>0 and barpos=指定位置),colorffaa99,LINEDOT;
            VERTLINE(barpos=Kc),colorffaa99,LINEDOT;
            VERTLINE(barpos=Kc+tbc*1),colorred,LINEDOT;
            drawtext(barpos=Kc+tbc*1,Pc,'1'),color00aaFF;
            VERTLINE(barpos=Kc+tbc*2),colorred,LINEDOT;
            drawtext(barpos=Kc+tbc*2,Pc,'2'),color00aaFF;{☆§-------------------------------------§☆}
            if 參自定義1>0then {call}
            begin
            VERTLINE(barpos=Kc+INTPART(tbc*參自定義1)),colorred,LINEDOT;
            drawtext(barpos=Kc+INTPART(tbc*參自定義1),Pc,NUMTOSTR(參自定義1,2)),color00aaFF;
            end; {retn}
            if 參自定義2>0 then {call}
            begin
            VERTLINE(barpos=Kc+INTPART(tbc*參自定義2)),colorred,LINEDOT;
            drawtext(barpos=Kc+INTPART(tbc*參自定義2),Pc,NUMTOSTR(參自定義2,2)),color00aaFF;
            end; {retn}if 參自定義3>0 then {call}
            begin
            VERTLINE(barpos=Kc+INTPART(tbc*參自定義3)),colorred,LINEDOT;
            drawtext(barpos=Kc+INTPART(tbc*參自定義3),Pc,NUMTOSTR(參自定義3,2)),color00aaFF;
            end; {retn}if 參自定義4>0 then {call}
            begin
            VERTLINE(barpos=Kc+INTPART(tbc*參自定義4)),colorred,LINEDOT;
            drawtext(barpos=Kc+INTPART(tbc*參自定義4),Pc,NUMTOSTR(參自定義4,2)),color00aaFF;
            end; {retn}end;
            {-------------------------------------}
            {覺得k線被線阻擋,就重新畫k線}
            KLINE(O,H,L,C,0); {§未來多美好 公式組§}{題外話 一直以來,在和周圍股友交流中有種感覺,不知道各位是否也有同感,那就是學習
            經典理論知識分析的人看不起只會用公式的,而用公式的人又覺得傳統分析已經跟不上時代了。
            我覺得這種誤會源于缺乏溝通,假如傳統分析者要是了解到用公式可以更加方便的“一把尺量天下”
            ,只用公式的人要是清楚求新求變的公式內核算法都是由傳統技術演變而來,然后互相重視起來,就好了。
            希望我做的公式能給使用者帶來一點方便。}{程序化交易 www.planetbokep.com }
            {程序化交易 www.planetbokep.com }
            {程序化交易 www.planetbokep.com }

            公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程

            ?

             

            有思路,想編寫各種指標公式,交易模型,選股公式,還原公式的朋友

            可聯系技術人員 QQ: 262069696  點擊在線交流或微信:cxhjy888 進行 有償收費 編寫!(注:由于人數限制,QQ或微信請選擇方便的一個聯系我們就行,加好友時請簡單備注下您的需求,否則無法通過。謝謝您!)

            怎么收費,代編流程等詳情請點擊查閱!

            (注:由于人數限制,QQ或微信請選擇方便的一個聯系我們就行,加好友時請簡單備注下您的需求,否則無法通過。謝謝您!)

             


            【字體: 】【打印文章】【查看評論

            相關文章

              沒有相關內容
              男男乱J伦高H小说

                <ins id="d3tjn"><th id="d3tjn"><delect id="d3tjn"></delect></th></ins>

                  <strike id="d3tjn"><span id="d3tjn"><ol id="d3tjn"></ol></span></strike>

                  <output id="d3tjn"></output>