構成線的公式源碼

Ⅰ 求通達信畫線公式

這個畫線公式需要源碼，以下是通達信畫線指標：
參數設置

AA:=REF(H,N)=HHV(H,2*N+1);{N日前的最高價}
QY:=BACKSET(AA,N+1);{周期記錄}
CC:=FILTER(QY,N) AND H=HHV(H,N+1);{周期過濾 最高價最高值}
DDD:=BARSLAST(CC),NODRAW;{CC條件成立的天數}
GDTS:=IF(CC,CURRBARSCOUNT,0),NODRAW;{CC成立 返回交易日的周}
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS),NODRAW;{DDD成立,返回DDD日前的GDTS,否則返回GDTS}
GDCS1:=CONST(DINGBUTS),NODRAW;{取DINGBUTS值}
GDCS13:=CONST(REF(HIGH,GDCS1-1));
DINGBUTS1:=REF(DINGBUTS,DDD+1),NODRAW;
GDCS2:=CONST(DINGBUTS1);
GDCS23:=CONST(REF(HIGH,DINGBUTS1-1));
XG1:=BACKSET(ISLASTBAR,GDCS1);{ ISLASTBAR 判斷是否為最後一個周期}
XG2:=BACKSET(ISLASTBAR,DINGBUTS1);
STICKLINE(XG2,GDCS23,GDCS23,0.5,1),COLORWHITE,LINETHICK3;{白線}
STICKLINE(XG1,GDCS13,GDCS13,0.5,1),COLORYELLOW,LINETHICK3;{黃線}
{谷線}
AA1:=REF(L,N1)=LLV(L,2*N1+1);
QY1:=BACKSET(AA1,N1+1);
CC1:=FILTER(QY1,N1) AND L=LLV(L,N1+1);
DD1:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
DDCS13:=CONST(REF(L,DDCS1-1));
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);
DDCS23:=CONST(REF(L,DDTS2-1));
XD1:=BACKSET(ISLASTBAR,DDCS1);
XD2:=BACKSET(ISLASTBAR,DDTS2);
STICKLINE(XD2,DDCS23,DDCS23,0.5,1),COLORMAGENTA,LINETHICK3;
STICKLINE(XD1,DDCS13,DDCS13,0.5,1),COLORCYAN,LINETHICK3;
{壓力支撐}
M:=INTPART(3*N2/5);{壓力線取}
AAA:=REF(H,M)=HHV(H,2*M+1);
QYY:=BACKSET(AAA,M+1);
CCC:=FILTER(QYY,M) AND H=HHV(H,M+1);
DDDD:=BARSLAST(CCC),NODRAW;
GDTSS:=IF(CCC,CURRBARSCOUNT,0),NODRAW;
DINGBUTSS:=IF(DDDD,REF(GDTSS,DDDD),GDTSS),NODRAW;
GDCS11:=CONST(DINGBUTSS),NODRAW;
DINGBUTS11:REF(DINGBUTSS,DDDD+1),NODRAW;
GDCS22:=CONST(DINGBUTS11);
高點壓力M:DRAWLINE(CURRBARSCOUNT=GDCS22,H,CURRBARSCOUNT=GDCS11,H,1),COLORBB8000,LINETHICK2;
W:=INTPART(3*N3/5);
AA11:=REF(L,W)=LLV(L,2*W+1);
QY11:=BACKSET(AA11,W+1);
CC11:=FILTER(QY11,W) AND L=LLV(L,W+1);
DD11:=BARSLAST(CC11);
DDTSS:=IF(CC11,CURRBARSCOUNT,0);
DDTS11:=IF(DD11,REF(DDTSS,DD11),DDTSS);
DDCS11:=CONST(DDTS11);
DDTS22:=REF(DDTS11,DD11+1);
DDCS22:=CONST(DDTS22);
低點支撐M:DRAWLINE(CURRBARSCOUNT=DDCS22,L,CURRBARSCOUNT=DDCS11,L,1),COLORMAGENTA,LINETHICK2;
{
ZGSTAR:=(高點壓力M+低點支撐M)/2;
ZGEND:=CONST((高點壓力M+低點支撐M)/2);
STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2);
中軌:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),COLORFF55BB,LINETHICK2;
}
{DRAWKLINE(H,O,L,C);}
{主圖中的倍量K線如何變黃色}
V2V:=V/REF(V,1)>=1.9 AND C>REF(C,1);
STICKLINE(V2V,O,C,-1,0),COLORYELLOW;
{漲停}
ZT:=C/REF(C,1)>1.097;
STICKLINE(ZT,O,C,-1,0),COLORMAGENTA;
ZZ:=(O+H+L)/3;
黃金買點:EMA(ZZ,7),COLORGREEN,LINETHICK1;
TT2:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9);
TT1:=REF(EMA(TT2,3),1);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
BB1:=L<AA1*0.9;

