相關標簽:
?
?
原理解析：
填充背景
輸出INPUT:X(2009,1990,2020),M(0.7,0.3,0.9),N(3.3,3.1,3.6)
VAR1賦值:成交量(手)/((最高價-最低價)*2-收盤價-開盤價的絕對值)
輸出成交:成交量(手),POINTDOT,COLORE4C1EE
輸出主買:如果收陽線,返回VAR1*(最高價-最低價),否則返回如果收陰線,返回VAR1*((最高價-開盤價)+(收盤價-最低價)),否則返回成交量(手)/2,畫紅色,POINTDOT
輸出主賣:如果收陽線,返回VAR1*((最高價-收盤價)+(開盤價-最低價)),否則返回如果收陰線,返回VAR1*(最高價-最低價),否則返回成交量(手)/2,COLOR00FF00,POINTDOT
當滿足條件成交量(手)>0時,在成交量(手)和0位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORE4C1EE
當滿足條件主買>0時,在0和主買位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR1B07E2
當滿足條件主賣>0時,在0和主賣位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR00D11F
VOLUME賦值:成交量(手)
VAR2賦值:VOLUME的5日簡單移動平均
VAR3賦值:VOLUME的10日簡單移動平均
VAR4賦值:VOLUME的20日簡單移動平均
VAR5賦值:VOLUME的60日簡單移動平均
前量比賦值:成交量(手)/1日前的成交量(手)
五量比賦值:成交量(手)/VAR2
六量比賦值:成交量(手)/VAR5
PARTLINE(成交量(手)的5日簡單移動平均>=1日前的成交量(手)的5日簡單移動平均,成交量(手)的5日簡單移動平均),畫紅色,線寬為3
PARTLINE(成交量(手)的5日簡單移動平均<=1日前的成交量(手)的5日簡單移動平均,成交量(手)的5日簡單移動平均),COLOR00C700,線寬為3
輸出換手率:如果當前流通股本(手)=0,返回大盤的成交量/ESTDATA(12),否則返回成交量(手)/流通股本(股),PRECISION2,線寬為0
輸出VARIABLE:WDAY[7]='星期六'
賦值:'星期日'
賦值:'星期一'
賦值:'星期二'
賦值:'星期三'
賦值:'星期四'
賦值:'星期五'
FY賦值:年份
FM賦值:月份
FD賦值:日
WD賦值:星期
P賦值:SYSPARAM(1)
BB賦值:BARPOS
STR1賦值:''+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日 '+WDAY[WD[P]+1]
SJ賦值:OPENMINUTES(CURRENTTIME)>1 AND OPENMINUTES(CURRENTTIME)<239
LJ0賦值:成交量(手)/如果最高價=最低價,返回4,否則返回最高價-最低價
JJ賦值:(最高價+最低價+收盤價)/3
輸出特大:如果當前流通股本(手)=0,返回LJ0*(JJ-收盤價和開盤價的較小值),否則返回LJ0*如果最高價=最低價,返回1,否則返回(開盤價和收盤價的較小值-最低價),PRECISION0,COLOR0000FF,線寬為0
輸出大戶:如果當前流通股本(手)=0,返回LJ0*(開盤價和收盤價的較小值-最低價),否則返回LJ0*如果最高價=最低價,返回1,否則返回(JJ-收盤價和開盤價的較小值),PRECISION0,COLORFF00FF,線寬為0
輸出中戶:如果當前流通股本(手)=0,返回LJ0*(最高價-開盤價和收盤價的較大值),否則返回LJ0*如果最高價=最低價,返回1,否則返回(最高價-開盤價和收盤價的較大值),PRECISION0,COLOR00FF00,線寬為0
輸出散戶:如果當前流通股本(手)=0,返回LJ0*(收盤價和開盤價的較大值-JJ),否則返回LJ0*如果最高價=最低價,返回1,否則返回(收盤價和開盤價的較大值-JJ),PRECISION0,COLORFF6600,線寬為0
總1賦值:(特大+大戶)-(中戶+散戶)
總賦值:成交量(手)
WW賦值:SYSPARAM(2)
N1賦值:SYSPARAM(3)
NN賦值:N1-WW+1
HH賦值:NN日內總的最高值
LL賦值:NN日內總的最低值
ZG賦值:HH[N1]
ZD賦值:LL[N1]
中0賦值:ZD+(ZG-ZD)*0.5
中賦值:中0*0.05
CM賦值:總1的25日累和
ZJ賦值:1日前的總1
ZSB賦值:(總1-1日前的總1)/總*100
ZSA賦值:CM/如果STKTYPE=0,返回成交量(手)的25日累和,否則返回如果STKTYPE=13,返回成交量(手)的10日累和,否則返回當前流通股本(手)
CC賦值:上次FM>1日前的FM距今天數日前的收盤價
主力成本賦值:(CC*(特大+大戶)*100)/(特大+大戶)/100
DF1賦值:收盤價的12日指數移動平均-收盤價的26日指數移動平均
DA1賦值:DF1的9日指數移動平均
LJ6賦值:DF1>DA1 AND DA1<0
LJ7賦值:"KDJ的K">"KDJ的D" AND "KDJ的D"<30
LJ8賦值:DF1<DA1
LJ9賦值:"KDJ的K"<"KDJ的D" AND "KDJ的K">80
W1賦值:大戶的5日累和+特大的5日累和
W2賦值:散戶的5日累和+中戶的5日累和
量振1賦值:特大>大戶 AND 大戶>散戶
量振2賦值:特大<散戶 AND 大戶<散戶
標振1賦值:LJ6 AND LJ7
標振2賦值:LJ8 AND LJ9
A賦值:W1-W2
A0賦值:如果A>0,返回A,否則返回0
B0賦值:如果A<0,返回A,否則返回0
當滿足條件BB=WW時,在中*0.2和中*9.2位置之間畫柱狀線,寬度為(散戶[P]/總*200)*1.02,1不為0則畫空心柱.,畫白色,線寬為2
當滿足條件BB=WW時,在中*0.8和中*8.6位置之間畫柱狀線,寬度為散戶[P]/總*200,0不為0則畫空心柱.,COLORFF8800
當滿足條件BB=WW時,在中*10.2和中*19.2位置之間畫柱狀線,寬度為(中戶[P]/總*200)*1.02,1不為0則畫空心柱.,畫白色,線寬為2
當滿足條件BB=WW時,在中*10.8和中*18.6位置之間畫柱狀線,寬度為中戶[P]/總*200,0不為0則畫空心柱.,COLORFF00FF
當滿足條件BB=WW時,在中*20.2和中*29.2位置之間畫柱狀線,寬度為(大戶[P]/總*200)*1.02,1不為0則畫空心柱.,畫白色,線寬為2
當滿足條件BB=WW時,在中*20.8和中*28.6位置之間畫柱狀線,寬度為大戶[P]/總*200,0不為0則畫空心柱.,COLOR0088FF
當滿足條件BB=WW時,在中*30.2和中*39.2位置之間畫柱狀線,寬度為(特大[P]/總*200)*1.02,1不為0則畫空心柱.,畫白色,線寬為2
當滿足條件BB=WW時,在中*30.8和中*38.6位置之間畫柱狀線,寬度為特大[P]/總*200,0不為0則畫空心柱.,COLOR0000FF
DRAWTEXTEX(收盤價,1,420,0,STR1),COLORFFFF00
DRAWTEXTEX(收盤價,1,200,0,STKLABEL+' '+品種名稱+''),COLORFFFF00
當滿足條件BB=WW時,在中*36位置書寫文字,COLOR00FF00
當滿足條件BB=WW時,在中*26位置書寫文字,COLOR00FF00
當滿足條件BB=WW時,在中*16位置書寫文字,COLOR00FF00
當滿足條件BB=WW時,在中*6位置書寫文字,COLOR00FF00
DIFF賦值:收盤價的12日指數移動平均-收盤價的26日指數移動平均
DEA賦值:DIFF的9日指數移動平均
MACD1賦值:2*(DIFF-DEA)
CS1賦值:100
CS2賦值:CS1日內MACD1的絕對值的最高值
CS3賦值:100/CS2的絕對值
輸出平滑異同平均:(MACD1*CS3+100)/2,線寬為5,COLOR00FF00
CS賦值:MACD
日紅賦值:CS>=1日前的CS
日轉紅賦值:日紅 AND 1日前的日紅=0
PARTLINE(日紅,CS),線寬為5,畫紅色
AA賦值:0
V1賦值:10日內最低價的最低值
V2賦值:25日內最高價的最高值
價位線賦值:(收盤價-V1)/(V2-V1)*4的4日指數移動平均
當滿足條件價位線上穿M時,在AA位置書寫文字,COLORFFFFFF
當滿足條件N上穿價位線時,在AA位置書寫文字,COLOR07F6FF
VERTLINE(價位線上穿M),COLOR0000FF,LINEDASHDOT
VERTLINE(N上穿價位線),COLORFF00,LINEDASHDOT
輸出DRAWTEXTEX(收盤價,1,200,130,'主力成本:'+NUMTOSTR(主力成本[P],2)),COLOR00FF00
輸出DRAWTEXTEX(收盤價,1,420,130,'主力籌碼占流通:'+NUMTOSTR(如果ZSA>0,返回ZSA[P]*100,否則返回0,2)+' %'),COLOR00FF00
輸出DRAWTEXTEX(收盤價,1,720,130,'較昨日增減:'+NUMTOSTR(ZSB[P],2)+' %'),COLOR00FF00
DRAWTEXTEX(收盤價 AND 總1[P]<0,1,720,0,'散戶主買主力主賣'),COLORFFEE00
DRAWTEXTEX(收盤價 AND 總1[P]>0,1,720,0,'主力主買散戶主賣'),COLOR0000FF
周倉賦值:總1的5日累和
月倉賦值:總1的25日累和
年倉賦值:總1的240日累和
上周賦值:1日前的周倉
上月賦值:1日前的月倉
上年賦值:上次FY=X距今天數日前的年倉
周增賦值:周倉-上周
月增賦值:月倉-上月
年增賦值:年倉-上年
?
?
?
EXPLAIN(1,''''''''''''''''''='),畫白色
fy:=YEAR;fm:=MONTH;fd:=DAY;wd:=WEEKDAY;p:=SYSPARAM(1);BB:=BARPOS;
str1:=''+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日 '+wday[wd[p]+1];
SJ:=OPENMINUTES(CURRENTTIME)>1 and OPENMINUTES(CURRENTTIME)<239;
lj0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);jj:=(HIGH+LOW+CLOSE)/3;
特大:IF(CAPITAL=0,lj0*(jj-MIN(CLOSE,OPEN)),lj0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW))),PRECISION0,COLOR0000FF,LINETHICK;
大戶:IF(CAPITAL=0,lj0*(MIN(OPEN,CLOSE)-LOW),lj0*IF(HIGH=LOW,1,(jj-MIN(CLOSE,OPEN)))),PRECISION0,COLORFF00FF,LINETHICK;
中戶:IF(CAPITAL=0,lj0*(HIGH-MAX(OPEN,CLOSE)),lj0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE)))),PRECISION0,COLOR00FF00,LINETHICK;
散戶:IF(CAPITAL=0,lj0*(MAX(CLOSE,OPEN)-jj),lj0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-jj))),PRECISION0,COLORFF6600,LINETHICK;
總1:=(特大+大戶)-(中戶+散戶);總:=vol;
ww:=SYSPARAM(2);n1:=SYSPARAM(3);nn:=n1-ww+1;hh:=HHV(總,nn);ll:=LLV(總,nn);
ZG:=hh[n1];ZD:=ll[n1];中0:=ZD+(ZG-ZD)*0.5;中:=中0*0.05;CM:=SUM(總1,25);
ZJ:=REF(總1,1);ZSB:=(總1-REF(總1,1))/總*100;
ZSA:=cm/IF(STKTYPE=0,SUM(VOL,25),IF(STKTYPE=13,SUM(VOL,10),CAPITAL));
cc:=REF(CLOSE,BARSLAST(fm>REF(fm,1)));主力成本:=(cc*(特大+大戶)*100)/(特大+大戶)/100;
DF1:=EMA(CLOSE,12)-EMA(CLOSE,26);DA1:=EMA(DF1,9);
lj6:=df1>da1 and da1<0;lj7:="kdj.k">"kdj.d" and "kdj.d"<30;
lj8:=df1<da1;lj9:="kdj.k"<"kdj.d" and "kdj.k">80;
w1:=SUM(大戶,5)+SUM(特大,5);w2:=SUM(散戶,5)+SUM(中戶,5);
量振1:=特大>大戶 and 大戶>散戶;量振2:=特大<散戶 and 大戶<散戶;
標振1:=lj6 and lj7;標振2:=lj8 and lj9;
a:=w1-w2;a0:=IF(a>0,a,0);b0:=IF(a<0,a,0);
STICKLINE(BB=ww,中*0.2,中*9.2,(散戶[P]/總*200)*1.02,1),COLORWHITE,LINETHICK2;
STICKLINE(BB=ww,中*0.8,中*8.6,散戶[P]/總*200,0),COLORFF8800;
STICKLINE(BB=ww,中*10.2,中*19.2,(中戶[P]/總*200)*1.02,1),COLORWHITE,LINETHICK2;
STICKLINE(BB=ww,中*10.8,中*18.6,中戶[P]/總*200,0),COLORFF00FF;
STICKLINE(BB=ww,中*20.2,中*29.2,(大戶[P]/總*200)*1.02,1),COLORWHITE,LINETHICK2;
STICKLINE(BB=ww,中*20.8,中*28.6,大戶[P]/總*200,0),COLOR0088FF;
STICKLINE(BB=ww,中*30.2,中*39.2,(特大[P]/總*200)*1.02,1),COLORWHITE,LINETHICK2;
STICKLINE(BB=ww,中*30.8,中*38.6,特大[P]/總*200,0),COLOR0000FF;
DRAWTEXTEX(CLOSE,1,420,0,str1),ColorffFF00;
DRAWTEXTEX(CLOSE,1,200,0,STKLABEL+' '+STKNAME+''),ColorffFF00;
DRAWTEXT(BB=ww,中*36,'特大:'+NUMTOSTR(特大[P]/總*100,2)+' %'),COLOR00FF00;
DRAWTEXT(BB=ww,中*26,'大戶:'+NUMTOSTR(大戶[P]/總*100,2)+' %'),COLOR00FF00;
DRAWTEXT(BB=ww,中*16,'中戶:'+NUMTOSTR(中戶[P]/總*100,2)+' %'),COLOR00FF00;
DRAWTEXT(BB=ww,中*6,'散戶:'+NUMTOSTR(散戶[P]/總*100,2)+' %'),COLOR00FF00;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD1:=2*(DIFF-DEA);
CS1:=100;
CS2:=HHV(ABS(MACD1),CS1);
CS3:=ABS(100/CS2);
MACD:(MACD1*CS3+100)/2,LINETHICK5,color00FF00;
CS:=MACD;
日紅:=CS>=REF(CS,1);
日轉紅:=日紅 AND REF(日紅,1)=0;
PARTLINE(日紅,CS),LINETHICK5,colorred;
AA:=0;
V1:=LLV(LOW,10);
V2:=HHV(HIGH,25);
價位線:=EMA((CLOSE-V1)/(V2-V1)*4,4);
DRAWTEXT(CROSS(價位線,M),AA,'買'),colorFFFFFF;
DRAWTEXT(CROSS(N,價位線),AA,'賣'),color07F6FF;
VERTLINE(CROSS(價位線,M)),color0000FF,LINEDASHDOT;
VERTLINE(CROSS(N,價位線)),colorFF00,LINEDASHDOT;
DRAWTEXTEX(CLOSE,1,200,130,'主力成本:'+NUMTOSTR(主力成本[p],2)),COLOR00FF00;
DRAWTEXTEX(CLOSE,1,420,130,'主力籌碼占流通:'+NUMTOSTR(IF(ZSA>0,ZSA[P]*100,0),2)+' %'),COLOR00FF00;
DRAWTEXTEX(CLOSE,1,720,130,'較昨日增減:'+NUMTOSTR(ZSB[P],2)+' %'),COLOR00FF00;
DRAWTEXTEX(c and 總1[P]<0,1,720,0,'散戶主買主力主賣'),COLORffee00;
DRAWTEXTEX(c and 總1[P]>0,1,720,0,'主力主買散戶主賣'),COLOR0000ff;
周倉:=SUM(總1,5);月倉:=SUM(總1,25);年倉:=SUM(總1,240);上周:=REF(周倉,1);上月:=REF(月倉,1);
上年:=REF(年倉,BARSLAST(fy=X));周增:=周倉-上周;月增:=月倉-上月;年增:=年倉-上年;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'昨日增減:'+NUMTOSTR(zj[p]*100/10000,2)+' 萬股'),ColorFF8B00;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上周:'+NUMTOSTR(上周[p]*100/10000,2)+' 萬股'),COLORred;
EXPLAIN(1,'增減:'+NUMTOSTR(周增[p]*100/10000,2)+' 萬股'),COLORred;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上月:'+NUMTOSTR(上月[p]*100/10000,2)+' 萬股'),COLORFF00FF;
EXPLAIN(1,'增減:'+NUMTOSTR(月增[p]*100/10000,2)+' 萬股'),COLORFF00FF;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上年:'+NUMTOSTR(上年[p]*100/10000,2)+' 萬股'),COLOR00EE00;
EXPLAIN(1,'增減:'+NUMTOSTR(年增[p]*100/10000,2)+' 萬股'),COLOR00EE00;
EXPLAIN(1,'==================================='),colorwhite;
打印本文
關閉窗口