相關標簽:

?

?

原理解析：
輸出INPUT:X(2008,1990,2020) 輸出換手率:如果當前流通股本(手)=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 QJ0賦值:成交量(手)/如果最高價=最低價,返回4,否則返回最高價-最低價 JJ賦值:(最高價+最低價+收盤價)/3 輸出特大:如果當前流通股本(手)=0,返回QJ0*(JJ-收盤價和開盤價的較小值),否則返回QJ0*如果最高價=最低價,返回1,否則返回(開盤價和收盤價的較小值-最低價),PRECISION0,COLOR0000FF,線寬為0 輸出大戶:如果當前流通股本(手)=0,返回QJ0*(開盤價和收盤價的較小值-最低價),否則返回QJ0*如果最高價=最低價,返回1,否則返回(JJ-收盤價和開盤價的較小值),PRECISION0,COLORFF00FF,線寬為0 輸出中戶:如果當前流通股本(手)=0,返回QJ0*(最高價-開盤價和收盤價的較大值),否則返回QJ0*如果最高價=最低價,返回1,否則返回(最高價-開盤價和收盤價的較大值),PRECISION0,COLOR00FF00,線寬為0 輸出散戶:如果當前流通股本(手)=0,返回QJ0*(收盤價和開盤價的較大值-JJ),否則返回QJ0*如果最高價=最低價,返回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日指數移動平均 QJ6賦值:DF1>DA1 AND DA1<0 QJ7賦值:"KDJ的K">"KDJ的D" AND "KDJ的D"<30 QJ8賦值:DF1<DA1 QJ9賦值:"KDJ的K"<"KDJ的D" AND "KDJ的K">80 W1賦值:大戶的5日累和+特大的5日累和 W2賦值:散戶的5日累和+中戶的5日累和 量振1賦值:特大>大戶 AND 大戶>散戶 量振2賦值:特大<散戶 AND 大戶<散戶 標振1賦值:QJ6 AND QJ7 標振2賦值:QJ8 AND QJ9 A賦值:W1-W2 A0賦值:如果A>0,返回A,否則返回0 B0賦值:如果A<0,返回A,否則返回0 當滿足條件總1<0時,在0和-總1+總/2位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORFF4400 當滿足條件總1<0時,在0和-總1+總/2位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF8800 當滿足條件總1<0時,在0和-總1+總/2位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFFAA00 當滿足條件總1<0時,在0和-總1+總/2位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFCC00 當滿足條件總1>0時,在0和+總1+總/2位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR000044 當滿足條件總1>0時,在0和+總1+總/2位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR000088 當滿足條件總1>0時,在0和+總1+總/2位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR0000AA 當滿足條件總1>0時,在0和+總1+總/2位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR0000CC 當滿足條件A0時,在0和A0位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR000044 當滿足條件A0時,在0和A0位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR000088 當滿足條件A0時,在0和A0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR0000AA 當滿足條件A0時,在0和A0位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR0000CC 當滿足條件B0時,在0和-B0位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR004400 當滿足條件B0時,在0和-B0位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR008800 當滿足條件B0時,在0和-B0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00AA00 當滿足條件B0時,在0和-B0位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR00CC00 當滿足條件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 當滿足條件BB=WW-28時,在中*-0.2和中*40位置之間畫柱狀線,寬度為500,0不為0則畫空心柱.,COLOR000000 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 輸出周趨勢:A0的5日簡單移動平均,COLORFF00FF,PRECISION0 輸出平滑值:周趨勢的5日加權移動平均,COLOR00FF00,PRECISION0 輸出買:量振1 AND 標振1 AND 周趨勢>平滑值,COLOR0000FF,線寬為0 輸出賣:量振2 AND 標振2 AND 周趨勢<平滑值,COLOR00FF00,線寬為0 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日指數移動平均 當滿足條件價位線上穿0.3時,在AA位置書寫文字,COLOR0000FF 當滿足條件3.7上穿價位線時,在AA位置書寫文字,COLORFF00 VERTLINE(價位線上穿0.3),COLOR0000FF,LINEDASHDOT VERTLINE(3.7上穿價位線),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,''''''''''''''''''='),畫白色 輸出EXPLAIN(1,'昨日增減:'+NUMTOSTR(ZJ[P]*100/10000,2)+' 萬股'),COLORFF8B00 EXPLAIN(1,''''''''''''''''''='),畫白色 輸出EXPLAIN(1,'上周:'+NUMTOSTR(上周[P]*100/10000,2)+' 萬股'),畫紅色 輸出EXPLAIN(1,'增減:'+NUMTOSTR(周增[P]*100/10000,2)+' 萬股'),畫紅色 EXPLAIN(1,''''''''''''''''''='),畫白色 輸出EXPLAIN(1,'上月:'+NUMTOSTR(上月[P]*100/10000,2)+' 萬股'),COLORFF00FF 輸出EXPLAIN(1,'增減:'+NUMTOSTR(月增[P]*100/10000,2)+' 萬股'),COLORFF00FF EXPLAIN(1,''''''''''''''''''='),畫白色 輸出EXPLAIN(1,'上年:'+NUMTOSTR(上年[P]*100/10000,2)+' 萬股'),COLOR00EE00 輸出EXPLAIN(1,'增減:'+NUMTOSTR(年增[P]*100/10000,2)+' 萬股'),COLOR00EE00 EXPLAIN(1,''''''''''''''''''='),畫白色 wday[3]:='星期二';wday[4]:='星期三';wday[5]:='星期四';wday[6]:='星期五';<br /> fy:=YEAR;fm:=MONTH;fd:=DAY;wd:=WEEKDAY;p:=SYSPARAM(1);BB:=BARPOS;<br /> str1:=''+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日 '+wday[wd[p]+1];<br /> SJ:=OPENMINUTES(CURRENTTIME)>1 and OPENMINUTES(CURRENTTIME)<239;<br /> qj0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);jj:=(HIGH+LOW+CLOSE)/3;<br /> 特大:IF(CAPITAL=0,qj0*(jj-MIN(CLOSE,OPEN)),qj0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW))),PRECISION0,COLOR0000FF,LINETHICK;<br /> 大戶:IF(CAPITAL=0,qj0*(MIN(OPEN,CLOSE)-LOW),qj0*IF(HIGH=LOW,1,(jj-MIN(CLOSE,OPEN)))),PRECISION0,COLORFF00FF,LINETHICK;<br /> 中戶:IF(CAPITAL=0,qj0*(HIGH-MAX(OPEN,CLOSE)),qj0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE)))),PRECISION0,COLOR00FF00,LINETHICK;<br /> 散戶:IF(CAPITAL=0,qj0*(MAX(CLOSE,OPEN)-jj),qj0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-jj))),PRECISION0,COLORFF6600,LINETHICK;<br /> 總1:=(特大+大戶)-(中戶+散戶);總:=vol;<br /> ww:=SYSPARAM(2);n1:=SYSPARAM(3);nn:=n1-ww+1;hh:=HHV(總,nn);ll:=LLV(總,nn);<br /> ZG:=hh[n1];ZD:=ll[n1];中0:=ZD+(ZG-ZD)*0.5;中:=中0*0.05;CM:=SUM(總1,25);<br /> ZJ:=REF(總1,1);ZSB:=(總1-REF(總1,1))/總*100;<br /> ZSA:=cm/IF(STKTYPE=0,SUM(VOL,25),IF(STKTYPE=13,SUM(VOL,10),CAPITAL));<br /> cc:=REF(CLOSE,BARSLAST(fm>REF(fm,1)));主力成本:=(cc*(特大+大戶)*100)/(特大+大戶)/100;<br /> DF1:=EMA(CLOSE,12)-EMA(CLOSE,26);DA1:=EMA(DF1,9);<br /> qj6:=df1>da1 and da1<0;qj7:="kdj.k">"kdj.d" and "kdj.d"<30;<br /> qj8:=df1<da1;qj9:="kdj.k"<"kdj.d" and "kdj.k">80;<br /> w1:=SUM(大戶,5)+SUM(特大,5);w2:=SUM(散戶,5)+SUM(中戶,5);<br /> 量振1:=特大>大戶 and 大戶>散戶;量振2:=特大<散戶 and 大戶<散戶;<br /> 標振1:=qj6 and qj7;標振2:=qj8 and qj9;<br /> a:=w1-w2;a0:=IF(a>0,a,0);b0:=IF(a<0,a,0);<br /> STICKLINE(總1<0,0,-總1+總/2,8,0),ColorFF4400;STICKLINE(總1<0,0,-總1+總/2,6,0),ColorFF8800;<br /> STICKLINE(總1<0,0,-總1+總/2,3,0),ColorFFaa00;STICKLINE(總1<0,0,-總1+總/2,1,0),ColorFFcc00;<br /> STICKLINE(總1>0,0,+總1+總/2,8,0),Color000044;STICKLINE(總1>0,0,+總1+總/2,6,0),Color000088;<br /> STICKLINE(總1>0,0,+總1+總/2,3,0),Color0000aa;STICKLINE(總1>0,0,+總1+總/2,1,0),Color0000cc;<br /> STICKLINE(a0,0,a0,8,0),Color000044;STICKLINE(a0,0,a0,5,0),Color000088;<br /> STICKLINE(a0,0,a0,3,0),Color0000aa;STICKLINE(a0,0,a0,1,0),Color0000cc;<br /> STICKLINE(b0,0,-b0,8,0),Color004400;STICKLINE(b0,0,-b0,5,0),Color008800;<br /> STICKLINE(b0,0,-b0,3,0),Color00aa00;STICKLINE(b0,0,-b0,1,0),Color00cc00;<br /> STICKLINE(BB=ww,中*0.2,中*9.2,(散戶[P]/總*200)*1.02,1),COLORWHITE,LINETHICK2;<br /> STICKLINE(BB=ww,中*0.8,中*8.6,散戶[P]/總*200,0),COLORFF8800;<br /> STICKLINE(BB=ww,中*10.2,中*19.2,(中戶[P]/總*200)*1.02,1),COLORWHITE,LINETHICK2;<br /> STICKLINE(BB=ww,中*10.8,中*18.6,中戶[P]/總*200,0),COLORFF00FF;<br /> STICKLINE(BB=ww,中*20.2,中*29.2,(大戶[P]/總*200)*1.02,1),COLORWHITE,LINETHICK2;<br /> STICKLINE(BB=ww,中*20.8,中*28.6,大戶[P]/總*200,0),COLOR0088FF;<br /> STICKLINE(BB=ww,中*30.2,中*39.2,(特大[P]/總*200)*1.02,1),COLORWHITE,LINETHICK2;<br /> STICKLINE(BB=ww,中*30.8,中*38.6,特大[P]/總*200,0),COLOR0000FF;<br /> STICKLINE(BB=ww-28,中*-0.2,中*40,500,0),COLOR000000;<br /> DRAWTEXTEX(CLOSE,1,420,0,str1),ColorffFF00;<br /> DRAWTEXTEX(CLOSE,1,200,0,STKLABEL+' '+STKNAME+''),ColorffFF00;<br /> DRAWTEXT(BB=ww,中*36,'特大:'+NUMTOSTR(特大[P]/總*100,2)+' %'),COLOR00FF00;<br /> DRAWTEXT(BB=ww,中*26,'大戶:'+NUMTOSTR(大戶[P]/總*100,2)+' %'),COLOR00FF00;<br /> DRAWTEXT(BB=ww,中*16,'中戶:'+NUMTOSTR(中戶[P]/總*100,2)+' %'),COLOR00FF00;<br /> DRAWTEXT(BB=ww,中*6,'散戶:'+NUMTOSTR(散戶[P]/總*100,2)+' %'),COLOR00FF00;<br /> 周趨勢:MA(a0,5),ColorFF00FF,PRECISION0;<br /> 平滑值:WMA(周趨勢,5),Color00FF00,PRECISION0;<br /> 買:量振1 and 標振1 and 周趨勢>平滑值,Color0000FF,LINETHICK;<br /> 賣:量振2 and 標振2 and 周趨勢<平滑值,Color00FF00,LINETHICK;<br /> DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);<br /> DEA:=EMA(DIFF,9);<br /> MACD1:=2*(DIFF-DEA);<br /> CS1:=100;<br /> CS2:=HHV(ABS(MACD1),CS1);<br /> CS3:=ABS(100/CS2);<br /> MACD:(MACD1*CS3+100)/2,LINETHICK5,color00FF00;<br /> CS:=MACD;<br /> 日紅:=CS>=REF(CS,1);<br /> 日轉紅:=日紅 AND REF(日紅,1)=0;<br /> PARTLINE(日紅,CS),LINETHICK5,colorred;<br /> AA:=0;<br /> V1:=LLV(LOW,10);<br /> V2:=HHV(HIGH,25);<br /> 價位線:=EMA((CLOSE-V1)/(V2-V1)*4,4);<br /> DRAWTEXT(CROSS(價位線,0.3),AA,'買'),color0000FF;<br /> DRAWTEXT(CROSS(3.7,價位線),AA,'賣'),colorFF00;<br /> VERTLINE(CROSS(價位線,0.3)),color0000FF,LINEDASHDOT;<br /> VERTLINE(CROSS(3.7,價位線)),colorFF00,LINEDASHDOT;DRAWTEXTEX(CLOSE,1,200,130,'主力成本:'+NUMTOSTR(主力成本[p],2)),COLOR00FF00;<br /> DRAWTEXTEX(CLOSE,1,420,130,'主力籌碼占流通:'+NUMTOSTR(IF(ZSA>0,ZSA[P]*100,0),2)+' %'),COLOR00FF00;<br /> DRAWTEXTEX(CLOSE,1,720,130,'較昨日增減:'+NUMTOSTR(ZSB[P],2)+' %'),COLOR00FF00;<br /> DRAWTEXTEX(c and 總1[P]<0,1,720,0,'散戶主買 主力主賣'),COLORffee00;<br /> DRAWTEXTEX(c and 總1[P]>0,1,720,0,'主力主買 散戶主賣'),COLOR0000ff;<br /> 周倉:=SUM(總1,5);月倉:=SUM(總1,25);年倉:=SUM(總1,240);上周:=REF(周倉,1);上月:=REF(月倉,1);<br /> 上年:=REF(年倉,BARSLAST(fy=X));周增:=周倉-上周;月增:=月倉-上月;年增:=年倉-上年;<br /> EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'昨日增減:'+NUMTOSTR(zj[p]*100/10000,2)+' 萬股'),ColorFF8B00;<br /> EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上周:'+NUMTOSTR(上周[p]*100/10000,2)+' 萬股'),COLORred;<br /> EXPLAIN(1,'增減:'+NUMTOSTR(周增[p]*100/10000,2)+' 萬股'),COLORred;<br /> EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上月:'+NUMTOSTR(上月[p]*100/10000,2)+' 萬股'),COLORFF00FF;<br /> EXPLAIN(1,'增減:'+NUMTOSTR(月增[p]*100/10000,2)+' 萬股'),COLORFF00FF;<br /> EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上年:'+NUMTOSTR(上年[p]*100/10000,2)+' 萬股'),COLOR00EE00;<br /> EXPLAIN(1,'增減:'+NUMTOSTR(年增[p]*100/10000,2)+' 萬股'),COLOR00EE00;<br /> EXPLAIN(1,'==================================='),colorwhite;

?

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

?