EE1:=VOL<MA(V,5)*1.5;
FF1:=BB1 AND CC1 AND DD1 AND EE1;
F:=100*(C-REF(C,1))/REF(C,1);
P1:=IF(C<REF(O,1) AND F<0,1,0);
P2:=IF(C<REF(O,2) AND F<0,1,0);
TT3:=P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1 ;
TT4:=P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0 ;
Z1:=MA(C,13);
ZX:=REF(Z1,13/2+1);
DRAWICON(CROSS(ZX,C),H*1.01,2);
DRAWTEXT(CROSS(CLOSE,TT1)AND J<55,LOW,'買'),COLORRED;
DRAWTEXT(CROSS(88,RSI),HIGH * 1.02,'短頂'),COLOR00FFFF;
STICKLINE(TT3,OPEN,CLOSE,3,0),COLORFF00FF;
A1:=EMA(C,14)COLORWHITE,LINETHICK1;
A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW;
出擊:IF(A1X>=0,REF(EMA(C,14),BARSLAST(CROSS(A1X,0))+1),DRAWNULL)COLORRED,LINETHICK1;
休假:IF(A1X<0,REF(EMA(C,14),BARSLAST(CROSS(0,A1X))+1),DRAWNULL)COLORGREEN,LINETHICK1;
STICKLINE(CROSS(A1X,0),C,O,2,0)COLORYELLOW;
STICKLINE(CROSS(0,A1X),C,O,2,0)COLORGREEN;
STICKLINE(CROSS(A1X,0)OR CROSS(0,A1X),REF(EMA(C,14),1),REF(EMA(C,14),1)*0.998,2,0)COLORWHITE;
STICKLINE(ISLASTBAR,REF(EMA(C,14),1),REF(EMA(C,14),1)*0.998,5,0)COLORWHITE;

Ⅱ obv畫線指標公式

公式源碼：MOBV：=OBV-MA（OBV，30）；
STICKLINE（MOBV>；0，0，MOBV，1，0），COLORRED；
STICKLINE（MOBV<；0，0，MOBV，1，0），COLORCYAN；
OBV高：=REF（OBV，BARSLAST（FILTER（BACKSET（FILTER（REF（OBV，5）=HHV（OBV，2*5+1），5），5+1），5））；
C高：REF（C，BARSLAST（FILTER（BACKSET（FILTER（REF（C，5）=HHV（C，2*5+1），5），5+1），5)）），NODRAW；
量入為主：CROSS（OBV，OBV高）ANDH
STICKLINE（量入為主，0，MOBV，1，0），COLORYELLOW。
需要注意的是，以上介紹的公式含有未來的，注意信號的出現，量入為主，量在價先。以上就是能量obv畫線指標公式相關內容。
拓展資料：
OBV 的英文全稱是：On Balance Volume，是由美國的投資分析家Joe Granville所創。該指標通過統計成交量變動的趨勢來推測股價趨勢。OBV以「N」字型為波動單位，並且由許許多多「N」型波構成了OBV的曲線圖，對一浪高於一浪的「N」型波，稱其為「上升潮」（UP TIDE），至於上升潮中的下跌回落則稱為「跌潮」（DOWN FIELD）。
能量潮是將成交量數量化，製成趨勢線，配合股價趨勢線，從價格的變動及成交量的增減關系，推測市場氣氛。其主要理論基礎是市場價格的變化必須有成交量的配合，股價的波動與成交量的擴大或萎縮有密切的關連。通常股價上升所需的成交量總是較大；下跌時，則成交量可能放大，也可能較小。價格升降而成交量不相應升降，則市場價格的變動難以為繼。
OBV指標，又稱為能量潮，具有非常高的借鑒意義，據了解，能量潮OBV指標是通過累計每日的需求量和供給量並予以數字化，製成趨勢線，然後配合證券價格趨勢圖，從價格變動與成交量增減的關繫上，來推測市場氣氛的一種技術指標。
如果OBV指標波動情況為N字形，持續上攻的時候，投資人應該繼續持股。如果OBV指標呈小N上攻，並且在某段時間內迅速的上漲，一般都意味著行情會出現反轉。OBV線長時間內橫向運動，但是某天卻快速上漲，並且突破MAOBV線，這種情況一般就代表著大行情的到來。OBV運動背離移動平均線，通常情況下代表著後期行情會有反轉的情況，這時候投資人一定要小心。

