<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>

            您現在的位置:程序化交易>> 股票公式>> 大智慧>> 大智慧公式>>正文內容

            抓主升立竿見影極品立莊量主圖指標公式源碼[大智慧公式]

            相關標簽:

            原理解析:

            N賦值:20
            DRAWGBKLAST(日期>900101,STRIP(自定色,自定色,0))
            DRAWTEXTABS(10,10,STKLABEL+''+品種名稱+''+BKNAME),COLOR00FFFF
            當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR000055
            當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為6.5,0不為0則畫空心柱.,COLOR000075
            當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR000095
            當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為3.5,0不為0則畫空心柱.,COLOR0000B5
            當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR0000D5
            當滿足條件收盤價>=開盤價時,在最高價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR0000F5
            當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR303000
            當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為6.5,0不為0則畫空心柱.,COLOR404000
            當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR505000
            當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為3.5,0不為0則畫空心柱.,COLOR606000
            當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR707000
            當滿足條件收陰線時,在最高價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR808000
            輸出總股本(億):FINANCE2(35)/10000,畫黃色,線寬為0
            輸出流通(億):FINANCE2(37)/10000,COLORFFFFFF,線寬為0
            均價賦值:(3*收盤價+最高價+最低價+開盤價)/6
            VAR1賦值:(8*均價+7*1日前的均價+6*2日前的均價+5*3日前的均價+4*4日前的均價+3*5日前的均價+2*6日前的均價+8日前的均價)/36
            VAR2賦值:(2日內VAR1的最低值+4日內VAR1的最低值+6日內VAR1的最低值)/3
            FILLRGN(VAR1,VAR2,VAR1>VAR2,(自定色))
            輸出短趨:VAR1,COLORFFFFFF
            輸出中趨:VAR2,畫黃色
            PARTLINE(中趨,中趨<1日前的中趨),畫綠色
            SZ1賦值:1日前的VAR1=1日前的VAR2AND VAR1>VAR2 AND 收盤價>VAR1
            SZ2賦值:VAR1>VAR2 AND VAR1>1日前的VAR1AND VAR2>1日前的VAR2 AND 最高價/VAR1<1.1 AND 最低價>VAR2 ANDCLOSE>VAR1
            SZ3賦值:VAR1>VAR2 AND VAR1>1日前的VAR1 ANDVAR2>=1日前的VAR2 AND 最高價/VAR1>1.1
            SZ4賦值:VAR1>VAR2 ANDVAR1>1日前的VAR1 AND VAR2>1日前的VAR2 AND 收盤價>VAR2 ANDCLOSE<VAR1
            SZ5賦值:(VAR1>VAR2 AND VAR2>1日前的VAR2 ANDVAR1不等于1日前的VAR1 AND 收盤價<VAR2) OR (VAR1>VAR2 ANDVAR1<1日前的VAR1 AND VAR2<1日前的VAR2 ANDCLOSE<VAR2)
            ?
            SZ6賦值:1日前的VAR1>1日前的VAR2 AND VAR1=VAR2 ANDCLOSE<VAR2
            XD1賦值:VAR1=VAR2 AND 收盤價<VAR2 OR (VAR1<1日前的VAR1 ANDVAR2<1日前的VAR2 AND 1日前的VAR1=1日前的VAR2 ANDCLOSE<VAR2)
            XD2賦值:VAR1=VAR2 AND 收盤價>VAR1
            SAT賦值:(成交額(元)/收盤價)/(N日內成交額(元)的最高值/N日內收盤價的最高值)
            量能飽和度賦值:如果SAT>1,返回1,否則返回SAT*100
            IFBARSTATUS=2 AND SZ1 THEN BEGINDRAWTEXTABS(320,25,'調整結束短線介入'),畫紅色
            ENDELSEIF 數據位置狀態=2AND SZ2 THEN BEGINDRAWTEXTABS(320,25,'上升通道走勢良好'),畫紅色
            ENDELSEIF 數據位置狀態=2AND SZ3 THEN BEGINDRAWTEXTABS(320,25,'股價偏離注意調整'),畫紅色
            ENDELSEIF 數據位置狀態=2AND SZ4 THEN BEGINDRAWTEXTABS(320,25,'上升通道調整洗盤'),畫綠色
            ENDELSEIF 數據位置狀態=2AND SZ5 THEN BEGINDRAWTEXTABS(320,25,'轉向特征注意離場'),畫綠色
            ENDELSEIF 數據位置狀態=2AND SZ6 THEN BEGINDRAWTEXTABS(320,25,'通道改變堅決離場'),畫綠色
            ENDELSEIF 數據位置狀態=2AND XD1 THEN BEGINDRAWTEXTABS(320,25,'下跌通道只宜觀望'),畫綠色
            ENDELSEIF 數據位置狀態=2AND XD2 THEN BEGINDRAWTEXTABS(320,25,'短期底部準備進入'),畫黃色
            END
            AB1賦值:獲利盤為0.33%的成本分布
            AB2賦值:獲利盤為5%的成本分布
            AB3賦值:獲利盤為15%的成本分布
            AB4賦值:獲利盤為55%的成本分布
            AB5賦值:獲利盤為97%的成本分布
            AA1賦值:獲利盤為90%的成本分布
            AA2賦值:獲利盤為70%的成本分布
            AA3賦值:獲利盤為30%的成本分布
            AA4賦值:獲利盤為10%的成本分布
            獲利賦值:以收盤價計算的獲利盤比例*100
            套牢賦值:100-以收盤價計算的獲利盤比例*100
            輸出DRAWTEXTABS(15,25,'量能飽和度:'+NUMTOSTRN(量能飽和度,2)+'%'),COLOR00FFFF
            輸出DRAWTEXTABS(15,40,'90成本:'+NUMTOSTRN(AA1,2)),COLOR00FFFF
            輸出DRAWTEXTABS(15,55,'70成本:'+NUMTOSTRN(AA2,2)),COLOR00FFFF
            輸出DRAWTEXTABS(15,70,'30成本:'+NUMTOSTRN(AA3,2)),COLOR00FFFF
            輸出DRAWTEXTABS(15,85,'10成本:'+NUMTOSTRN(AA4,2)),COLOR00FFFF
            輸出DRAWTEXTABS(15,100,'底出擊:'+NUMTOSTRN(AB1,2)),COLOR00FFFF
            輸出DRAWTEXTABS(520,25,'建倉:'+NUMTOSTRN(AB2,2)),COLOR00FFFF
            輸出DRAWTEXTABS(600,25,'快刀:'+NUMTOSTRN(AB3,2)),COLOR00FFFF
            輸出DRAWTEXTABS(675,25,'升浪:'+NUMTOSTRN(AB4,2)),COLOR00FFFF
            輸出DRAWTEXTABS(520,40,'獲利:'+NUMTOSTRN(獲利,2)+'%'),COLOR00FFFF
            輸出DRAWTEXTABS(600,40,'套牢:'+NUMTOSTRN(套牢,2)+'%'),COLOR00FFFF
            輸出DRAWTEXTABS(675,40,'預測:'+NUMTOSTRN(AB5,2)),COLOR00FFFF
            TJ1賦值:成交量(手)=10日內成交量(手)的最高值 AND 成交量(手)>2*1日前的成交量(手) ANDCLOSE>VAR1
            立樁量賦值:TJ1的5日過濾
            TJ2賦值:如果上次立樁量距今天數=1ANDCLOSE>1日前的最高價,返回1,否則返回如果上次立樁量距今天數=2ANDCLOSE>2日前的最高價,返回1,否則返回如果上次立樁量距今天數=3ANDCLOSE>3日前的最高價,返回1,否則返回0
            突破賦值:TJ2=1
            當滿足條件收盤價時,在上次立樁量距今天數日前的最高價和上次立樁量距今天數日前的最高價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,畫青色
            當滿足條件收盤價時,在上次立樁量距今天數日前的最低價和上次立樁量距今天數日前的最低價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,畫黃色
            TJ3賦值:如果上次立樁量距今天數=1ANDCLOSE>1日前的最低價,返回1,否則返回如果上次立樁量距今天數=2ANDCLOSE>2日前的最低價,返回1,否則返回如果上次立樁量距今天數=3ANDCLOSE>3日前的最低價,返回1,否則返回0
            三天法則賦值:TJ3=1
            成立賦值:三天法則 AND突破
            條件成立賦值:成立的3日過濾
            當滿足條件條件成立時,在最低價*0.99位置書寫文字,畫黃色
            相對位置上畫矩形,畫白色
            AAA賦值:量能飽和度<=10
            BBB賦值:量能飽和度>10 AND 量能飽和度<=20
            CCC賦值:量能飽和度>20 AND 量能飽和度<=30
            DDD賦值:量能飽和度>30 AND 量能飽和度<=50
            EEE賦值:量能飽和度>50 AND量能飽和度<=70
            FFF賦值:量能飽和度>70 AND 量能飽和度<=80
            GGG賦值:量能飽和度>80 AND量能飽和度<=90
            HHH賦值:量能飽和度>90
            條件判斷 數據位置狀態=2 AND AAA THEN BEGINDRAWRECTRE最低價
            ENDELSEIF 數據位置狀態=2 AND BBBTHEN BEGIN 相對位置上畫矩形
            ENDELSEIFBARSTATUS=2 AND CCC THEN BEGINDRAWRECTRE最低價
            ENDELSEIF 數據位置狀態=2 AND DDDTHEN BEGIN 相對位置上畫矩形
            ENDELSEIFBARSTATUS=2 AND EEE THEN BEGINDRAWRECTRE最低價
            ENDELSEIF 數據位置狀態=2 AND FFFTHEN BEGIN 相對位置上畫矩形
            ENDELSEIFBARSTATUS=2 AND GGG THEN BEGINDRAWRECTRE最低價
            ENDELSEIF 數據位置狀態=2 AND HHHTHEN BEGIN 相對位置上畫矩形
            END
            ?

            源碼:

            N:=20;
            DRAWGBKLAST(DATE>900101,STRIP(RGB(75,75,75),RGB(0,0,0),0));
            DRAWTEXTABS(10,10,STKLABEL+'
            '+STKNAME+'
            '+BKNAME),COLOR00FFFF;
            STICKLINE(C>=O,C,O,8,0),COLOR000055;
            STICKLINE(C>=O,C,O,6.5,0),COLOR000075;
            STICKLINE(C>=O,C,O,5,0),COLOR000095;
            STICKLINE(C>=O,C,O,3.5,0),COLOR0000B5;
            STICKLINE(C>=O,C,O,2,0),COLOR0000D5;
            STICKLINE(C>=O,H,L,0.5,0),COLOR0000F5;
            STICKLINE(C<O,C,O,8,0),COLOR303000;
            STICKLINE(C<O,C,O,6.5,0),COLOR404000;
            STICKLINE(C<O,C,O,5,0),COLOR505000;
            STICKLINE(C<O,C,O,3.5,0),COLOR606000;
            STICKLINE(C<O,C,O,2,0),COLOR707000;
            STICKLINE(C<O,H,L,0.5,0),COLOR808000;
            總股本(億):FINANCE2(35)/10000,COLORYELLOW,LINETHICK0;{http://www.planetbokep.com}
            流通(億):FINANCE2(37)/10000,COLORFFFFFF,LINETHICK0;{http://www.planetbokep.com}
            均價:=(3*C+H+L+O)/6;
            VAR1:=(8*均價+7*REF(均價,1)+6*REF(均價,2)+5*REF(均價,3)+4*REF(均價,4)+3*REF(均價,5)+2*REF(均價,6)+REF(均價,8))/36;
            VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
            FILLRGN(VAR1,VAR2,VAR1>VAR2,(RGB(255,0,0)));
            短趨:VAR1,ColorFFFFFF;
            中趨:VAR2,COLORYELLOW;{http://cxh99.com}
            PARTLINE(中趨,中趨<REF(中趨,1)),COLORGREEN;{http://www.planetbokep.com}
            SZ1:=REF(VAR1,1)=REF(VAR2,1)
            AND VAR1>VAR2 AND CLOSE>VAR1;
            SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1)
            AND VAR2>REF(VAR2,1) AND H/VAR1<1.1 AND L>VAR2 AND
            CLOSE>VAR1;
            SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND
            VAR2>=REF(VAR2,1) AND H/VAR1>1.1;
            SZ4:=VAR1>VAR2 AND
            VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND CLOSE>VAR2 AND
            CLOSE<VAR1;
            SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND
            VAR1<>REF(VAR1,1) AND CLOSE<VAR2) OR (VAR1>VAR2 AND
            VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND
            CLOSE<VAR2);;
            SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND
            CLOSE<VAR2;
            XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND
            VAR2<REF(VAR2,1) AND REF(VAR1,1)=REF(VAR2,1) AND
            CLOSE<VAR2);
            XD2:=VAR1=VAR2 AND CLOSE>VAR1;

            SAT:=(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N));
            量能飽和度:=IF(SAT>1,1,SAT)*100;
            IF
            BARSTATUS=2 AND SZ1 THEN BEGIN

            DRAWTEXTABS(320,25,'調整結束短線介入'),COLORRED;
            END
            ELSE
            IF BARSTATUS=2
            AND SZ2 THEN BEGIN

            DRAWTEXTABS(320,25,'上升通道走勢良好'),COLORRED;
            END
            ELSE
            IF BARSTATUS=2
            AND SZ3 THEN BEGIN

            DRAWTEXTABS(320,25,'股價偏離注意調整'),COLORRED;
            END
            ELSE
            IF BARSTATUS=2
            AND SZ4 THEN BEGIN

            DRAWTEXTABS(320,25,'上升通道調整洗盤'),COLORGREEN;{http://www.planetbokep.com}
            END
            ELSE
            IF BARSTATUS=2
            AND SZ5 THEN BEGIN

            DRAWTEXTABS(320,25,'轉向特征注意離場'),COLORGREEN;{http://www.planetbokep.com}
            END
            ELSE
            IF BARSTATUS=2
            AND SZ6 THEN BEGIN

            DRAWTEXTABS(320,25,'通道改變堅決離場'),COLORGREEN;{http://www.planetbokep.com}
            END
            ELSE
            IF BARSTATUS=2
            AND XD1 THEN BEGIN

            DRAWTEXTABS(320,25,'下跌通道只宜觀望'),COLORGREEN;{http://www.planetbokep.com}
            END
            ELSE
            IF BARSTATUS=2
            AND XD2 THEN BEGIN

            DRAWTEXTABS(320,25,'短期底部準備進入'),COLORYELLOW;{http://cxh99.com}
            END;
            AB1:=COST(0.33);
            AB2:=COST(5);
            AB3:=COST(15);
            AB4:=COST(55);
            AB5:=COST(97);
            AA1:=COST(90);
            AA2:=COST(70);
            AA3:=COST(30);
            AA4:=COST(10);
            獲利:=WINNER(CLOSE)*100;
            套牢:=100-WINNER(CLOSE)*100;
            DRAWTEXTABS(15,25,'量能飽和度:'+NUMTOSTRN(量能飽和度,2)+'%'),COLOR00FFFF;
            DRAWTEXTABS(15,40,'90成本:'+NUMTOSTRN(AA1,2)),COLOR00FFFF;
            DRAWTEXTABS(15,55,'70成本:'+NUMTOSTRN(AA2,2)),COLOR00FFFF;
            DRAWTEXTABS(15,70,'30成本:'+NUMTOSTRN(AA3,2)),COLOR00FFFF;
            DRAWTEXTABS(15,85,'10成本:'+NUMTOSTRN(AA4,2)),COLOR00FFFF;
            DRAWTEXTABS(15,100,'底出擊:'+NUMTOSTRN(AB1,2)),COLOR00FFFF;
            DRAWTEXTABS(520,25,'建倉:'+NUMTOSTRN(AB2,2)),COLOR00FFFF;
            DRAWTEXTABS(600,25,'快刀:'+NUMTOSTRN(AB3,2)),COLOR00FFFF;
            DRAWTEXTABS(675,25,'升浪:'+NUMTOSTRN(AB4,2)),COLOR00FFFF;
            DRAWTEXTABS(520,40,'獲利:'+NUMTOSTRN(獲利,2)+'%'),COLOR00FFFF;
            DRAWTEXTABS(600,40,'套牢:'+NUMTOSTRN(套牢,2)+'%'),COLOR00FFFF;
            DRAWTEXTABS(675,40,'預測:'+NUMTOSTRN(AB5,2)),COLOR00FFFF;
            TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND
            CLOSE>VAR1;
            立樁量:=FILTER(TJ1,5);
            TJ2:=IF(BARSLAST(立樁量)=1 AND
            CLOSE>REF(HIGH,1),1,IF(BARSLAST(立樁量)=2 AND
            CLOSE>REF(HIGH,2),1,IF(BARSLAST(立樁量)=3 AND
            CLOSE>REF(HIGH,3),1,0)));
            突破:=TJ2=1;
            STICKLINE(CLOSE,REF(HIGH,BARSLAST(立樁量)),REF(HIGH,BARSLAST(立樁量)),6,0),COLORCYAN;
            STICKLINE(CLOSE,REF(LOW,BARSLAST(立樁量)),REF(LOW,BARSLAST(立樁量)),6,0),COLORYELLOW;{http://cxh99.com}
            TJ3:=IF(BARSLAST(立樁量)=1
            AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立樁量)=2 AND
            CLOSE>REF(LOW,2),1,IF(BARSLAST(立樁量)=3 AND
            CLOSE>REF(LOW,3),1,0)));
            三天法則:=TJ3=1;
            成立:=三天法則 AND
            突破;
            條件成立:=FILTER(成立,3);
            DRAWTEXT(條件成立,L*0.99,'成立'),COLORYELLOW;{http://cxh99.com}
            DRAWRECTREL(0,85,15,380,RGB(30,30,30)),COLORWHITE;
            AAA:=量能飽和度<=10;

            BBB:=量能飽和度>10 AND 量能飽和度<=20;
            CCC:=量能飽和度>20 AND 量能飽和度<=30;

            DDD:=量能飽和度>30 AND 量能飽和度<=50;
            EEE:=量能飽和度>50 AND
            量能飽和度<=70;
            FFF:=量能飽和度>70 AND 量能飽和度<=80;
            GGG:=量能飽和度>80 AND
            量能飽和度<=90;
            HHH:=量能飽和度>90;
            IF BARSTATUS=2 AND AAA THEN BEGIN
            DRAWRECTREL(0,350,15,380,RGB(255,0,0));
            END
            ELSE
            IF BARSTATUS=2 AND BBB
            THEN BEGIN DRAWRECTREL(0,320,15,380,RGB(255,0,0));
            END
            ELSE
            IF
            BARSTATUS=2 AND CCC THEN BEGIN
            DRAWRECTREL(0,290,15,380,RGB(255,0,0));
            END
            ELSE
            IF BARSTATUS=2 AND DDD
            THEN BEGIN DRAWRECTREL(0,230,15,380,RGB(255,0,0));
            END
            ELSE
            IF
            BARSTATUS=2 AND EEE THEN BEGIN
            DRAWRECTREL(0,170,15,380,RGB(255,0,0));
            END
            ELSE
            IF BARSTATUS=2 AND FFF
            THEN BEGIN DRAWRECTREL(0,140,15,380,RGB(255,0,0));
            END
            ELSE
            IF
            BARSTATUS=2 AND GGG THEN BEGIN
            DRAWRECTREL(0,110,15,380,RGB(255,0,0));
            END
            ELSE
            IF BARSTATUS=2 AND HHH
            THEN BEGIN DRAWRECTREL(0,85,15,380,RGB(255,0,0));
            END;

            ?

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

            ?

             

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

            可聯系技術人員 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>