相關標簽:漲幅技術指標源碼 、 sar指標公式源碼 、 通達信公式漲幅源碼 、 歷史漲幅源碼公式 、 同花順指標公式源碼 、 ddx指標公式源碼 、 現貨指標公式源碼 、 通達信指標公式源碼 、 成交量指標公式源碼 、 文華指標公式源碼 、 指標公式源碼網 、 強勢股指標公式源碼 、 背離指標公式源碼 、 逃頂指標公式源碼 、 黃金眼指標公式源碼 、

?

度量漲幅 很復雜的收費指標源碼 度量漲幅源碼

?

原理解析：
V1賦值:是否最后一個周期 V2賦值:N日前的最高價=2*N+1日內最高價的最高值 V3賦值:V2的N日過濾 V4賦值:若V3則將最近N+1周期置為1 V5賦值:V4的N日過濾 V6賦值:V5 OR V1 V7賦值:N日前的最低價=2*N+1日內最低價的最低值 V8賦值:V7的N日過濾 V9賦值:若V8則將最近N+1周期置為1 VA賦值:V9的N日過濾 VB賦值:VA AND 取反 VC賦值:若V6則將最近1日前的上次VB距今天數+1周期置為1 VD賦值:VC>1日前的VC VE賦值:若VD則將最近2周期置為1 VF賦值:VE>1日前的VE V10賦值:若VFANDCOUNT(V6,1日前的上次VB距今天數+2)=0則將最近1日前的上次VB距今天數+2周期置為1 V11賦值:V10>1日前的V10 V12賦值:若V11ANDCOUNT(V6,1日前的上次VB距今天數+2)=0則將最近1日前的上次VB距今天數+2周期置為1 V13賦值:V12>1日前的V12 V14賦值:如果V6,返回統計1日前的上次V6距今天數+1日中滿足VB的天數,否則返回0 V15賦值:如果V14=1ANDV6,返回上次VF距今天數,否則返回0 V16賦值:如果V6ANDREF(最低價,上次VF距今天數)>=上次V11距今天數日前的最低價,返回上次V11距今天數,否則返回上次VF距今天數 V17賦值:如果V14=2ANDV6,返回V16,否則返回0 V18賦值:如果V14>=3ANDV6,返回如果V6ANDREF(最低價,V16)>=上次V13距今天數日前的最低價,返回上次V13距今天數,否則返回V16,否則返回0 V19賦值:V15+V17+V18 V1A賦值:若V6則將最近V19周期置為1 V1B賦值:V1A>1日前的V1A V1C賦值:若V1B則將最近2周期置為1 V1D賦值:V1C>1日前的V1C V1E賦值:V1D OR V1 V1F賦值:若V1E則將最近1日前的上次V6距今天數+1周期置為1 V20賦值:V1F>1日前的V1F V21賦值:若V20則將最近2周期置為1 V22賦值:V21>1日前的V21 V23賦值:若V22ANDCOUNT(V1E,1日前的上次V6距今天數+2)=0則將最近1日前的上次V6距今天數+2周期置為1 V24賦值:V23>1日前的V23 V25賦值:若V24ANDCOUNT(V1E,1日前的上次V6距今天數+2)=0則將最近1日前的上次V6距今天數+2周期置為1 V26賦值:V25>1日前的V25 V27賦值:如果V1E,返回統計1日前的上次V1E距今天數+1日中滿足V5的天數,否則返回0 V28賦值:如果V27=1ANDV1E,返回上次V22距今天數,否則返回0 V29賦值:如果V1EANDREF(最高價,上次V22距今天數)<=上次V24距今天數日前的最高價,返回上次V24距今天數,否則返回上次V22距今天數 V2A賦值:如果V27=2ANDV1E,返回V29,否則返回0 V2B賦值:如果V27>=3ANDV1E,返回如果V1EANDREF(最高價,V29)<=上次V26距今天數日前的最高價,返回上次V26距今天數,否則返回V29,否則返回0 V2C賦值:V28+V2A+V2B V2D賦值:若V1E則將最近V2C周期置為1 V2E賦值:V2D>1日前的V2D V2F賦值:若V2E則將最近2周期置為1 V30賦值:V2F>1日前的V2F 當滿足條件V1D時,在最低價位置畫直線起點，當滿足條件V30時,在最高價位置畫直線終點,0表示是否延長.,線寬為1 當滿足條件V30時,在最高價位置畫直線起點，當滿足條件V1D時,在最低價位置畫直線終點,0表示是否延長.,線寬為1 V31賦值:若V1則將最近上次V1D距今天數+1周期置為1 V32賦值:V31>1日前的V31 V33賦值:若V1則將最近上次V30距今天數+1周期置為1 V34賦值:V33>1日前的V33 V35賦值:如果上次V32距今天數<上次V34距今天數,返回V32,否則返回V34 V36賦值:如果上次V32距今天數<上次V34距今天數,返回最低價,否則返回最高價 當滿足條件V35時,在V36位置畫直線起點，當滿足條件V1時,在收盤價位置畫直線終點,0表示是否延長.,線寬為1 V37賦值:若V1則將最近上次V1D距今天數+1周期置為1 V38賦值:V37>1日前的V37 V39賦值:若V38則將最近1日前的上次V1D距今天數+2周期置為1 V3A賦值:V39>1日前的V39 當滿足條件V3A時,在最低價位置畫直線起點，當滿足條件V38時,在最低價位置畫直線終點,1表示是否延長.,線寬為1,畫黃色,POINTDOT V3B賦值:若V1則將最近上次V30距今天數+1周期置為1 V3C賦值:V3B>1日前的V3B V3D賦值:若V3C則將最近1日前的上次V30距今天數+2周期置為1 V3E賦值:V3D>1日前的V3D 當滿足條件V3E時,在最高價位置畫直線起點，當滿足條件V3C時,在最高價位置畫直線終點,1表示是否延長.,線寬為1,畫黃色,POINTDOT 輸出XX1: 上次V38距今天數日前的最低價,COLORCCFF99,線寬為2 輸出前二低: 上次V3A距今天數日前的最低價,畫洋紅色,線寬為2 輸出YY1: 上次V3C距今天數日前的最高價,COLORCCFF99,線寬為2 輸出前二高: 上次V3E距今天數日前的最高價,畫洋紅色,線寬為2 當滿足條件是否最后一個周期時,在YY1位置書寫數字 當滿足條件是否最后一個周期時,在XX1位置書寫數字 當滿足條件是否最后一個周期時,在前二低位置書寫數字 當滿足條件是否最后一個周期時,在前二高位置書寫數字 J賦值:N日前的最高價=2*N+1日內最高價的最高值 JA賦值:J的N日過濾 BB賦值:若JA則將最近N+1周期置為1 J1賦值:BB的N日過濾 J賦值:J1 OR 是否最后一個周期 J2賦值:N日前的最低價=2*N+1日內最低價的最低值 JA2賦值:J2的N日過濾 BB2賦值:若JA2則將最近N+1周期置為1 J22賦值:BB2的N日過濾 J2賦值:J22 AND 取反 EA賦值:若J則將最近1日前的上次J2距今天數+1周期置為1 EB賦值:EA>1日前的EA JF賦值:若EB則將最近2周期置為1 JJ1賦值:JF>1日前的JF JF2賦值:若JJ1ANDCOUNT(J,1日前的上次J2距今天數+2)=0則將最近1日前的上次J2距今天數+2周期置為1 JJ2賦值:JF2>1日前的JF2 JF3賦值:若JJ2ANDCOUNT(J,1日前的上次J2距今天數+2)=0則將最近1日前的上次J2距今天數+2周期置為1 JJ3賦值:JF3>1日前的JF3 JS賦值:如果J,返回統計1日前的上次J距今天數+1日中滿足J2的天數,否則返回0 G1賦值:如果JS=1ANDJ,返回上次JJ1距今天數,否則返回0 GA賦值:如果JANDREF(最低價,上次JJ1距今天數)>=上次JJ2距今天數日前的最低價,返回上次JJ2距今天數,否則返回上次JJ1距今天數 G2賦值:如果JS=2ANDJ,返回GA,否則返回0 G3賦值:如果JS>=3ANDJ,返回如果JANDREF(最低價,GA)>=上次JJ3距今天數日前的最低價,返回上次JJ3距今天數,否則返回GA,否則返回0 GG賦值:G1+G2+G3 JA賦值:若J則將最近GG周期置為1 JB賦值:JA>1日前的JA JJ賦值:若JB則將最近2周期置為1 LD賦值:JJ>1日前的JJ LD1賦值:LD OR 是否最后一個周期 HEA賦值:若LD1則將最近1日前的上次J距今天數+1周期置為1 HEB賦值:HEA>1日前的HEA HJF賦值:若HEB則將最近2周期置為1 HJJ1賦值:HJF>1日前的HJF HJF2賦值:若HJJ1ANDCOUNT(LD1,1日前的上次J距今天數+2)=0則將最近1日前的上次J距今天數+2周期置為1 HJJ2賦值:HJF2>1日前的HJF2 HJF3賦值:若HJJ2ANDCOUNT(LD1,1日前的上次J距今天數+2)=0則將最近1日前的上次J距今天數+2周期置為1 HJJ3賦值:HJF3>1日前的HJF3 HJS賦值:如果LD1,返回統計1日前的上次LD1距今天數+1日中滿足J1的天數,否則返回0 HG1賦值:如果HJS=1ANDLD1,返回上次HJJ1距今天數,否則返回0 HGA賦值:如果LD1ANDREF(最高價,上次HJJ1距今天數)<=上次HJJ2距今天數日前的最高價,返回上次HJJ2距今天數,否則返回上次HJJ1距今天數 HG2賦值:如果HJS=2ANDLD1,返回HGA,否則返回0 HG3賦值:如果HJS>=3ANDLD1,返回如果LD1ANDREF(最高價,HGA)<=上次HJJ3距今天數日前的最高價,返回上次HJJ3距今天數,否則返回HGA,否則返回0 HGG賦值:HG1+HG2+HG3 HJA賦值:若LD1則將最近HGG周期置為1 HJB賦值:HJA>1日前的HJA HJJ賦值:若HJB則將最近2周期置為1 HD賦值:HJJ>1日前的HJJ,線寬為2 UU賦值:若是否最后一個周期則將最近上次LD距今天數+1周期置為1 VV賦值:10*(UU>1日前的UU) UU2賦值:若是否最后一個周期則將最近上次HD距今天數+1周期置為1 VV2賦值:20*(UU2>1日前的UU2) 底1賦值:上次LD距今天數日前的最低價,畫紅色,線寬為1 頂1賦值:上次HD距今天數日前的最高價,畫綠色,線寬為1 當滿足條件HD時,在頂1和底1位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR660099,線寬為1 當滿足條件LD時,在最低價位置畫直線起點，當滿足條件HD時,在最高價位置畫直線終點,0表示是否延長.,COLOR660099,線寬為1 當滿足條件LD時,在最低價位置畫直線起點，當滿足條件HD時,在底1位置畫直線終點,0表示是否延長.,COLOR660099,線寬為1 當滿足條件LD時,在頂1和底1位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR666666,線寬為1 當滿足條件HD時,在最高價位置畫直線起點，當滿足條件LD時,在最低價位置畫直線終點,0表示是否延長.,COLOR666666,線寬為1 當滿足條件HD時,在最高價位置畫直線起點，當滿足條件LD時,在頂1位置畫直線終點,0表示是否延長.,COLOR666666,線寬為1 輸出底:上次VV距今天數日前的最低價,畫紅色,線寬為2 輸出頂:上次VV2距今天數日前的最高價,畫綠色,線寬為2 當滿足條件VV時,在頂和底位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFF6633,線寬為3 當滿足條件VV2時,在最高價位置畫直線起點，當滿足條件VV時,在最低價位置畫直線終點,0表示是否延長.,COLORFF6633,線寬為3 當滿足條件VV2時,在最高價位置畫直線起點，當滿足條件VV時,在頂位置畫直線終點,0表示是否延長.,COLORFF6633,線寬為3 當滿足條件VV2時,在頂和底位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,畫紅色,線寬為3 當滿足條件VV時,在最低價位置畫直線起點，當滿足條件VV2時,在最高價位置畫直線終點,0表示是否延長.,畫紅色,線寬為3 當滿足條件VV時,在最低價位置畫直線起點，當滿足條件VV2時,在底位置畫直線終點,0表示是否延長.,畫紅色,線寬為3 HAT賦值:20日內最高價的最高值 HBT賦值:20日內最低價的最低值 HHT賦值:最高價 LLT賦值:最低價 XAT賦值:HAT[DATACOUNT] XBT賦值:HBT[DATACOUNT] 賦值:0 NAT賦值:HBC[1] NBT賦值:HBC[1] HNAT賦值:HBC[1] HNBT賦值:HBC[1] CAT賦值:HBC[1] CBT賦值:HBC[1] HCT賦值:收盤價 NAT賦值:NAT+1 CAT賦值:I HNAT賦值:HAT[I] NBT賦值:NBT+1 CBT賦值:I HNBT賦值:HBT[I] END 賦值:0 ATTA賦值:HAC[1] ATTB賦值:HAC[1] ATTH1賦值:HAC[1] ATTH2賦值:HAC[1] ATTHI1賦值:HAC[1] ATTHI2賦值:HAC[1] ATTL1賦值:HAC[1] ATTL2賦值:HAC[1] ATTLI1賦值:HAC[1] ATTLI2賦值:HAC[1] HH賦值:最高價 LL賦值:最低價 ATTA賦值:ATTA+1 ATTH1賦值:HH[I] ATTHI1賦值:I ATTH2賦值:HH[I] ATTHI2賦值:I ATTB賦值:ATTB+1 ATTL1賦值:LL[I] ATTLI1賦值:I ATTL2賦值:LL[I] ATTLI2賦值:I END NNN1賦值:70 NNN賦值:70 NNN2賦值:100 NNN3賦值:DATACOUNT-1 DD3賦值:收盤價 DD4賦值:收盤價 DD5賦值:收盤價 DDT賦值:收盤價 LDD3賦值:收盤價 LDD4賦值:收盤價 LDD5賦值:收盤價 LDDT賦值:收盤價 HH1賦值:ATTH1 HH2賦值:ATTH2 LL1賦值:ATTL1 LL2賦值:ATTL2 AA賦值:最高價 XBB賦值:最低價 CC賦值:收盤價 CAA1賦值:ATTHI1,線寬為1 // CAA1,線寬為3 CAA2賦值:ATTHI2 CBB1賦值:ATTLI1 CBB2賦值:ATTLI2 HNAA1賦值:ATTH1 HNAA2賦值:ATTH2 HNBB1賦值:ATTL1 HNBB2賦值:ATTL2 // HNBB2,線寬為3 // HNAA2,線寬為3 HNAAT賦值:HNAT HNBBT賦值:HNBT CAAT賦值:CAT CBBT賦值:CBT // PARTLINE(收盤價>0 AND 收盤價的有效數據周期數<DATACOUNT-(DATACOUNT-CAA2) AND DD3>SYSPARAM(5)*0.9,DD3),線寬為1,SHIFT99,COLOR007700 // PARTLINE(收盤價>0 AND 收盤價的有效數據周期數<DATACOUNT-(DATACOUNT-CAA2),DD4),線寬為1,SHIFT99,畫黃色 PARTLINE(收盤價>0 AND 收盤價的有效數據周期數<DATACOUNT-(DATACOUNT-CAA2) AND (DD5>SYSPARAM(5)*0.94 AND DD5<SYSPARAM(4)*1.06),DD5),線寬為2,POINTDOT,SHIFT99,COLOR007700 當滿足條件收盤價的有效數據周期數+99=DATACOUNTAND(DD5>SYSPARAM(5)*0.94ANDDD5<SYSPARAM(4)*1.06)時,在DD5位置書寫數字,COLOR007700,SHIFT100 當滿足條件收盤價的有效數據周期數+99=DATACOUNTAND(DD5>SYSPARAM(5)*0.94ANDDD5<SYSPARAM(4)*1.06)時,在DD5和DD5+DD5*0.0001位置之間畫柱狀線,寬度為60,0不為0則畫空心柱.,COLOR007700,SHIFT99 PARTLINE(收盤價>0 AND 收盤價的有效數據周期數<DATACOUNT-(DATACOUNT-CAA1) AND DDT>SYSPARAM(5)*0.975,DDT),線寬為3,POINTDOT,SHIFT99,COLOR007700 當滿足條件收盤價的有效數據周期數+99=DATACOUNT時,在DDT位置書寫數字,COLOR007700,SHIFT100 當滿足條件收盤價的有效數據周期數+99=DATACOUNT時,在DDT和DDT+DDT*0.0001位置之間畫柱狀線,寬度為60,0不為0則畫空心柱.,COLOR007700,SHIFT99 PARTLINE(收盤價>0 AND 收盤價的有效數據周期數<DATACOUNT-(DATACOUNT-CBB2) AND LDD5<SYSPARAM(4)*1.06,LDD5),線寬為2,POINTDOT,SHIFT99,COLORCC3366 當滿足條件收盤價的有效數據周期數+99=DATACOUNT時,在LDD5位置書寫數字,COLORCC3366,SHIFT100 當滿足條件收盤價的有效數據周期數+99=DATACOUNT時,在LDD5和LDD5+LDD5*0.0001位置之間畫柱狀線,寬度為60,0不為0則畫空心柱.,COLORCC3366,SHIFT99 PARTLINE(收盤價>0 AND 收盤價的有效數據周期數<DATACOUNT-(DATACOUNT-CBB1) AND LDDT<SYSPARAM(4)*1.06,LDDT),線寬為3,POINTDOT,SHIFT99,COLORCC3366 當滿足條件收盤價的有效數據周期數+99=DATACOUNT時,在LDDT位置書寫數字,COLORCC3366,SHIFT100 當滿足條件收盤價的有效數據周期數+99=DATACOUNT時,在LDDT和LDDT+LDDT*0.0001位置之間畫柱狀線,寬度為60,0不為0則畫空心柱.,COLORCC3366,SHIFT99 AC賦值:收盤價 AH賦值:最高價 AL賦值:最低價 AO賦值:開盤價 當滿足條件AC>=AO時,在AH和AC位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR008899 當滿足條件AC>=AO時,在AH和AC位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR77FFEE 當滿足條件AC>=AO時,在AO和AL位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR008899 當滿足條件AC>=AO時,在AO和AL位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR77FFEE 當滿足條件AC>AO時,在AC和AO位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR008899 當滿足條件AC>AO時,在AC和AO位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR1199AA 當滿足條件AC>AO時,在AC和AO位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR22AABB 當滿足條件AC>AO時,在AC和AO位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR33BBCC 當滿足條件AC>AO時,在AC和AO位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR44CCDD 當滿足條件AC>AO時,在AC和AO位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR55DDEE 當滿足條件AC>AO時,在AC和AO位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR66EEEE 當滿足條件AC>AO時,在AC和AO位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR77FFEE 當滿足條件AC<=AO時,在AH和AC位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFF8800 當滿足條件AC<=AO時,在AH和AC位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFFFF33 當滿足條件AC<=AO時,在AO和AL位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFF8800 當滿足條件AC<=AO時,在AO和AL位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFFFF33 當滿足條件AC<=AO時,在AC和AO位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORFF8800 當滿足條件AC<=AO時,在AC和AO位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLORFF9900 當滿足條件AC<=AO時,在AC和AO位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFFAA11 當滿足條件AC<=AO時,在AC和AO位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFFBB11 當滿足條件AC<=AO時,在AC和AO位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFFCC22 當滿足條件AC<=AO時,在AC和AO位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFFDD22 當滿足條件AC<=AO時,在AC和AO位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFFEE33 當滿足條件AC<=AO時,在AC和AO位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFF33 RC賦值:前收盤價 S2賦值:收盤價的3日[1日權重]移動平均 S6賦值:收盤價的5日[1日權重]移動平均 DK賦值:2*(S2-S6) 當滿足條件DK>0時,在RC和RC+DK位置之間畫柱狀線,寬度為0,1不為0則畫空心柱.,畫紅色 當滿足條件DK<0時,在RC和RC+DK位置之間畫柱狀線,寬度為0,1不為0則畫空心柱.,畫青色 RC,畫棕色 收盤價的9日簡單移動平均 當滿足條件收盤價的1日簡單移動平均上穿收盤價的9日簡單移動平均時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫紅色 當滿足條件收盤價的1日簡單移動平均上穿收盤價的9日簡單移動平均時,在最高價和最低價位置之間畫柱狀線,寬度為0.8,0不為0則畫空心柱.,畫紅色 當滿足條件收盤價的1日簡單移動平均上穿收盤價的55日簡單移動平均時,在收盤價和開盤價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,畫深灰色 當滿足條件收盤價的1日簡單移動平均上穿收盤價的55日簡單移動平均時,在最高價和最低價位置之間畫柱狀線,寬度為0.6,0不為0則畫空心柱.,畫深灰色 當滿足條件收盤價的1日簡單移動平均上穿收盤價的23.5日簡單移動平均時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,畫黃色 當滿足條件收盤價的1日簡單移動平均上穿收盤價的23.5日簡單移動平均時,在最高價和最低價位置之間畫柱狀線,寬度為0.7,0不為0則畫空心柱.,畫黃色 當滿足條件收盤價的1日簡單移動平均上穿收盤價的120日簡單移動平均時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,畫洋紅色 當滿足條件收盤價的1日簡單移動平均上穿收盤價的120日簡單移動平均時,在最高價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,畫洋紅色 PARTLINE(收盤價的3日簡單移動平均,收盤價的3日簡單移動平均),畫黃色,線寬為2 PARTLINE(收盤價的9日簡單移動平均,收盤價的9日簡單移動平均),畫洋紅色,線寬為2 PARTLINE(收盤價的23.5日簡單移動平均,收盤價的23.5日簡單移動平均),畫白色