公式源碼：MOBV：=OBV-MA（OBV，30）；
STICKLINE（MOBV>；0，0，MOBV，1，0），COLORRED；
STICKLINE（MOBV<；0，0，MOBV，1，0），COLORCYAN；
OBV高：=REF（OBV，BARSLAST（FILTER（BACKSET（FILTER（REF（OBV，5）=HHV（OBV，2*5+1），5），5+1），5））；
C高：REF（C，BARSLAST（FILTER（BACKSET（FILTER（REF（C，5）=HHV（C，2*5+1），5），5+1），5)）），NODRAW；
量入為主：CROSS（OBV，OBV高）ANDH
STICKLINE（量入為主，0，MOBV，1，0），COLORYELLOW。
需要注意的是，以上介紹的公式含有未來的，注意信號的出現，量入為主，量在價先。以上就是能量obv畫線指標公式相關內容。
拓展資料：
OBV 的英文全稱是：On Balance Volume，是由美國的投資分析家Joe Granville所創。該指標通過統計成交量變動的趨勢來推測股價趨勢。OBV以「N」字型為波動單位，並且由許許多多「N」型波構成了OBV的曲線圖，對一浪高於一浪的「N」型波，稱其為「上升潮」（UP TIDE），至於上升潮中的下跌回落則稱為「跌潮」（DOWN FIELD）。
能量潮是將成交量數量化，製成趨勢線，配合股價趨勢線，從價格的變動及成交量的增減關系，推測市場氣氛。其主要理論基礎是市場價格的變化必須有成交量的配合，股價的波動與成交量的擴大或萎縮有密切的關連。通常股價上升所需的成交量總是較大；下跌時，則成交量可能放大，也可能較小。價格升降而成交量不相應升降，則市場價格的變動難以為繼。
OBV指標，又稱為能量潮，具有非常高的借鑒意義，據了解，能量潮OBV指標是通過累計每日的需求量和供給量並予以數字化，製成趨勢線，然後配合證券價格趨勢圖，從價格變動與成交量增減的關繫上，來推測市場氣氛的一種技術指標。
如果OBV指標波動情況為N字形，持續上攻的時候，投資人應該繼續持股。如果OBV指標呈小N上攻，並且在某段時間內迅速的上漲，一般都意味著行情會出現反轉。OBV線長時間內橫向運動，但是某天卻快速上漲，並且突破MAOBV線，這種情況一般就代表著大行情的到來。OBV運動背離移動平均線，通常情況下代表著後期行情會有反轉的情況，這時候投資人一定要小心。

Ⅲ 多條均線粘合的公式怎麼寫，請寫出源碼來。謝謝......................

給你一個例子,通達信三線粘合指標公式,圖片演示看源碼下面網址里.

M1:MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1)),COLORGREEN;
M2:MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1),COLORGREEN,LINETHICK1;
M3:IF(MA(CLOSE,17)<M2,M2,MA(CLOSE,17)),COLORGREEN,LINETHICK1;
支撐線:M3-(EMA(C,3)-M3),COLORFF8080,LINETHICK1;
支強:IF(支撐線>REF(支撐線,1),支撐線,DRAWNULL),COLORGREEN,LINETHICK2;
J1:=BACKSET(M1>REF(M1,1),2);
IF(J1,M3,DRAWNULL),COLORMAGENTA,LINETHICK2;

Ⅳ 殷寶華均線公式源碼

