金字塔支撐阻力位指標源碼，可以自動畫線

相關標簽:金魚專區品種大全，高低點畫線指標源碼，delphi 畫線源碼，阻力位 支撐位，怎樣畫阻力位和支撐位，阻力位和支撐位的算法，支撐位和阻力位，阻力位，黃金支撐位和阻力位，

模型策略源碼：INPUT:n(8,0,10),p(0,0,255),p1(0,0,255),p2(0,0,255); TJA:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1); STICKLINE(TJA,LOW,HIGH,0,0),ColorE9; STICKLINE(TJA,O,CLOSE,8,0),Color80; STICKLINE(TJA,O,CLOSE,6,0),ColorA5; STICKLINE(TJA,O,CLOSE,4,0),ColorC0; STICKLINE(TJA,O,CLOSE,2,0),ColorE6; STICKLINE(NOT(TJA),HIGH,LOW,0,0),Colorff00; STICKLINE(NOT(TJA),CLOSE,OPEN,8,0),Color5000; STICKLINE(NOT(TJA),CLOSE,OPEN,6,0),Color6600; STICKLINE(NOT(TJA),CLOSE,OPEN,4,0),Color8000; STICKLINE(NOT(TJA),CLOSE,OPEN,2,0),ColorA000; BQ:=IF((SYSPARAM(1) = (BARSSINCE((C > 0)) + 1)),1,0); BQ1:=(H<REF(L,1)); BQ2:=(L>REF(H,1)); STICKLINE(BQ1,o+(c-o)*0.25,O,5,0),colorcc0000; STICKLINE(BQ1,o+(c-o)*0.25,O,3,0),colordd0000; STICKLINE(BQ1,o+(c-o)*0.25,O,1,0),coloree0000; STICKLINE(BQ2,O,o+(c-o)*0.25,6,0),color208AAA; STICKLINE(BQ2,O,o+(c-o)*0.25,4,0),color208DDD; STICKLINE(BQ2 ,O,o+(c-o)*0.25,2,0),color208FFF; DRAWTEXT(((BQ > 0) AND Bq1),H,\'↓缺口\'),colorFFFFEE,pxdn10,ALIGN2; DRAWTEXT(((BQ > 0) AND Bq2),L,\'↑缺口\'),color00FFEE,pxup20,ALIGN1; QC:=REF(C,1);QO:=REF(O,1);QH:=REF(H,1);QL:=REF(L,1); FUZ:=L+((H-L)/2);FUS:=O+((C-O)/2); FUSY:=C+((O-C)/2);SSFU:=(FUZ+IF(C>O,FUS,FUSY))/2; FUZ1:=L+((H-L)*0.333);FUS1:=O+((C-O)*0.333);FUS1Y:=C+((O-C)*0.333);SSFU1:=(FUZ1+IF(C>O,FUS1,FUS1Y))/2; FUZ2:=L+((H-L)*0.667);FUS2:=O+((C-O)*0.677);FUS2Y:=C+((O-C)*0.667);SSFU2:=(FUZ2+IF(C>O,FUS2,FUS2Y))/2; BS1:=Ql+((Qh-Ql)/2);BS2:=QO+((QC-QO)/2);BS3:=QC+((QO-QC)/2); DB1:=QL+((QH-QL)*0.333);DB2:=QO+((QC-QO)*0.333);DB3:=QC+((QO-QC)*0.333); EB1:=QL+((QH-QL)*0.667);EB2:=QO+((QC-QO)*0.667);EB3:=QC+((QO-QC)*0.667); SYB1:=QH-((QH-QC)/2);SYB2:=QH-((QH-QO)/2); SYB3:=IF(QC>QO,SYB1,SYB2); XYB1:=QL+((QC-QL)/2);XYB2:=QL+((QO-QL)/2); XYB3:=IF(QC<QO,XYB1,XYB2); QFU:=(BS1+IF(QC>QO,BS2,BS3))/2; QDFU:=(DB1+IF(QC>QO,DB2,DB3))/2; QEFU:=(EB1+IF(QC>QO,EB2,EB3))/2; STICKLINE(C=C,SSFU2,SSFU2,4,0),COLOR00FF00,LINETHICK1; STICKLINE(C=C,SSFU1,SSFU1,4,0),COLOR00FF00,LINETHICK1; STICKLINE(C=C,SSFU,SSFU,6,0),COLOR00FFFF,LINETHICK1; STICKLINE(C=C,IF(C>O,H-((H-C)/2),H-((H-O)/2)),IF(C>O,H-((H-C)/2),H-((H-O)/2)),1.3,0),COLORYELLOW,LINETHICK1; STICKLINE(C=C,IF(C<O,L+((C-L)/2),L+((O-L)/2)),IF(C<O,L+((C-L)/2),L+((O-L)/2)),1.3,0),COLORYELLOW,LINETHICK1; A3:=C=HHV(C,6); A9:=C=LLV(C,6); A4:=BARSLAST(A3); A5:=BARSLAST(A9); A6:=IF(A4,REF(C,A4),REF(C,A4))*1.005; A7:=IF(A5,REF(C,A5),REF(C,A5))*0.995; PARTLINE(A6=ref(A6,1),A6),COLOR00ff00,LINEDOT; PARTLINE(A7=ref(A7,1),A7),COLOR00ffff,LINEDOT; A1:=REF(H,N)=HHV(H,2*N+1); B1:=FILTER(A1,N); C1:=BACKSET(B1,N+1); D1:=FILTER(C1,N); A2:=REF(L,N)=LLV(L,2*N+1); B2:=FILTER(A2,N); C2:=BACKSET(B2,N+1); D2:=FILTER(C2,N); E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2; E2:=(H+L)/2; H1:=(D1 AND NOT(D2 AND E1>=E2)) OR BARSTATUS=2 OR BARSCOUNT(C)=1; L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 AND E1>=E2); X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1)); G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1); L2:=LD OR BARSTATUS=2 OR BARSCOUNT(C)=1;X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2)); G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1); R1:=BACKSET(BARSTATUS=2,BARSLAST(HD)+1); S1:=R1>REF(R1,1); T1:=BACKSET(BARSTATUS=2,BARSLAST(LD)+1); U1:=T1>REF(T1,1); R2:=BACKSET(S1,REF(BARSLAST(HD),1)+2); S2:=R2>REF(R2,1); T2:=BACKSET(U1,REF(BARSLAST(LD),1)+2); U2:=T2>REF(T2,1); T3:=BACKSET(U2,REF(BARSLAST(LD),1)+2); U3:=T3>REF(T3,1); T4:=BACKSET(U3,REF(BARSLAST(LD),1)+2); U4:=T4>REF(T4,1); R3:=BACKSET(S2,REF(BARSLAST(HD),1)+2); S3:=R3>REF(R3,1); R4:=BACKSET(S3,REF(BARSLAST(HD),1)+2); S4:=R4>REF(R4,1); DRAWLINE(S2,H,S1,H,1),Color009999; DRAWLINE(U2,L,U1,L,1),POINTDOT,Color009999; DRAWLINE(S3,H,S2,H,1),Color999900; DRAWLINE(U3,L,U2,L,1),POINTDOT,Color999900; DRAWLINE(S4,H,S3,H,1),ColorEEAAEE; DRAWLINE(U4,L,U3,L,1),POINTDOT,ColorEEAAEE; DRAWSL(SYSPARAM(1)=BARPOS,REF(L,SYSPARAM(1)=SUM(1,0)-1),0,0,1),COLORGREEN; DRAWSL(SYSPARAM(1)=BARPOS,REF(H,SYSPARAM(1)=SUM(1,0)-1),0,0,1),COLORRED; TTt:=ISLASTBAR=1; AS1:=((H-L)/L)*100; AS2:=H-L; MAI:=C*1.015; MAII:=C*1.03; DRAWTEXTEX(TTT,0,310,1,\'▼明短線贏利 [1.5%--3%:]\'+\'/\'+NUMTOSTR(MAI[SYSPARAM(1)],2)+\'--\'+NUMTOSTR(MAII [SYSPARAM(1)],2)),Color00dd00; DRAWTEXTEX(TTt,0,176,1,\'【振幅:\'+NUMTOSTR(AS1[SYSPARAM(1)],2)+\'% \'+NUMTOSTR(AS2[SYSPARAM(1)],2)+\'元 】\'+\'\'),Colordddd00; DRAWTEXTEX(TTT,0,1,1,\'【代碼:\'+STKLABEL+\' 名稱:\'+STKNAME+\'】\'),ColorffFFFF; DRAWTEXTEX(TTT,1,700,1,\'【#---金魚-玉兔---#】\'),COLORRED; as:=(o+h+l+c)/4; BL: eMA(as,p),linethick1,Color208FFF; BL1: MA(C,p1),linethick1,ColorFFFFFF; BL2: MA(C,p2),linethick1,Color00FFFF; BLT:=BARSTATUS=2; DRAWTEXT(BLT AND BL>REF(BL,1),BL,\'ENA↑\'+NUMTOSTR(p,0)+\':\'+NUMTOSTR(BL,2)),COLOR208fff; DRAWTEXT(BLT AND BL<REF(BL,1),BL,\'↓\'+NUMTOSTR(p,0)+\':\'+NUMTOSTR(BL,2)),Color208FFF; DRAWTEXT(BLT AND BL1>REF(BL1,1),BL1,\'↑\'+NUMTOSTR(p1,0)+\':\'+NUMTOSTR(BL1,2)),COLORFFffff; DRAWTEXT(BLT AND BL1<REF(BL1,1),BL1,\'↓\'+NUMTOSTR(p1,0)+\':\'+NUMTOSTR(BL1,2)),ColorFFFDED; DRAWTEXT(BLT AND BL2>REF(BL2,1),BL2,\'↑\'+NUMTOSTR(p2,0)+\':\'+NUMTOSTR(BL2,2)),COLOR00CCCC; DRAWTEXT(BLT AND BL2<REF(BL2,1),BL2,\'↓\'+NUMTOSTR(p2,0)+\':\'+NUMTOSTR(BL2,2)),Color00CCCC;
點擊復制上述代碼粘貼到到公式管理器

{別忘了將本網告訴您身邊的朋友，向朋友傳達有用資料，也是一種人情，你朋友會感謝你的。}

源碼解析：

輸出INPUT:N(8,0,10),P(0,0,255),P1(0,0,255),P2(0,0,255)
TJA賦值:收陽線OROSE 平盤ANDSE 收盤價>昨收
當滿足條件TJA時,在最低價和最高價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORE9
當滿足條件TJA時,在開盤價和收盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR80
當滿足條件TJA時,在開盤價和收盤價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORA5
當滿足條件TJA時,在開盤價和收盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORC0
當滿足條件TJA時,在開盤價和收盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORE6
當滿足條件取反時,在最高價和最低價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFF00
當滿足條件取反時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR5000
當滿足條件取反時,在收盤價和開盤價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR6600
當滿足條件取反時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR8000
當滿足條件取反時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORA000
BQ賦值:如果(SYSPARAM(1)=(首次(收盤價>0)距今天數+1)),返回1,否則返回0
BQ1賦值:(最高價<昨日最低價)
BQ2賦值:(最低價>昨日最高價)
當滿足條件BQ1時,在開盤價+(收盤價-開盤價)*0.25和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORCC0000
當滿足條件BQ1時,在開盤價+(收盤價-開盤價)*0.25和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORDD0000
當滿足條件BQ1時,在開盤價+(收盤價-開盤價)*0.25和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOREE0000
當滿足條件BQ2時,在開盤價和開盤價+(收盤價-開盤價)*0.25位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR208AAA
當滿足條件BQ2時,在開盤價和開盤價+(收盤價-開盤價)*0.25位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR208DDD
當滿足條件BQ2時,在開盤價和開盤價+(收盤價-開盤價)*0.25位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR208FFF
當滿足條件((BQ>0)ANDBQ1)時,在最高價位置書寫文字,COLORFFFFEE,PXDN10,ALIGN2
當滿足條件((BQ>0)ANDBQ2)時,在最低價位置書寫文字,COLOR00FFEE,PXUP20,ALIGN1
QC賦值:昨收
QO賦值:昨日開盤價
QH賦值:昨日最高價
QL賦值:昨日最低價
FUZ賦值:最低價+((最高價-最低價)/2)
FUS賦值:開盤價+((收盤價-開盤價)/2)
FUSY賦值:收盤價+((開盤價-收盤價)/2)
SSFU賦值:(FUZ+如果收陽線,返回FUS,否則返回FUSY)/2
FUZ1賦值:最低價+((最高價-最低價)*0.333)
FUS1賦值:開盤價+((收盤價-開盤價)*0.333)
FUS1Y賦值:收盤價+((開盤價-收盤價)*0.333)
SSFU1賦值:(FUZ1+如果收陽線,返回FUS1,否則返回FUS1Y)/2
FUZ2賦值:最低價+((最高價-最低價)*0.667)
FUS2賦值:開盤價+((收盤價-開盤價)*0.677)
FUS2Y賦值:收盤價+((開盤價-收盤價)*0.667)
SSFU2賦值:(FUZ2+如果收陽線,返回FUS2,否則返回FUS2Y)/2
BS1賦值:QL+((QH-QL)/2)
BS2賦值:QO+((QC-QO)/2)
BS3賦值:QC+((QO-QC)/2)
DB1賦值:QL+((QH-QL)*0.333)
DB2賦值:QO+((QC-QO)*0.333)
DB3賦值:QC+((QO-QC)*0.333)
EB1賦值:QL+((QH-QL)*0.667)
EB2賦值:QO+((QC-QO)*0.667)
EB3賦值:QC+((QO-QC)*0.667)
SYB1賦值:QH-((QH-QC)/2)
SYB2賦值:QH-((QH-QO)/2)
SYB3賦值:如果QC>QO,返回SYB1,否則返回SYB2
XYB1賦值:QL+((QC-QL)/2)
XYB2賦值:QL+((QO-QL)/2)
XYB3賦值:如果QC<QO,返回XYB1,否則返回XYB2
QFU賦值:(BS1+如果QC>QO,返回BS2,否則返回BS3)/2
QDFU賦值:(DB1+如果QC>QO,返回DB2,否則返回DB3)/2
QEFU賦值:(EB1+如果QC>QO,返回EB2,否則返回EB3)/2
當滿足條件收盤價=收盤價時,在SSFU2和SSFU2位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR00FF00,線寬為1
當滿足條件收盤價=收盤價時,在SSFU1和SSFU1位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR00FF00,線寬為1
當滿足條件收盤價=收盤價時,在SSFU和SSFU位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR00FFFF,線寬為1
當滿足條件收盤價=收盤價時,在如果收陽線,返回最高價-((最高價-收盤價)/2),否則返回最高價-((最高價-開盤價)/2)和如果收陽線,返回最高價-((最高價-收盤價)/2),否則返回最高價-((最高價-開盤價)/2)位置之間畫柱狀線,寬度為1.3,0不為0則畫空心柱.,畫黃色,線寬為1
當滿足條件收盤價=收盤價時,在如果收陰線,返回最低價+((收盤價-最低價)/2),否則返回最低價+((開盤價-最低價)/2)和如果收陰線,返回最低價+((收盤價-最低價)/2),否則返回最低價+((開盤價-最低價)/2)位置之間畫柱狀線,寬度為1.3,0不為0則畫空心柱.,畫黃色,線寬為1
A3賦值:收盤價=6日內收盤價的最高值
A9賦值:收盤價=6日內收盤價的最低值
A4賦值:上次A3距今天數
A5賦值:上次A9距今天數
A6賦值:如果A4,返回A4日前的收盤價,否則返回A4日前的收盤價*1.005
A7賦值:如果A5,返回A5日前的收盤價,否則返回A5日前的收盤價*0.995
PARTLINE(A6=昨日A6,A6),COLOR00FF00,LINEDOT
PARTLINE(A7=昨日A7,A7),COLOR00FFFF,LINEDOT
A1賦值:N日前的最高價=2*N+1日內最高價的最高值
B1賦值:A1的N日過濾
C1賦值:若B1則將最近N+1周期置為1
D1賦值:C1的N日過濾
A2賦值:N日前的最低價=2*N+1日內最低價的最低值
B2賦值:A2的N日過濾
C2賦值:若B2則將最近N+1周期置為1
D2賦值:C2的N日過濾
E1賦值:(昨日2*N日內最低價的最低值+昨日2*N日內最高價的最高值)/2
E2賦值:(最高價+最低價)/2
H1賦值:(D1 AND 取反) OR BARSTATUS=2 OR 收盤價的有效數據周期數=1
L1賦值:(D2 AND 取反)
H2賦值:D1 AND 取反
X1賦值:昨日上次H1距今天數+1
F1賦值:若H1ANDCOUNT(L1,X1)>0則將最近X1日內如果L1,返回最低價,否則返回10000距今天數周期置為1
G1賦值:F1>昨日F1
I1賦值:若G1則將最近2周期置為1
LD賦值:I1>昨日I1
L2賦值:LD OR BARSTATUS=2 OR 收盤價的有效數據周期數=1
X2賦值:昨日上次L2距今天數+1
F2賦值:若L2ANDCOUNT(H2,X2)>0則將最近X2日內如果H2,返回最高價,否則返回0距今天數周期置為1
G2賦值:F2>昨日F2
I2賦值:若G2則將最近2周期置為1
HD賦值:I2>昨日I2
R1賦值:若BARSTATUS=2則將最近上次HD距今天數+1周期置為1
S1賦值:R1>昨日R1
T1賦值:若BARSTATUS=2則將最近上次LD距今天數+1周期置為1
U1賦值:T1>昨日T1
R2賦值:若S1則將最近昨日上次HD距今天數+2周期置為1
S2賦值:R2>昨日R2
T2賦值:若U1則將最近昨日上次LD距今天數+2周期置為1
U2賦值:T2>昨日T2
T3賦值:若U2則將最近昨日上次LD距今天數+2周期置為1
U3賦值:T3>昨日T3
T4賦值:若U3則將最近昨日上次LD距今天數+2周期置為1
U4賦值:T4>昨日T4
R3賦值:若S2則將最近昨日上次HD距今天數+2周期置為1
S3賦值:R3>昨日R3
R4賦值:若S3則將最近昨日上次HD距今天數+2周期置為1
S4賦值:R4>昨日R4
當滿足條件S2時,在最高價位置畫直線起點，當滿足條件S1時,在最高價位置畫直線終點,1表示是否延長.,COLOR009999
 當滿足條件U2時,在最低價位置畫直線起點，當滿足條件U1時,在最低價位置畫直線終點,1表示是否延長.,POINTDOT,COLOR009999
當滿足條件S3時,在最高價位置畫直線起點，當滿足條件S2時,在最高價位置畫直線終點,1表示是否延長.,COLOR999900
當滿足條件U3時,在最低價位置畫直線起點，當滿足條件U2時,在最低價位置畫直線終點,1表示是否延長.,POINTDOT,COLOR999900
 當滿足條件S4時,在最高價位置畫直線起點，當滿足條件S3時,在最高價位置畫直線終點,1表示是否延長.,COLOREEAAEE
當滿足條件U4時,在最低價位置畫直線起點，當滿足條件U3時,在最低價位置畫直線終點,1表示是否延長.,POINTDOT,COLOREEAAEE
DRAWSL(SYSPARAM(1)=BARPOS,SYSPARAM(1)=1的歷史累和-1日前的最低價,0,0,1),畫綠色
DRAWSL(SYSPARAM(1)=BARPOS,SYSPARAM(1)=1的歷史累和-1日前的最高價,0,0,1),畫紅色
TTT賦值:是否最后一個周期=1
AS1賦值:((最高價-最低價)/最低價)*100
AS2賦值:最高價-最低價
MAI賦值:收盤價*1.015
MAII賦值:收盤價*1.03
輸出DRAWTEXTEX(TTT,0,310,1,\'▼明短線贏利 [1.5%--3%:]\'+\'/\'+NUMTOSTR(MAI[SYSPARAM(1)],2)+\'--\'+NUMTOSTR(MAII [SYSPARAM(1)],2)),COLOR00DD00
輸出DRAWTEXTEX(TTT,0,176,1,\'【振幅:\'+NUMTOSTR(AS1[SYSPARAM(1)],2)+\'% \'+NUMTOSTR(AS2[SYSPARAM(1)],2)+\'元 】\'+\'\'),COLORDDDD00
輸出輸出DRAWTEXTEX(TTT,0,1,1,\'【代碼:\'+STKLABEL+\' 名稱:\'+STKNAME+\'】\'),COLORFFFFFF
DRAWTEXTEX(TTT,1,700,1,\'【#---金魚-玉兔---#】\'),畫紅色
AS賦值:(開盤價+最高價+最低價+收盤價)/4
輸出BL: AS的P日指數移動平均,線寬為1,COLOR208FFF
輸出BL1: 收盤價的P1日簡單移動平均,線寬為1,COLORFFFFFF
輸出BL2: 收盤價的P2日簡單移動平均,線寬為1,COLOR00FFFF
BLT賦值:BARSTATUS=2
當滿足條件BLTANDBL>昨日BL時,在BL位置書寫文字,COLOR208FFF
當滿足條件BLTANDBL<昨日BL時,在BL位置書寫文字,COLOR208FFF
當滿足條件BLTANDBL1>昨日BL1時,在BL1位置書寫文字,COLORFFFFFF
當滿足條件BLTANDBL1<昨日BL1時,在BL1位置書寫文字,COLORFFFDED
當滿足條件BLTANDBL2>昨日BL2時,在BL2位置書寫文字,COLOR00CCCC
當滿足條件BLTANDBL2<昨日BL2時,在BL2位置書寫文字,COLOR00CCCC