?

?來源:程序化99（ www.weiqiv.net.cn ）

源碼：

?

V1:=ISLASTBAR;
V2:=REF(HIGH,N)=HHV(HIGH,2*N+1);
V3:=FILTER(V2,N);
V4:=BACKSET(V3,N+1);
V5:=FILTER(V4,N);
V6:=V5 OR V1;
V7:=REF(LOW,N)=LLV(LOW,2*N+1);
V8:=FILTER(V7,N);
V9:=BACKSET(V8,N+1);
VA:=FILTER(V9,N);
VB:=VA AND NOT(V5);
VC:=BACKSET(V6,REF(BARSLAST(VB),1)+1);
VD:=VC>REF(VC,1);
VE:=BACKSET(VD,2);
VF:=VE>REF(VE,1);
V10:=BACKSET(VF AND COUNT(V6,REF(BARSLAST(VB),1)+2)=0,REF(BARSLAST(VB),1)+2);
V11:=V10>REF(V10,1);
V12:=BACKSET(V11 AND COUNT(V6,REF(BARSLAST(VB),1)+2)=0,REF(BARSLAST(VB),1)+2);
V13:=V12>REF(V12,1);
V14:=IF(V6,COUNT(VB,REF(BARSLAST(V6),1)+1),0);
V15:=IF(V14=1 AND V6,BARSLAST(VF),0);
V16:=IF(V6 AND REF(LOW,BARSLAST(VF))>=REF(LOW,BARSLAST(V11)),BARSLAST(V11),BARSLAST(VF));
V17:=IF(V14=2 AND V6,V16,0);
V18:=IF(V14>=3 AND V6,IF(V6 AND REF(LOW,V16)>=REF(LOW,BARSLAST(V13)),BARSLAST(V13),V16),0);
V19:=V15+V17+V18;
V1A:=BACKSET(V6,V19);
V1B:=V1A>REF(V1A,1);
V1C:=BACKSET(V1B,2);
V1D:=V1C>REF(V1C,1);
V1E:=V1D OR V1;
V1F:=BACKSET(V1E,REF(BARSLAST(V6),1)+1);
V20:=V1F>REF(V1F,1);
V21:=BACKSET(V20,2);
V22:=V21>REF(V21,1);
V23:=BACKSET(V22 AND COUNT(V1E,REF(BARSLAST(V6),1)+2)=0,REF(BARSLAST(V6),1)+2);
V24:=V23>REF(V23,1);
V25:=BACKSET(V24 AND COUNT(V1E,REF(BARSLAST(V6),1)+2)=0,REF(BARSLAST(V6),1)+2);
V26:=V25>REF(V25,1);
V27:=IF(V1E,COUNT(V5,REF(BARSLAST(V1E),1)+1),0);
V28:=IF(V27=1 AND V1E,BARSLAST(V22),0);
V29:=IF(V1E AND REF(HIGH,BARSLAST(V22))<=REF(HIGH,BARSLAST(V24)),BARSLAST(V24),BARSLAST(V22));
V2A:=IF(V27=2 AND V1E,V29,0);
V2B:=IF(V27>=3 AND V1E,IF(V1E AND REF(HIGH,V29)<=REF(HIGH,BARSLAST(V26)),BARSLAST(V26),V29),0);
V2C:=V28+V2A+V2B;
V2D:=BACKSET(V1E,V2C);
V2E:=V2D>REF(V2D,1);
V2F:=BACKSET(V2E,2);
V30:=V2F>REF(V2F,1);
DRAWLINE(V1D,LOW,V30,HIGH,0),linethick1;
DRAWLINE(V30,HIGH,V1D,LOW,0),linethick1;
V31:=BACKSET(V1,BARSLAST(V1D)+1);
V32:=V31>REF(V31,1);
V33:=BACKSET(V1,BARSLAST(V30)+1);
V34:=V33>REF(V33,1);
V35:=IF(BARSLAST(V32)<BARSLAST(V34),V32,V34);
V36:=IF(BARSLAST(V32)<BARSLAST(V34),LOW,HIGH);
DRAWLINE(V35,V36,V1,CLOSE,0),linethick1;
V37:=BACKSET(V1,BARSLAST(V1D)+1);
V38:=V37>REF(V37,1);
V39:=BACKSET(V38,REF(BARSLAST(V1D),1)+2);
V3A:=V39>REF(V39,1);
DRAWLINE(V3A,LOW,V38,LOW,1),linethick1,coloryellow,POINTDOT;
V3B:=BACKSET(V1,BARSLAST(V30)+1);
V3C:=V3B>REF(V3B,1);
V3D:=BACKSET(V3C,REF(BARSLAST(V30),1)+2);
V3E:=V3D>REF(V3D,1);
DRAWLINE(V3E,HIGH,V3C,HIGH,1),linethick1,coloryellow,POINTDOT;
xx1: REF(LOW,BARSLAST(V38)),colorccff99,linethick2;
前二低: REF(LOW,BARSLAST(V3A)),colormagenta,linethick2;
yy1: REF(HIGH,BARSLAST(V3C)),colorccff99,linethick2;
前二高: REF(HIGH,BARSLAST(V3E)),colormagenta,linethick2;
DRAWNUMBER(ISLASTBAR,yy1,yy1,2);
DRAWNUMBER(ISLASTBAR,xx1,xx1,2);
DRAWNUMBER(ISLASTBAR,前二低,前二低,2);
DRAWNUMBER(ISLASTBAR,前二高,前二高,2);
J:=REF(HIGH,N)=HHV(HIGH,2*N+1);
JA:=FILTER(J,N);
BB:=BACKSET(JA,N+1);
J1:=FILTER(BB,N);
J:=J1 OR ISLASTBAR;
J2:=REF(LOW,N)=LLV(LOW,2*N+1);
JA2:=FILTER(J2,N);
BB2:=BACKSET(JA2,N+1);
J22:=FILTER(BB2,N);
J2:=J22 AND NOT(J1);
EA:=BACKSET(J,REF(BARSLAST(J2),1)+1);
EB:=EA>REF(EA,1); JF:=BACKSET(EB,2);
JJ1:=JF>REF(JF,1);
JF2:=BACKSET(JJ1 AND COUNT(J,REF(BARSLAST(J2),1)+2)=0,REF(BARSLAST(J2),1)+2);
JJ2:=JF2>REF(JF2,1);
JF3:=BACKSET(JJ2 AND COUNT(J,REF(BARSLAST(J2),1)+2)=0,REF(BARSLAST(J2),1)+2);
JJ3:=JF3>REF(JF3,1);
js:=IF(J,COUNT(J2,REF(BARSLAST(J),1)+1),0);
G1:=IF(JS=1 AND J,BARSLAST(JJ1),0);
GA:=IF(J AND REF(LOW,BARSLAST(JJ1))>=REF(LOW,BARSLAST(JJ2)),BARSLAST(JJ2),BARSLAST(JJ1));
G2:=IF(JS=2 AND J,GA,0);
G3:=IF(JS>=3 AND J,IF(J AND REF(LOW,GA)>=REF(LOW,BARSLAST(JJ3)),BARSLAST(JJ3),GA),0);
GG:=G1+G2+G3;
JA:=BACKSET(J,GG); JB:=JA>REF(JA,1); JJ:=BACKSET(JB,2);
LD:=JJ>REF(JJ,1);
LD1:=LD OR ISLASTBAR;
hEA:=BACKSET(LD1,REF(BARSLAST(J),1)+1);
hEB:=hEA>REF(hEA,1); hJF:=BACKSET(hEB,2);
hJJ1:=hJF>REF(hJF,1);
hJF2:=BACKSET(hJJ1 AND COUNT(LD1,REF(BARSLAST(J),1)+2)=0,REF(BARSLAST(J),1)+2);
hJJ2:=hJF2>REF(hJF2,1);
hJF3:=BACKSET(hJJ2 AND COUNT(LD1,REF(BARSLAST(J),1)+2)=0,REF(BARSLAST(J),1)+2);
hJJ3:=hJF3>REF(hJF3,1);
hjs:=IF(LD1,COUNT(J1,REF(BARSLAST(LD1),1)+1),0);
hG1:=IF(hJS=1 AND LD1,BARSLAST(hJJ1),0);
hGA:=IF(LD1 AND REF(HIGH,BARSLAST(hJJ1))<=REF(HIGH,BARSLAST(hJJ2)),BARSLAST(hJJ2),BARSLAST(hJJ1));
hG2:=IF(hJS=2 AND LD1,hGA,0);
hG3:=IF(hJS>=3 AND LD1,IF(LD1 AND REF(HIGH,hGA)<=REF(HIGH,BARSLAST(hJJ3)),BARSLAST(hJJ3),hGA),0);
hGG:=hG1+hG2+hG3;
hJA:=BACKSET(LD1,hGG);
hJB:=hJA>REF(hJA,1);
hJJ:=BACKSET(hJB,2);
HD:=hJJ>REF(hJJ,1),linethick2;
UU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
VV:=10*(UU>REF(UU,1));
UU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
VV2:=20*(UU2>REF(UU2,1));
{-------------------------------------------------------------------------------------}
底1:=REF(LOW,BARSLAST(LD)),COLORred,LINETHICK1;
頂1:=REF(HIGH,BARSLAST(HD)),COLORGreen,LINETHICK1;
STICKLINE(HD ,頂1,底1,0,0),Color660099,linethick1;{??}
DRAWLINE(LD,LOW,HD,HIGH,0),Color660099,linethick1;{斜}
DRAWLINE(LD,LOW,HD,底1,0),Color660099,linethick1;{?}
STICKLINE(LD,頂1,底1,0,0),Color666666,linethick1;{??}
DRAWLINE(HD,HIGH,LD,LOW,0),Color666666,linethick1;{斜}
DRAWLINE(HD,HIGH,LD,頂1,0),Color666666,linethick1;{?}
{-----------------------------------------------------------------------------------------------------------------}底:REF(LOW,BARSLAST(VV)),COLORred,LINETHICK2;
頂:REF(HIGH,BARSLAST(VV2)),COLORGreen,LINETHICK2;{下迭三角形：藍色三角形畫完介入}
STICKLINE(VV,頂,底,0,0),Colorff6633,linethick3;{??}
DRAWLINE(VV2,HIGH,VV,LOW,0),Colorff6633,linethick3;{斜}
DRAWLINE(VV2,HIGH,VV,頂,0),Colorff6633,linethick3;{?}{DRAWLINE(c>0,H,VV,L,0),Colorcyan,linethick2;}{斜}
{DRAWLINE(c>1,H,VV,頂,0),Colorcyan,linethick2;}{?}
{上漲三角形：紅色三角形畫完出局}
STICKLINE(VV2 ,頂,底,0,0),Colorred,linethick3;{??}
DRAWLINE(VV,LOW,VV2,HIGH,0),Colorred,linethick3;{斜}
DRAWLINE(VV,LOW,VV2,底,0),Colorred,linethick3;{?}{-----------------------------------------------------------------------------------------------------------------------------------}
hat:=HHV(HIGH,20);
hbt:=LLV(LOW,20);
hht:=HIGH;
llt:=LOW;
xat:=hat[DATACOUNT];
xbt:=hbt[DATACOUNT];
hbc[1]:=0;
nat:=hbc[1];
nbt:=hbc[1];
hnat:=hbc[1];
hnbt:=hbc[1];
cat:=hbc[1];
cbt:=hbc[1];
hct:=CLOSE;
for i=DATACOUNT downto DATACOUNT-100 do
begin
IF hat[i]=xat then nat:=nat+1;
IF hat[i]=xat and nat=1 then cat:=i;
IF hat[i]=xat and nat=1 then hnat:=hat[i]; IF hbt[i]=xbt then nbt:=nbt+1;
IF hbt[i]=xbt and nbt=1 then cbt:=i;
IF hbt[i]=xbt and nbt=1 then hnbt:=hbt[i];
end;hac[1]:=0;
atta:=hac[1];
attb:=hac[1];
atth1:=hac[1];
atth2:=hac[1];
atthi1:=hac[1];
atthi2:=hac[1];
attl1:=hac[1];
attl2:=hac[1];
attli1:=hac[1];
attli2:=hac[1];
hh:=HIGH;
LL:=LOW;
{------------------------------------------------------------------------------------------------------------------------}
FOR I=DATACOUNT downTO DATACOUNT-100 do
begin
IF HD[i]>0 then atta:=atta+1; IF HD[i]>0 and atta=1 then atth1:=hh[i];
IF HD[i]>0 and atta=1 then atthi1:=i;
IF HD[i]>0 and atta=2 then atth2:=hh[i];
IF HD[i]>0 and atta=2 then atthi2:=i;
IF LD[i]>0 then attb:=attb+1;
IF LD[i]>0 and attb=1 then attl1:=LL[i];
IF LD[i]>0 and attb=1 then attli1:=i;
IF LD[i]>0 and attb=2 then attl2:=LL[i];
IF LD[i]>0 and attb=2 then attli2:=i;
end;{------------------------------------------------------------------------------}
nnn1:=70;
nnn:=70;
nnn2:=100;
nnn3:=DATACOUNT-1;{HH:=HHV(H,Nnn1);}
{LL:=LLV(L,Nnn1);}
dd3:=CLOSE;
dd4:=CLOSE;
dd5:=CLOSE;
ddt:=CLOSE;
ldd3:=CLOSE;
ldd4:=CLOSE;
ldd5:=CLOSE;
lddt:=CLOSE;
hh1:=atth1;
hh2:=atth2;
ll1:=attl1;
ll2:=attl2;aa:=HIGH;
xbb:=LOW;
cc:=CLOSE;
caa1:=atthi1,linethick1;
// caa1,linethick3;
caa2:=atthi2;
cbb1:=attli1;
cbb2:=attli2;
hnaa1:=atth1;
hnaa2:=atth2;
hnbb1:=attl1;
hnbb2:=attl2;
// hnbb2,linethick3;
// hnaa2,linethick3;hnaat:=hnat;
hnbbt:=hnbt;
caat:=cat;
cbbt:=cbt;
// PARTLINE(CLOSE>0 and BARSCOUNT(CLOSE)<DATACOUNT-(DATACOUNT-caa2) and dd3>SYSPARAM(5)*0.9,dd3),linethick1,shift99,color007700;
// PARTLINE(CLOSE>0 and BARSCOUNT(CLOSE)<DATACOUNT-(DATACOUNT-caa2),dd4),linethick1,shift99,coloryellow;
PARTLINE(CLOSE>0 and BARSCOUNT(CLOSE)<DATACOUNT-(DATACOUNT-caa2) and (dd5>SYSPARAM(5)*0.94 and dd5<SYSPARAM(4)*1.06),dd5),linethick2,POINTDOT,shift99,color007700;
DRAWNUMBER(BARSCOUNT(CLOSE)+99=DATACOUNT and (dd5>SYSPARAM(5)*0.94 and dd5<SYSPARAM(4)*1.06),dd5,dd5,2),color007700,shift100;
STICKLINE(BARSCOUNT(CLOSE)+99=DATACOUNT and (dd5>SYSPARAM(5)*0.94 and dd5<SYSPARAM(4)*1.06),dd5,dd5+dd5*0.0001,60,0),color007700,shift99;PARTLINE(CLOSE>0 and BARSCOUNT(CLOSE)<DATACOUNT-(DATACOUNT-caa1) and ddt>SYSPARAM(5)*0.975,ddt),linethick3,POINTDOT,shift99,color007700;
DRAWNUMBER(BARSCOUNT(CLOSE)+99=DATACOUNT,ddt,ddt,2),color007700,shift100;
STICKLINE(BARSCOUNT(CLOSE)+99=DATACOUNT,ddt,ddt+ddt*0.0001,60,0),color007700,shift99;{partline(c>0 and barscount(c)<datacount-(datacount-cbb2) and ldd3<sysparam(4)*1.07,ldd3),linethick1,shift99,colorcc3366;}
{partline(c>0 and barscount(c)<datacount-(datacount-cbb2),ldd4),linethick1,shift99,colorcc3366;}
PARTLINE(CLOSE>0 and BARSCOUNT(CLOSE)<DATACOUNT-(DATACOUNT-cbb2) and ldd5<SYSPARAM(4)*1.06,ldd5),linethick2,POINTDOT,shift99,colorcc3366;
DRAWNUMBER(BARSCOUNT(CLOSE)+99=DATACOUNT,ldd5,ldd5,2),colorcc3366,shift100;
STICKLINE(BARSCOUNT(CLOSE)+99=DATACOUNT,ldd5,ldd5+ldd5*0.0001,60,0),colorcc3366,shift99;PARTLINE(CLOSE>0 and BARSCOUNT(CLOSE)<DATACOUNT-(DATACOUNT-cbb1) and lddt<SYSPARAM(4)*1.06,lddt),linethick3,POINTDOT,shift99,colorcc3366;
DRAWNUMBER(BARSCOUNT(CLOSE)+99=DATACOUNT,lddt,lddt,2),colorcc3366,shift100;
STICKLINE(BARSCOUNT(CLOSE)+99=DATACOUNT,lddt,lddt+lddt*0.0001,60,0),colorcc3366,shift99;AC:=CLOSE;
AH:=HIGH;
AL:=LOW;
AO:=OPEN;STICKLINE(AC>=AO,AH,AC,1,0),color008899;
STICKLINE(AC>=AO,AH,AC,0,0),color77ffee;
STICKLINE(AC>=AO,AO,AL,1,0),color008899;
STICKLINE(AC>=AO,AO,AL,0,0),color77ffee;STICKLINE(AC>AO,AC,AO,8,0),COLOR008899;
STICKLINE(AC>AO,AC,AO,7,0),COLOR1199aa;
STICKLINE(AC>AO,AC,AO,6,0),COLOR22aabb;
STICKLINE(AC>AO,AC,AO,5,0),COLOR33bbcc;
STICKLINE(AC>AO,AC,AO,4,0),COLOR44ccdd;
STICKLINE(AC>AO,AC,AO,3,0),COLOR55ddee;
STICKLINE(AC>AO,AC,AO,2,0),COLOR66eeee;
STICKLINE(AC>AO,AC,AO,1,0),COLOR77ffee;STICKLINE(AC<=AO,AH,AC,1,0),colorff8800;
STICKLINE(AC<=AO,AH,AC,0,0),colorffff33;
STICKLINE(AC<=AO,AO,AL,1,0),colorff8800;
STICKLINE(AC<=AO,AO,AL,0,0),colorffff33;
STICKLINE(AC<=AO,AC,AO,8,0),COLORff8800;
STICKLINE(AC<=AO,AC,AO,7,0),COLORff9900;
STICKLINE(AC<=AO,AC,AO,6,0),COLORffaa11;
STICKLINE(AC<=AO,AC,AO,5,0),COLORffbb11;
STICKLINE(AC<=AO,AC,AO,4,0),COLORffcc22;
STICKLINE(AC<=AO,AC,AO,3,0),COLORffdd22;
STICKLINE(AC<=AO,AC,AO,2,0),COLORffee33;
STICKLINE(AC<=AO,AC,AO,1,0),COLORffff33;rc:=DYNAINFO(3);
s2:=SMA(CLOSE,3,1);
s6:=SMA(CLOSE,5,1);
dk:=2*(s2-s6);
STICKLINE(dk>0,rc,rc+dk,0,1),COLORRED;
STICKLINE(dk<0,rc,rc+dk,0,1),COLORCYAN;
rc,COLORBROWN;
MA(CLOSE,9);
STICKLINE(CROSS(MA(CLOSE,1),MA(CLOSE,9)),CLOSE,OPEN,8,0),colorred;
STICKLINE(CROSS(MA(CLOSE,1),MA(CLOSE,9)),HIGH,LOW,0.8,0),COLORred;
STICKLINE(CROSS(MA(CLOSE,1),MA(CLOSE,55)),CLOSE,OPEN,6,0),COLORgray;
STICKLINE(CROSS(MA(CLOSE,1),MA(CLOSE,55)),HIGH,LOW,0.6,0),COLORgray;
STICKLINE(CROSS(MA(CLOSE,1),MA(CLOSE,23.5)),CLOSE,OPEN,7,0),COLORyellow;
STICKLINE(CROSS(MA(CLOSE,1),MA(CLOSE,23.5)),HIGH,LOW,0.7,0),COLORyellow;
STICKLINE(CROSS(MA(CLOSE,1),MA(CLOSE,120)),CLOSE,OPEN,5,0),COLORMAGENTA;
STICKLINE(CROSS(MA(CLOSE,1),MA(CLOSE,120)),HIGH,LOW,0.5,0),COLORMAGENTA;PARTLINE(MA(CLOSE,3),MA(CLOSE,3)),coloryellow,linethick2;
PARTLINE(MA(CLOSE,9),MA(CLOSE,9)),COLORMAGENTA,linethick2;
PARTLINE(MA(CLOSE,23.5),MA(CLOSE,23.5)),colorwhite;{程序化交易 www.weiqiv.net.cn }

?

?

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

?