一號線:EMA(CLOSE,144),POINTDOT,LINETHICK2,COLOR0000FF;
二號線:EMA(C,25),COLORWHITE,LINETHICK2;
三號線:EMA(C,318),COLOR0000FF,LINETHICK2;
四黑馬線:EMA(C,453),CIRCLEDOT,LINETHICK1,COLOR428899;
五號線:EMA(C,550),COLORFFCC66;
六號線:EMA(C,610),LINETHICK2,COLORYELLOW;
七號線:EMA(C,730),COLORBLUE;
八號線:EMA(C,99),POINTDOT,LINETHICK2,COLORWHITE;
(大盤:=EMA(INDEXC,500)/EMA(C,500);
大盤線:=INDEXC/大盤,LINETHICK1,COLORBLUE;
工作線:EMA(C,14),COLOR00FFFF,LINETHICK1;)
八線代碼 :
DIFF:=( EMA(CLOSE,7) - EMA(CLOSE,19)),COLORWHITE;
DEA:=EMA(DIFF,9),COLORF00FF0 ;
MACD:=0.90*(DIFF-DEA), COLORSTICK;
TJ:=(DIFF>=DEA);
TJ1:=(DIFF>=0);
{STICKLINE(TJ,H,L,0,0),COLORYELLOW;}
STICKLINE(TJ,O,C,3,1),COLORYELLOW;
STICKLINE(TJ1 AND TJ,H,L,0,0),COLORF00FF0;
STICKLINE(TJ1 AND TJ,O,C,3,1),COLORF00FF0;
STICKLINE(DIFF<DEA,H,L,0,0),COLORF0F000;
STICKLINE(DIFF<DEA,O,C,3,0),COLORF0F000;
VAR1:=(CLOSE*2+HIGH+LOW)/4;
SK:= EMA(VAR1,13)-EMA(VAR1,73);
SD:= EMA(SK,2);
{DRAWTEXT((CROSS(SK,SD) AND SK<-0.04 AND (C-REF(C,1))/REF(C,1)>=0.03) OR (CROSS(SK,SD) AND SK<=-0.14 ) OR (CROSS(SK,SD) AND SK<=0.05 AND (V/MA(V,5)>2 OR C/REF(C,1)>0.035)) ,L*0.99,'短線'),COLORRED;}
{STICKLINE((CROSS(SK,SD) AND SK<-0.04 AND (C-REF(C,1))/REF(C,1)>=0.03) OR (CROSS(SK,SD) AND SK<=-0.14 ) OR (CROSS(SK,SD) AND SK<=0.05 AND (V/MA(V,5)>2 OR C/REF(C,1)>0.035)),H,L,0,0),COLORRED;}
STICKLINE((CROSS(SK,SD) AND SK<-0.04 AND (C-REF(C,1))/REF(C,1)>=0.03) OR (CROSS(SK,SD) AND SK<=-0.14 ) OR (CROSS(SK,SD) AND SK<=0.05 AND (V/MA(V,5)>2 OR C/REF(C,1)>0.035)),O,C,3,0),LINETHICK3,COLORRED;
SS:=CROSS(二號線,八號線) AND C>1.5 AND C>REF(C,1.5) AND C/REF(C,1.5)>=0.98
OR CROSS(二號線,三號線) AND C>1.5 AND C>REF(C,1.5) AND C/REF(C,1.5)>=0.98
OR CROSS(二號線,一號線) AND C>1.5 AND C>REF(C,1.5) AND C/REF(C,1.5)>=0.98{AND CROSS(二號線,三號線)};
DRAWICON(SS,L-0.04,1);
DD:=CROSS(八號線,一號線) AND C>1.5 AND C>REF(C,1.5) AND C/REF(C,1.5)>=0.98
OR CROSS(八號線,四黑馬線) AND C>1.5 AND C>REF(C,1.5) AND C/REF(C,1.5)>=0.98
OR CROSS(八號線,三號線) AND C>1.5 AND C>REF(C,1.5) AND C/REF(C,1.5)>=0.98
OR CROSS(八號線,三號線) AND C>1.5 AND C>REF(C,1.5) AND C/REF(C,1.5)>=0.98 AND CROSS(二號線,四黑馬線);
{DD:=CROSS(二號線,四黑馬線);};
使用方法:
⑴ 測算反彈的理論高度。
方法是用最高點減去最低點再除以2，然後再加上最低點，即為最後的反彈理論高度。
其計算公式可表述為：X（理論漲幅）= D（最低點或最低價）+[H（最高點或最高價）—D（最低點或最低價）]÷2。
實例：2004年大盤反彈高度1776點的計算：
X（大盤反彈高度）= 1307點+[ 2245點（最高點）—1307（最低點）]÷2=1776點。
通過計算，2004年的理論反彈高度應為1176點。而2004年4月6日的最高日收盤點位實際為1777點，僅與計算結果差一個點，其精確程度，顯而易見。
⑵ 下跌低點的測算。
「這是低位買入股票的一種好方法。據此來買股票，一般可買到安全的最低價區。」
其計算方法是用前期明顯高點減前期明顯反彈低點二次，負數為多少，就是它的理論跌幅的最低點或最低價。
用公式表示為：X（買入價）= H（前期高點）—低點—低點
以上內容僅供參考,風險自負

Ⅳ 求K線圖 和 VOL圖的公式源碼

主圖：
STICKLINE(C>=O,H,L,0,1), COLORred;
STICKLINE(C>=O,C,O,6,1), COLORred;
STICKLINE(C< O,H,L,0,0), ColorFFFF00;
STICKLINE(C< O,C,O,6,0),ColorFFFF00;

VOL圖
VOL,VOLSTICK;
MA1:MA(VOL,5),colorwhite;
MA2:MA(VOL,10),coloryellow;
MA3:MA(VOL,20),colorff00ff;

K線圖（Candlestick Charts）又稱蠟燭圖、日本線、陰陽線、棒線、紅黑線等，常用說法是「K線」。它是以每個分析周期的開盤價、最高價、最低價和收盤價繪制而成。

Ⅵ 通達信選股公式源碼

你好，通達信選股公式源碼如下。
次日漲停
W1:=C=HHV（C，20）；
W2:=BARSLAST（W1）；
W3:=IF（W2>0，REF（C，W2），REF（C，W2））；
W4:=交叉（C，REF（W3，1））；
W4和計數（W4，5）=1；
黃轉紫選股
差異：=EMA（DCLOSE，12）-EMA（DCLOSE，26）；
DEA:=EMA（差異，9）；
MACD:=（DIFF-DEA）*2；
紫柱:MACD<0和MACD>REF（MACD，1）和REF（MACD，1）低位金叉選股
差異：=EMA（DCLOSE，12）-EMA（DCLOSE，26）；
DEA:=EMA（差異，9）；
MACD:=（DIFF-DEA）*2；
低位金叉:交叉（差異，DEA）和差異<-0.1；
二次金叉選股
差異：=EMA（DCLOSE，12）-EMA（DCLOSE，26）；
DEA:=EMA（差異，9）；
MACD:=（DIFF-DEA）*2；
JCCOUNT:=計數（交叉（差異，數據包絡分析），BARSLAST（數據包絡分析>=0））；
二次金叉:交叉（差異，DEA）和DEA<0，計數（JCCOUNT=2，21）=1；
絕地反彈
（1）
VAR1:=參考值（低，1）；
VAR2:=SMA（ABS（低VAR1），13，1）/SMA（最大值（低VAR1，0），13，1）*100；
VAR3:=EMA（如果（關閉*1.2，VAR2*13，VAR2/13），13）；
VAR4:=LLV（低，34）；
VAR5:=HHV（VAR3，34）；
VAR6:=如果（LLV（低，55），1，0）；
VAR7:=EMA（如果（低）<=VAR4，（VAR3+VAR5*2）/2，0），3）/618*VAR6；
XL1:=MA（低，2）*0.96；
XL2:=MA（低，26）*0.85；
XL3:=REF（XL1，1）啟動:=如果（XL3，0，VAR7*3），則為紅色；
XG：啟動>25;
（2）
倒退（（參考（關閉，1）<參考（打開，1）和
關閉>打開和ABS（關閉參考（關閉，1））/關閉<0.002），2）；
A2:=過濾器（A1<=V3，10）；
ND資本<300000000
REF（V，1）=LLV（V，4）和V>=REF（V，1）
HHV（V，3）=參考（V，1）和HHV（V，5）=參考（V，1）和HHV（V，21）=參考（V，1）
和V>=REF（V，1）
01>0，T02>0；
1.三線粘合
M:=1；
M5:=MA（閉合，5）；
M10:=MA（閉合，10）；
M20:=MA（閉合，20）；
K1:=最大值（最大值（M5，M10），最大值（M10，M20））；
K2:=MIN（MIN（M5，M10），MIN（M10，M20））；
A:=最大（M5，最大（M10，M20））/MIN（M5，最小（M10，M20））<1+0.03*M；
A1:=（K1/K2-1）<0.005；
A2:=（K1/K2-1）<0.005；
A3:=V>REF（V，1）*1.5和V>MA（V，5）；
XG:A和A1，A2和A3，C>O和V>REF（V，1），資本<=300000000；
2.三條線粘合
N1:=5；N2:=10；N3:=20；M:=1；
MA1:=MA（C，N1）；MA2:=MA（C，N2）；MA3:=MA（C，N3）；
A3:=V>REF（V，1）*1.5和V>MA（V，5）；
最大值（MA1，最大值（MA2，MA3））/MIN（MA1，最小值（MA2，MA3））<1+0.01*M
C>O和V>REF（V，1）和財務（7）<=300000000
A3及資本<=300000000；
3.均線粘合
M:=1；
M5:=MA（閉合，5）；
M10:=MA（閉合，10）；
M20:=MA（閉合，20）；
K1:=最大值（最大值（M5，M10），最大值（M10，M20））；
K2:=MIN（MIN（M5，M10），MIN（M10，M20））；
A:=最大（M5，最大（M10，M20））/MIN（M5，最小（M10，M20））<1+0.01*M；
A1:=（K1/K2-1）<0.005；
A2:=（K1/K2-1）<0.005；
A3:=V>REF（V，1）*1.5和V>MA（V，5）；
XG:A和A1以及A2和A3；
3.金叉選股指標
快線:=均線(均線)(均線(收盤，2，2，2)，；
慢線:=EMA（參考(快線，1)，2);
A3:=V>REF（V，1）*1.5和V>MA（V，5）；
交叉(快線，慢線) 和C>O和
五> =MA（V，21）和V>REF（V，1），資本<=300000000；

Ⅶ 主圖均線MARPS(20200520)+通達信公式源碼

MA5:MA(CLOSE,5);

MA10:MA(CLOSE,10);

MA50:MA(CLOSE,50);

MA250:MA(CLOSE,250);

{劃記號}

GGXG:=HHV(C,1)=HHV(C,0);

DRAWICON(BARSSINCEN(GGXG,20)=0,LOW*0.95,41);

{偏移值}

偏10%:(C-MA(C,10))/MA(C,10)*100,NODRAW,COLORWHITE;

偏20%:(C-MA(C,20))/MA(C,20)*100,NODRAW,COLORWHITE;

偏50%:(C-MA(C,50))/MA(C,50)*100,NODRAW,COLORWHITE;

{一年新高}

一年新高價:HHV(H,250),NODRAW,COLORWHITE;

STICKLINE(ISLASTBAR,一年新高價,一年新高價,10,1),COLORRED;

距離:(一年新高價-CLOSE)/CLOSE*100,NODRAW;

{中期調整}

X:=CONST(HHV(HIGH,120));

X2:=HHVBARS(H,120)+1;

X3:=CONST(LLV(LOW,X2));

X4:=X3/X;X5:=X4*100-100;DRAWNUMBER(L=X3,X3,X5);

中期調整:X5,NODRAW;IF(X5<=-30,X5,DRAWNULL),NODRAW,COLORRED;

{AMA20}

N:=20;

DIR:=ABS(CLOSE-REF(CLOSE,N));

VIR:=SUM(ABS(CLOSE-REF(CLOSE,1)),N);

ER:=DIR/VIR;

CS:=ER*(2/3-2/31)+2/31;

CQ:=CS*CS;

AMA1:DMA(CLOSE,CQ),COLORGREEN,LINETHICK2;

AMA2:IF(AMA1>REF(AMA1,1),AMA1,DRAWNULL),COLORRED,LINETHICK2;

{AMA乖離位}

AMA值:=DMA(CLOSE,CQ);

乖離位1:AMA值*1.08,NODRAW,COLORFFFF00;

STICKLINE(ISLASTBAR,乖離位1,乖離位1,10,1),COLORFFFF00;

{月線反轉}

Z:=EXTDATA_USER(3,0);{50天的}

RPS50:=Z/10;

D:=IF(RPS50<=85,0,1);{RPS50大於85}

A:=C/MA(C,250)>1;{站上年線}

NH:=IF(H<HHV(H,50),0,1);

B:=COUNT(NH,30);{一月內曾創50日新高}

NN:=IF(C>MA(C,250),1,0);

AA:=COUNT(NN,30);

AB:=HIGH/HHV(HIGH,120)>0.9;{最高價距離120日內的最高價不到10%}

DRAWICON(BARSSINCEN((A AND B AND D AND  AA>2  AND AA<30 AND AB),30)=0,LOW,34);

{小黃人}

K120:=EXTDATA_USER(1,0);{120天的RPS}

RPSK120:=K120/10;

K01:=IF(RPSK120<=90,0,1);{RPS120大於90};

K250:=EXTDATA_USER(2,0);{250天的RPS}

RPSK250:=K250/10;

K02:=IF(RPSK250<=90,0,1);{RPS250大於90};

K50:=EXTDATA_USER(3,0);{50天的RPS}

RPSK50:=K50/10;

K03:=IF(RPSK50<=90,0,1);{RPS50大於90};

DRAWICON(BARSSINCEN((K01 AND K02 AND K03),20)=0,LOW*0.95,15);

{漲停跌停標示}

{漲停紅色}

ZDF:=(C-REF(C,1))/REF(C,1)*100;

STICKLINE(ZDF>9.5,C,O,3.1,0),COLORYELLOW;

STICKLINE(ZDF>9.5,C,O,2.1,0),COLORYELLOW;

STICKLINE(ZDF>9.5,C,O,1.2,0),COLORYELLOW;

STICKLINE(ZDF>9.5,C,O,0.2,0),COLORYELLOW;

STICKLINE(ZDF>9.5,H,L,0,0),COLORYELLOW;

{跌停綠色}

STICKLINE(ZDF<-9.5,O,C,3.1,0),COLORGREEN;

STICKLINE(ZDF<-9.5,O,C,2.1,0),COLORGREEN;

STICKLINE(ZDF<-9.5,O,C,1.2,0),COLORGREEN;

STICKLINE(ZDF<-9.5,O,C,0.2,0),COLORGREEN;

STICKLINE(ZDF<-9.5,H,L,0,0),COLORGREEN;

{基本面信息}

DRAWTEXT_FIX(ISLASTBAR ,0.20,0.01,1,DYBLOCK),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR ,0.30,0.01,1,HYBLOCK),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR ,0.50,0.10,1,GNBLOCK),COLORWHITE;

{口袋支點個股}

GGM1:=MA(C,10);GGM2:=MA(C,50);GGM3:=MA(C,120);GGM4:=REF(GGM3,1);GGM5:=MA(C,20);

GGM6:=REF(GGM5,1);GGM7:=(H+L)/2;GGM8:=MA(C,200);GGM9:=REF(GGM2,1);GGL250:=LLV(LOW,250);

GGH120:=HHV(HIGH,120);GGX11:=IF(C<REF(C,1),V,0);GGX12:=(L-MA(C,10))/MA(C,10)*100;

GGX13:=(L-MA(C,50))/MA(C,50)*100;GGX14:=H>REF(H,1);GGX15:=C>=REF(O,1);

GGX16:=(C-MA(C,50))/MA(C,50);GGX17:=(C-MA(C,20))/MA(C,20)*100;

GGX18:=(C-MA(C,50))/MA(C,50)*100;

GGY:=EXTDATA_USER(3,0)/10;{50天的}GGY1:=EXTDATA_USER(1,0)/10;{120天的}

GGY2:=EXTDATA_USER(2,0)/10;{250天的}GGY3:=EXTDATA_USER(6,0)/10;{20天的}

{標准口袋支點個股}

DRAWICON((C-REF(C,1))/REF(C,1)>=0.02 AND VOL>=REF(HHV(GGX11,10),1) AND

(GGX12<=1.5 OR GGX13<=1.5) AND C>=O

AND GGM5>=GGM6 AND (GGM3>=GGM4 OR GGM2>=GGM9) AND C>GGM5 AND GGX14 AND GGX15

AND C>GGM1 AND C>GGM2 AND C>GGM3 AND C>GGM8 AND C>GGM7 AND C>=GGL250*1.2

AND (GGX17<=50 AND GGX18<=50)

AND H>=(GGH120*0.85) AND (GGY>=85 OR GGY1>=85 OR GGY2>=85 OR

(GGY3>=85 AND C>REF(C,1)*1.07)),L*1.01,9);

DRAWICON((C-REF(C,1))/REF(C,1)>=0.095  AND (GGX12<=1.5 OR GGX13<=1.5) AND GGX16<=0.6

AND GGM5>=GGM6  AND (GGM3>=GGM4 OR GGM2>=GGM9) AND C>GGM5 AND GGX14 AND GGX15

AND GGX17<=45 AND C>GGM1 AND C>GGM2 AND C>GGM3 AND C>GGM8 AND C>GGM7 AND

C>=GGL250*1.18 AND  H>=(GGH120*0.85) AND (GGY>=85 OR GGY1>=85 OR GGY2>=85 OR GGY3>=85)

,L*1.01,9);

BBKD:=((C-REF(C,1))/REF(C,1)>=0.095 OR (VOL>=REF(HHV(GGX11,10),1) AND C>REF(C,1)*1.07))

AND (GGX12<=1.5 OR GGX13<=1.5) AND GGX16<=0.6

AND GGM5>=GGM6  AND (GGM3>=GGM4 OR GGM2>=GGM9) AND C>GGM5 AND GGX14 AND GGX15

AND GGX17<=45 AND C>GGM1 AND C>GGM2 AND C>GGM3 AND C>GGM8 AND C>GGM7 AND

C>=GGL250*1.18 AND  H>=(GGH120*0.92) AND (GGY>=85 OR GGY1>=85 OR GGY2>=85 OR GGY3>=85);

BBKD1:=(C-REF(C,1))/REF(C,1)>=0.02 AND VOL>=REF(HHV(GGX11,10),1) AND

(GGX12<=1.5 OR GGX13<=1.5) AND C>=O

AND GGM5>=GGM6  AND (GGM3>=GGM4 OR GGM2>=GGM9) AND C>GGM5 AND GGX14 AND GGX15

AND C>GGM1 AND C>GGM2 AND C>GGM3 AND C>GGM8 AND C>GGM7 AND C>=GGL250*1.2

AND (GGX17<=25 AND GGX18<=25)

AND HHV(C,1)=HHV(C,120) AND (GGY>=85 OR GGY1>=85 OR GGY2>=85 OR

(GGY3>=85 AND C>REF(C,1)*1.07));

{延伸口袋支點個股}

DRAWICON((C-REF(C,1))/REF(C,1)>=0.02 AND GGX12>1.5 AND VOL>=REF(HHV(GGX11,10),1)

AND C>=O AND GGM5>=GGM6  AND (GGM3>=GGM4 OR GGM2>=GGM9) AND C>GGM5 AND GGX14 AND GGX15

AND C>GGM1 AND C>GGM2 AND C>GGM3 AND C>GGM8 AND C>GGM7 AND C>=GGL250*1.2 AND GGX17<=100

AND C>=(GGH120*0.85) AND (GGY>=85 OR GGY1>=85 OR GGY2>=85 OR (GGY3>=85

AND C>=REF(C,1)*1.07)),H*1.05,37);

DRAWICON((C-REF(C,1))/REF(C,1)>=0.095 AND GGX12>1.5 AND GGX16<=0.6 AND GGX17<=100

AND GGM5>=GGM6  AND (GGM3>=GGM4 OR GGM2>=GGM9) AND C>GGM5 AND GGX14 AND GGX15

AND C>GGM1 AND C>GGM2 AND C>GGM3 AND C>GGM8 AND C>GGM7 AND C>=GGL250*1.2

AND C>=(GGH120*0.85) AND (GGY>=85 OR GGY1>=85 OR GGY2>=85 OR GGY3>=85)

,H*1.05,37);

YYKD:=(C-REF(C,1))/REF(C,1)>=0.02 AND GGX12>1.5 AND VOL>=REF(HHV(GGX11,10),1)

AND C>=O AND GGM5>=GGM6  AND (GGM3>=GGM4 OR GGM2>=GGM9) AND C>GGM5 AND GGX14 AND GGX15

AND C>GGM1 AND C>GGM2 AND C>GGM3 AND C>GGM8 AND C>GGM7 AND C>=GGL250*1.2

AND (GGX17<=30 AND GGX18<=30)

AND HHV(C,1)=HHV(C,120) AND (GGY>=85 OR GGY1>=85 OR GGY2>=85 OR (GGY3>=85

AND C>=REF(C,1)*1.07));

YYKD1:=(C-REF(C,1))/REF(C,1)>=0.095 AND GGX12>1.5 AND GGX16<=0.6 AND GGX17<=100

AND  GGM5>=GGM6  AND (GGM3>=GGM4 OR GGM2>=GGM9) AND C>GGM5 AND GGX14 AND GGX15

AND C>GGM1 AND C>GGM2 AND C>GGM3 AND C>GGM8 AND C>GGM7 AND C>=GGL250*1.2

AND (GGX17<=30 AND GGX18<=30)

AND C>=(GGH120*0.92) AND (GGY>=85 OR GGY1>=85 OR GGY2>=85 OR GGY3>=85);

DRAWICON(BARSSINCEN(YYKD OR YYKD1 OR BBKD OR BBKD1,20)=0,H*1.05,36);

Ⅷ 請高手幫忙修改下K線公式源碼（兼容博易大師軟體）在線等！拜託了

首先你提供的代碼不是通達信的啊。

再有在博易大師可以繪制k線。

例如下面圖中把繪制好的k線放在幅圖中顯示。