超級布林藝術美主圖指標公式

作者：飛狐來源：cxh99.com 發布時間：2021年04月11日

相關標簽:

超級布林
本指標用來分析主力做多或做空的心理狀態！

原理解析：

輸出INPUT:N(26),N1(2),N2(31)

填充背景

WYY1賦值:星期,線寬為0

WWJ賦值:' 星期'

WWJJ賦值:如果WYY1=5,返回WWJ+'五',否則返回如果WYY1=4,返回WWJ+'四',否則返回如果WYY1=3,返回WWJ+'三',否則返回如果WYY1=2,返回WWJ+'二',否則返回如果WYY1=1,返回WWJ+'1',否則返回WWJ

WYY2賦值:LMONTH

WYY3賦值:LDAY

WWW賦值:如果數據位置狀態=2,返回'農歷'+NUMTOSTR(WYY2,0)+'月'+NUMTOSTR(WYY3,0)+'日',否則返回''

WWH賦值:如果數據位置狀態=2,返回NUMTOSTR(日期+19000000,0),否則返回''

DRAWTEXTEX(1,1,120 ,30 ,' '+WWH+WWJJ+WWW),線寬為3,COLORFFFF80

A0賦值:收盤價的有效數據周期數

A3賦值:SYSPARAM(3)

A2賦值:SYSPARAM(2)

A4賦值:SYSPARAM(4)

A5賦值:SYSPARAM(5)

NN0賦值:A3-A2

NN賦值:A0-A2

HH1賦值:(A4-A5)/8

HH2賦值:HH1/4

LL1賦值:NN0日內最低價的最低值

LL2賦值:LL1[A3]

Y0賦值:A0>=A2

VV0賦值:如果Y0=1ANDSYSPARAM(1)>=A0,返回成交量(手),否則返回0

C1賦值:如果收盤價位于A4-0*HH1和A4-1*HH1之間,返回VV0,否則返回0

C2賦值:如果收盤價位于A4-1*HH1和A4-2*HH1之間,返回VV0,否則返回0

C3賦值:如果收盤價位于A4-2*HH1和A4-3*HH1之間,返回VV0,否則返回0

C4賦值:如果收盤價位于A4-3*HH1和A4-4*HH1之間,返回VV0,否則返回0

C5賦值:如果收盤價位于A4-4*HH1和A4-5*HH1之間,返回VV0,否則返回0

C6賦值:如果收盤價位于A4-5*HH1和A4-6*HH1之間,返回VV0,否則返回0

C7賦值:如果收盤價位于A4-6*HH1和A4-7*HH1之間,返回VV0,否則返回0

C8賦值:如果收盤價位于A4-7*HH1和A4-8*HH1之間,返回VV0,否則返回0

C9賦值:如果收盤價位于A4-8*HH1和A4-9*HH1之間,返回VV0,否則返回0

C10賦值:如果收盤價位于A4-9*HH1和A4-10*HH1之間,返回VV0,否則返回0

V1賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C1的NN0日累和,否則返回0,2)),線寬為0

V2賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C2的NN0日累和,否則返回0,2))

V3賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C3的NN0日累和,否則返回0,2))

V4賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C4的NN0日累和,否則返回0,2))

V5賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C5的NN0日累和,否則返回0,2))

V6賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C6的NN0日累和,否則返回0,2))

V7賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C7的NN0日累和,否則返回0,2))

V8賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C8的NN0日累和,否則返回0,2))

V9賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C9的NN0日累和,否則返回0,2))

V10賦值:STRTONUM(NUMTOSTR(如果是否最后一個周期,返回C10的NN0日累和,否則返回0,2))

AV0賦值:V1和V2和V3和V4和V5和V6和V7和V8和V9和V10的較大值的較大值的較大值的較大值的較大值的較大值的較大值的較大值的較大值

X1賦值:V1/AV0>=NN/NN0 AND NN>=0

X2賦值:V2/AV0>=NN/NN0 AND NN>=0

X3賦值:V3/AV0>=NN/NN0 AND NN>=0

X4賦值:V4/AV0>=NN/NN0 AND NN>=0

X5賦值:V5/AV0>=NN/NN0 AND NN>=0

X6賦值:V6/AV0>=NN/NN0 AND NN>=0

X7賦值:V7/AV0>=NN/NN0 AND NN>=0

X8賦值:V8/AV0>=NN/NN0 AND NN>=0

FILLRGN(V1/AV0>=NN/NN0 AND NN>=0,A4-0*HH1,A4-1*HH1+HH1*0.5),COLOR003CB7

FILLRGN(V2/AV0>=NN/NN0 AND NN>=0,A4-1*HH1,A4-2*HH1+HH1*0.5),COLOR808000

FILLRGN(V3/AV0>=NN/NN0 AND NN>=0,A4-2*HH1,A4-3*HH1+HH1*0.5),COLOR8B4D43

FILLRGN(V4/AV0>=NN/NN0 AND NN>=0,A4-3*HH1,A4-4*HH1+HH1*0.5),COLOR1B3D70

FILLRGN(V5/AV0>=NN/NN0 AND NN>=0,A4-4*HH1,A4-5*HH1+HH1*0.5),COLOR00AEAE

FILLRGN(V6/AV0>=NN/NN0 AND NN>=0,A4-5*HH1,A4-6*HH1+HH1*0.5),COLOR666666

FILLRGN(V7/AV0>=NN/NN0 AND NN>=0,A4-6*HH1,A4-7*HH1+HH1*0.5),COLOR666666

FILLRGN(V8/AV0>=NN/NN0 AND NN>=0,A4-7*HH1,A4-8*HH1+HH1*0.5),COLOR666666

當滿足條件6日后的X1<1日前的X1ANDV1>0的10日過濾時,在A4位置書寫數字,COLOR00FF00

當滿足條件6日后的X2<1日前的X2ANDV2>0的10日過濾時,在(A4-1*HH1)位置書寫數字,COLOR00FF00

當滿足條件6日后的X3<1日前的X3ANDV3>0的10日過濾時,在(A4-2.7*3*HH2)位置書寫數字,COLOR00FF00

當滿足條件6日后的X4<1日前的X4ANDV4>0的10日過濾時,在(A4-12*HH2)位置書寫數字,COLOR00FF00

當滿足條件6日后的X5<1日前的X5ANDV5>0的10日過濾時,在(A4-16*HH2)位置書寫數字,COLOR00FF00

當滿足條件6日后的X6<1日前的X6ANDV6>0的10日過濾時,在(A4-20*HH2)位置書寫數字,COLOR00FF00

當滿足條件6日后的X7<1日前的X7ANDV7>0的10日過濾時,在(A4-24*HH2)位置書寫數字,COLOR00FF00

當滿足條件5日后的X8<1日前的X8ANDV8>0的10日過濾時,在LL2+1*4*HH2位置書寫數字,COLOR00FF00

HH賦值:市盈(動)

DD賦值:總股本(股)

SS賦值:流通股本(股)

FF賦值:每股公積金

GG賦值:每股收益(全年折算)

ZZ賦值:每股股息(港股,美股)

JJ賦值:流通市值

MM賦值:JJ/SS

TH賦值:市盈(動)

換手率賦值:100*成交量(手)/當前流通股本(手),COLORFFFFFF

RH賦值:最高價-最低價

R賦值:振幅*100

輸出輸出DRAWTEXTEX(1,1,20,840,'當日振幅:'+NUMTOSTR(R,2)+'% '+NUMTOSTR(RH,2)+'元 '+'當前換手率:'+NUMTOSTR(換手率,2)+'%'),COLORFFFFFF

輸出VAR100賦值:'所屬板塊:'

VAR100賦值:VAR100+' 電力'

VAR100賦值:VAR100+' 電腦'

VAR100賦值:VAR100+' 電器'

VAR100賦值:VAR100+' 電子信息'

VAR100賦值:VAR100+' 房地產'

VAR100賦值:VAR100+' 紡織服裝'

VAR100賦值:VAR100+' 鋼鐵'

VAR100賦值:VAR100+' 工程建筑'

VAR100賦值:VAR100+' 供水供氣'

VAR100賦值:VAR100+' 化工'

VAR100賦值:VAR100+' 化纖'

VAR100賦值:VAR100+' 機械'

VAR100賦值:VAR100+' 建材'

VAR100賦值:VAR100+' 交通工具'

VAR100賦值:VAR100+' 交通設施'

VAR100賦值:VAR100+' 教育傳媒'

VAR100賦值:VAR100+' 金融'

VAR100賦值:VAR100+' 旅游酒店'

VAR100賦值:VAR100+' 煤炭石油'

VAR100賦值:VAR100+' 釀酒食品'

VAR100賦值:VAR100+' 農林牧漁'

VAR100賦值:VAR100+' 其他行業'

VAR100賦值:VAR100+' 汽車'

VAR100賦值:VAR100+' 汽配'

VAR100賦值:VAR100+' 商業連鎖'

VAR100賦值:VAR100+' 石化'

VAR100賦值:VAR100+' 通信'

VAR100賦值:VAR100+' 外貿'

VAR100賦值:VAR100+' 醫藥'

VAR100賦值:VAR100+' 儀電儀表'

VAR100賦值:VAR100+' 有色金屬'

VAR100賦值:VAR100+' 運輸物流'

VAR100賦值:VAR100+' 造紙印刷'

VAR100賦值:VAR100+' 安徽'

VAR100賦值:VAR100+' 北京'

VAR100賦值:VAR100+' 福建'

VAR100賦值:VAR100+' 甘肅'

VAR100賦值:VAR100+' 廣東'

VAR100賦值:VAR100+' 廣西'

VAR100賦值:VAR100+' 貴州'

VAR100賦值:VAR100+' 海南'

VAR100賦值:VAR100+' 河北'

VAR100賦值:VAR100+' 河南'

VAR100賦值:VAR100+' 黑龍江'

VAR100賦值:VAR100+' 湖北'

VAR100賦值:VAR100+' 湖南'

VAR100賦值:VAR100+' 吉林'

VAR100賦值:VAR100+' 江蘇'

VAR100賦值:VAR100+' 江西'

VAR100賦值:VAR100+' 遼寧'

VAR100賦值:VAR100+' 內蒙古'

VAR100賦值:VAR100+' 寧夏'

VAR100賦值:VAR100+' 青海'

VAR100賦值:VAR100+' 山東'

VAR100賦值:VAR100+' 山西'

VAR100賦值:VAR100+' 陜西'

VAR100賦值:VAR100+' 上海'

VAR100賦值:VAR100+' 深圳'

VAR100賦值:VAR100+' 四川'

VAR100賦值:VAR100+' 天津'

VAR100賦值:VAR100+' ***'

VAR100賦值:VAR100+' 新疆'

VAR100賦值:VAR100+' 云南'

VAR100賦值:VAR100+' 浙江'

VAR100賦值:VAR100+' 重慶'

VAR100賦值:VAR100+' 3G'

VAR100賦值:VAR100+' H股'

VAR100賦值:VAR100+' QFII持股'

VAR100賦值:VAR100+' ST'

VAR100賦值:VAR100+' 奧運'

VAR100賦值:VAR100+' 創投'

VAR100賦值:VAR100+' 次新股'

VAR100賦值:VAR100+' 大盤'

VAR100賦值:VAR100+' 股權改革'

VAR100賦值:VAR100+' 股權投資'

DRAWTEXTEX(1,1,20,960,VAR100),COLOR00FFFF

輸出輸出輸出輸出DRAWTEXTEX(1,1,20,900,'總股本:'+NUMTOSTR(DD,0)+'萬股' +' 流通A股:'+NUMTOSTR(SS,0)+'萬股'+' 市盈率:'+NUMTOSTR(HH,2)+'%'+'每股收益:'+NUMTOSTR(GG,3)),COLORBBFFFF

輸出天:收盤價的N日簡單移動平均+3*收盤價的N日估算標準差,COLOR66BBFF

輸出地:收盤價的N日簡單移動平均-3*收盤價的N日估算標準差,畫綠色

A賦值:(收盤價+收盤價的N1日線性回歸預測值)/2

輸出心:A的N2日線性回歸預測值的10日線性回歸預測值,CIRCLEDOT,畫白色

輸出糡:如果A<心,返回A,否則返回心,線寬為2,COLORFF00FF

輸出蘭:如果A>心,返回A,否則返回心,線寬為2,COLORFF8800

VAR9Q賦值:收盤價= 4日內收盤價的最高值AND (1日前的收盤價>=2日前的收盤價 OR 1日前的收盤價>=3日前的收盤價) OR 1日前的收盤價=4日內收盤價的最高值 AND 收盤價>=2日前的收盤價 OR 2日前的收盤價=4日內收盤價的最高值 AND 3日前的收盤價=4日內收盤價的最低值 AND 收盤價>=1日前的收盤價 OR 3日前的收盤價=4日內收盤價的最高值 AND 收盤價>=1日前的收盤價 AND 收盤價>=2日前的收盤價

VARAQ賦值:收盤價=4日內收盤價的最高值 AND 1日前的收盤價=4日內收盤價的最低值

VARBQ賦值:收盤價=4日內收盤價的最低值 AND (1日前的收盤價<2日前的收盤價 OR 1日前的收盤價<3日前的收盤價) OR 1日前的收盤價=4日內收盤價的最低值 AND 收盤價<2日前的收盤價 OR 2日前的收盤價=4日內收盤價的最低值 AND 1日前的收盤價不等于4日內收盤價的最高值 AND 收盤價<1日前的收盤價 OR 3日前的收盤價=4日內收盤價的最低值 AND 收盤價<1日前的收盤價 AND 收盤價<2日前的收盤價

VARCQ賦值:1日前的收盤價=4日內收盤價的最低值 AND 收盤價>=2日前的收盤價 OR 2日前的收盤價=4日內收盤價的最低值 AND 1日前的收盤價<=3日前的收盤價 AND 2日前的收盤價<4日前的收盤價 AND 收盤價>=1日前的收盤價

VARDQ賦值:1日前的收盤價=4日內收盤價的最高值 AND 收盤價<2日前的收盤價 OR (2日前的收盤價=4日內收盤價的最高值 AND 1日前的收盤價>3日前的收盤價 OR 3日前的收盤價=4日內收盤價的最高值 AND 1日前的收盤價>2日前的收盤價) AND 2日前的收盤價>=4日前的收盤價 AND 收盤價<1日前的收盤價

當滿足條件收陽線時,在開盤價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR0000FF

當滿足條件收陽線時,在收盤價和最高價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR0000FF

當滿足條件開盤價>=收盤價時,在收盤價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR00FF00

當滿足條件開盤價>=收盤價時,在開盤價和最高價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR00FF00

當滿足條件開盤價>=收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLORFF7700

當滿足條件開盤價>=收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF9900

當滿足條件開盤價>=收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFFBB00

當滿足條件開盤價>=收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFFCC00

當滿足條件開盤價>=收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFFDD00

當滿足條件開盤價>=收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFFEE00

當滿足條件開盤價>=收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFF00

當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱. ,COLOR000055

當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱. ,COLOR000066

當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱. ,COLOR000077

當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱. ,COLOR000099

當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱. ,COLOR0000BB

當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱. ,COLOR0000DD

當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱. ,COLOR0000FF

紅賦值:VAR9Q

當滿足條件VAR9Q時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR000055

當滿足條件VAR9Q時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR000066

當滿足條件VAR9Q時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR000077

當滿足條件VAR9Q時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR000099

當滿足條件VAR9Q時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR0000BB

當滿足條件VAR9Q時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR0000DD

當滿足條件VAR9Q時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR0000FF

粉賦值:VARAQ

當滿足條件VARAQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLORFF11FF

當滿足條件VARAQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF33FF

當滿足條件VARAQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFF55FF

當滿足條件VARAQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFF77FF

當滿足條件VARAQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFF99FF

當滿足條件VARAQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFFBBFF

當滿足條件VARAQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFDDFF

灰賦值:VARBQ

當滿足條件VARBQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR333333

當滿足條件VARBQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR555555

當滿足條件VARBQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR777777

當滿足條件VARBQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR999999

當滿足條件VARBQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORBBBBBB

當滿足條件VARBQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORDDDDDD

當滿足條件VARBQ時,在收盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFFFF

綠賦值:VARCQ

當滿足條件VARCQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR003300

當滿足條件VARCQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR005500

當滿足條件VARCQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR007700

當滿足條件VARCQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR009900

當滿足條件VARCQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00BB00

當滿足條件VARCQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00DD00

當滿足條件VARCQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR00FF00

藍賦值:VARDQ

當滿足條件VARDQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLORFF1100

當滿足條件VARDQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF3300

當滿足條件VARDQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFF5500

當滿足條件VARDQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFF7700

當滿足條件VARDQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFF9900

當滿足條件VARDQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFFBB00

當滿足條件VARDQ時,在開盤價和(開盤價+收盤價)/2位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFDD00

源碼：

{參數：N=26,N1=2,N2=31}INPUT:N(26),N1(2),N2(31);
DRAWGBK(1,colorrgb(0,0,100),colorrgb(0,0,0),1);
wyy1:=WEEKDAY,LINETHICK0;
wWj:=' 星期';
wWjj:=IF(wyy1=5 ,wWj+'五',IF(wyy1=4 ,wWj+'四',
IF(wyy1=3 ,wWj+'三',IF(wyy1=2 ,wWj+'二',IF(wyy1=1 ,wWj+'1',wWj)))));
wyy2:=LMONTH;
wyy3:=LDAY;
wWw:=IF( BARSTATUS=2 ,' 農歷 '+NUMTOSTR(wyy2,0)+'月 '+NUMTOSTR(wyy3,0)+'日',' ');
wWh:=IF( BARSTATUS=2 ,NUMTOSTR(date+19000000,0),' ' );
DRAWTEXTEX(1,1,120 ,30 ,' '+wWh+wWjj+wWw),LINETHICK3,ColorFFFF80;
a0:=BARSCOUNT(c);
a3:=SYSPARAM(3);
a2:=SYSPARAM(2);
a4:=SYSPARAM(4);
a5:=SYSPARAM(5);
nn0:=a3-a2;nn:=a0-a2;hh1:=(a4-a5)/8;
hh2:=hh1/4;
ll1:=llv(l,nn0);ll2:=ll1[a3];
y0:=a0>=a2;vv0:=if(y0=1 and SYSPARAM(1)>=a0,v,0);
c1:=if(BETWEEN(c,a4-0*hh1,a4-1*hh1),vv0,0);
c2:=if(BETWEEN(c,a4-1*hh1,a4-2*hh1),vv0,0);
c3:=if(BETWEEN(c,a4-2*hh1,a4-3*hh1),vv0,0);
c4:=if(BETWEEN(c,a4-3*hh1,a4-4*hh1),vv0,0);
c5:=if(BETWEEN(c,a4-4*hh1,a4-5*hh1),vv0,0);
c6:=if(BETWEEN(c,a4-5*hh1,a4-6*hh1),vv0,0);
c7:=if(BETWEEN(c,a4-6*hh1,a4-7*hh1),vv0,0);
c8:=if(BETWEEN(c,a4-7*hh1,a4-8*hh1),vv0,0);
c9:=if(BETWEEN(c,a4-8*hh1,a4-9*hh1),vv0,0);
c10:=if(BETWEEN(c,a4-9*hh1,a4-10*hh1),vv0,0);
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,nn0),0),2)),LINETHICK;
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,nn0),0),2));
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,nn0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,nn0),0),2));
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,nn0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,nn0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,nn0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,nn0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,nn0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,nn0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
x1:=v1/av0>=nn/nn0 and nn>=0;
x2:=v2/av0>=nn/nn0 and nn>=0;
x3:=v3/av0>=nn/nn0 and nn>=0;
x4:=v4/av0>=nn/nn0 and nn>=0;
x5:=v5/av0>=nn/nn0 and nn>=0;
x6:=v6/av0>=nn/nn0 and nn>=0;
x7:=v7/av0>=nn/nn0 and nn>=0;
x8:=v8/av0>=nn/nn0 and nn>=0;
FILLRGN(v1/av0>=nn/nn0 and nn>=0,a4-0*hh1,a4-1*hh1+hh1*0.5),Color003CB7;
FILLRGN(v2/av0>=nn/nn0 and nn>=0,a4-1*hh1,a4-2*hh1+hh1*0.5),Color808000;
FILLRGN(v3/av0>=nn/nn0 and nn>=0,a4-2*hh1,a4-3*hh1+hh1*0.5),Color8B4D43;
FILLRGN(v4/av0>=nn/nn0 and nn>=0,a4-3*hh1,a4-4*hh1+hh1*0.5),Color1B3D70;
FILLRGN(v5/av0>=nn/nn0 and nn>=0,a4-4*hh1,a4-5*hh1+hh1*0.5),Color00AEAE;
FILLRGN(v6/av0>=nn/nn0 and nn>=0,a4-5*hh1,a4-6*hh1+hh1*0.5),color666666;
FILLRGN(v7/av0>=nn/nn0 and nn>=0,a4-6*hh1,a4-7*hh1+hh1*0.5),color666666;
FILLRGN(v8/av0>=nn/nn0 and nn>=0,a4-7*hh1,a4-8*hh1+hh1*0.5),color666666;
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*hh1),a4-1*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*hh2),a4-2*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*hh2),a4-3*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*hh2),a4-4*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*hh2),a4-5*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*hh2),a4-6*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and v8>0,5),10),ll2+1*4*hh2,a4-7*hh1,2),COLOR00FF00;
HH:=DYNAINFO(39);
DD:=FINANCE( 1);
SS:=FINANCE( 7);
FF:=FINANCE(18);
GG:=FINANCE(33);
zz:=FINANCE(53);
JJ:=FINANCE(40);
MM:=JJ/SS;
TH:=DYNAINFO(39);
換手率:=100*v/capital,colorfffFff;
RH:=H-L;
R:=DYNAINFO(13)*100;
DRAWTEXTEX(1,1,20,840,'當日振幅:'+NUMTOSTR(R,2)+'% '+NUMTOSTR(RH,2)+'元 '+'當前換手率:'+NUMTOSTR(換手率,2)+'%'),ColorFFFFFF;
var100:='所屬板塊:';
if inblock('電力')=1 then var100:=var100+' 電力';
if inblock('電腦')=1 then var100:=var100+' 電腦';
if inblock('電器')=1 then var100:=var100+' 電器';
if inblock('電子信息')=1 then var100:=var100+' 電子信息';
if inblock('房地產')=1 then var100:=var100+' 房地產';
if inblock('紡織服裝')=1 then var100:=var100+' 紡織服裝';
if inblock('鋼鐵')=1 then var100:=var100+' 鋼鐵';
if inblock('工程建筑')=1 then var100:=var100+' 工程建筑';
if inblock('供水供氣')=1 then var100:=var100+' 供水供氣';
if inblock('化工')=1 then var100:=var100+' 化工';
if inblock('化纖')=1 then var100:=var100+' 化纖';
if inblock('機械')=1 then var100:=var100+' 機械';
if inblock('建材')=1 then var100:=var100+' 建材';
if inblock('交通工具')=1 then var100:=var100+' 交通工具';
if inblock('交通設施')=1 then var100:=var100+' 交通設施';
if inblock('教育傳媒')=1 then var100:=var100+' 教育傳媒';
if inblock('金融')=1 then var100:=var100+' 金融';
if inblock('旅游酒店')=1 then var100:=var100+' 旅游酒店';
if inblock('煤炭石油')=1 then var100:=var100+' 煤炭石油';
if inblock('釀酒食品')=1 then var100:=var100+' 釀酒食品';
if inblock('農林牧漁')=1 then var100:=var100+' 農林牧漁';
if inblock('其他行業')=1 then var100:=var100+' 其他行業';
if inblock('汽車')=1 then var100:=var100+' 汽車';
if inblock('汽配')=1 then var100:=var100+' 汽配';
if inblock('商業連鎖')=1 then var100:=var100+' 商業連鎖';
if inblock('石化')=1 then var100:=var100+' 石化';
if inblock('通信')=1 then var100:=var100+' 通信';
if inblock('外貿')=1 then var100:=var100+' 外貿';
if inblock('醫藥')=1 then var100:=var100+' 醫藥';
if inblock('儀電儀表')=1 then var100:=var100+' 儀電儀表';
if inblock('有色金屬')=1 then var100:=var100+' 有色金屬';
if inblock('運輸物流')=1 then var100:=var100+' 運輸物流';
if inblock('造紙印刷')=1 then var100:=var100+' 造紙印刷';
if inblock('安徽')=1 then var100:=var100+' 安徽';
if inblock('北京')=1 then var100:=var100+' 北京';
if inblock('福建')=1 then var100:=var100+' 福建';
if inblock('甘肅')=1 then var100:=var100+' 甘肅';
if inblock('廣東')=1 then var100:=var100+' 廣東';
if inblock('廣西')=1 then var100:=var100+' 廣西';
if inblock('貴州')=1 then var100:=var100+' 貴州';
if inblock('海南')=1 then var100:=var100+' 海南';
if inblock('河北')=1 then var100:=var100+' 河北';
if inblock('河南')=1 then var100:=var100+' 河南';
if inblock('黑龍江')=1 then var100:=var100+' 黑龍江';
if inblock('湖北')=1 then var100:=var100+' 湖北';
if inblock('湖南')=1 then var100:=var100+' 湖南';
if inblock('吉林')=1 then var100:=var100+' 吉林';
if inblock('江蘇')=1 then var100:=var100+' 江蘇';
if inblock('江西')=1 then var100:=var100+' 江西';
if inblock('遼寧')=1 then var100:=var100+' 遼寧';
if inblock('內蒙古')=1 then var100:=var100+' 內蒙古';
if inblock('寧夏')=1 then var100:=var100+' 寧夏';
if inblock('青海')=1 then var100:=var100+' 青海';
if inblock('山東')=1 then var100:=var100+' 山東';
if inblock('山西')=1 then var100:=var100+' 山西';
if inblock('陜西')=1 then var100:=var100+' 陜西';
if inblock('上海')=1 then var100:=var100+' 上海';
if inblock('深圳')=1 then var100:=var100+' 深圳';
if inblock('四川')=1 then var100:=var100+' 四川';
if inblock('天津')=1 then var100:=var100+' 天津';
if inblock('***')=1 then var100:=var100+' ***';
if inblock('新疆')=1 then var100:=var100+' 新疆';
if inblock('云南')=1 then var100:=var100+' 云南';
if inblock('浙江')=1 then var100:=var100+' 浙江';
if inblock('重慶')=1 then var100:=var100+' 重慶';
if inblock('3G')=1 then var100:=var100+' 3G';
if inblock('H股')=1 then var100:=var100+' H股';
if inblock('QFII持股')=1 then var100:=var100+' QFII持股';
if inblock('ST')=1 then var100:=var100+' ST';
if inblock('奧運')=1 then var100:=var100+' 奧運';
if inblock('創投')=1 then var100:=var100+' 創投';
if inblock('次新股')=1 then var100:=var100+' 次新股';
if inblock('大盤')=1 then var100:=var100+' 大盤';
if inblock('股權改革')=1 then var100:=var100+' 股權改革';
if inblock('股權投資')=1 then var100:=var100+' 股權投資';
DRAWTEXTEX(1,1,20,960,var100),color00ffff;
DRAWTEXTEX(1,1,20,900,'總股本:'+NUMTOSTR(DD,0)+'萬股' +' 流通A股:'+NUMTOSTR(SS,0)+'萬股'+' 市盈率:'+NUMTOSTR(HH,2)+'%'+'每股收益:'+NUMTOSTR(GG,3)),COLORbbffff;
天:MA(C,n)+3*STD(C,n),COLOR66bbff;
地:MA(C,n)-3*STD(C,n),COLORGREEN;
a:=(c+FORCAST(c,n1))/2;
心:FORCAST(FORCAST(a,n2),10),CIRCLEDOT,COLORWHITE;
紅:IF(a<心,a,心),LINETHICK2,COLORff00ff;
蘭:IF(a>心,a,心),LINETHICK2,COLORff8800;
var9Q:=c= hhv(c,4)and (ref(c,1)>=ref(c,2) or ref(c,1)>=ref(c,3)) or ref(c,1)=hhv(c,4) and close>=ref(c,2) or ref(c,2)=hhv(c,4) and ref(c,3)=llv(c,4) and c>=ref(c,1) or ref(c,3)=hhv(c,4) and c>=ref(c,1) and c>=ref(c,2);
varaQ:=c=hhv(c,4) and ref(c,1)=llv(c,4);
varbQ:=c=llv(c,4) and (ref(c,1)<ref(c,2) or ref(c,1)<ref(c,3)) or ref(c,1)=llv(c,4) and c<ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<>hhv(c,4) and c<ref(c,1) or ref(c,3)=llv(c,4) and c<ref(c,1) and c<ref(c,2);
varcQ:=ref(c,1)=llv(c,4) and c>=ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<=ref(c,3) and ref(c,2)<ref(c,4) and c>=ref(c,1);
vardQ:=ref(c,1)=hhv(c,4) and c<ref(c,2) or (ref(c,2)=hhv(c,4) and ref(c,1)>ref(c,3) or ref(c,3)=hhv(c,4) and ref(c,1)>ref(c,2)) and ref(c,2)>=ref(c,4) and c<ref(c,1);
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR0000FF;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLORff7700;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLORff9900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLORffbb00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLORffcc00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLORffdd00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLORffee00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLORffFF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000055;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR000066;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR000077;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR000099;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000bb;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000dd;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000ff;
紅:=var9Q;
stickline(var9Q,c,(o+c)/2,7,0),color000055;
stickline(var9Q,c,(o+c)/2,6,0),color000066;
stickline(var9Q,c,(o+c)/2,5,0),color000077;
stickline(var9Q,c,(o+c)/2,4,0),color000099;
stickline(var9Q,c,(o+c)/2,3,0),color0000bb;
stickline(var9Q,c,(o+c)/2,2,0),color0000dd;
stickline(var9Q,c,(o+c)/2,1,0),color0000ff;
粉:=varaQ;
stickline(varaQ,c,(o+c)/2,7,0),colorff11ff;
stickline(varaQ,c,(o+c)/2,6,0),colorff33ff;
stickline(varaQ,c,(o+c)/2,5,0),colorff55ff;
stickline(varaQ,c,(o+c)/2,4,0),colorff77ff;
stickline(varaQ,c,(o+c)/2,3,0),colorff99ff;
stickline(varaQ,c,(o+c)/2,2,0),colorffbbff;
stickline(varaQ,c,(o+c)/2,1,0),colorffddff;
灰:=varbQ;
stickline(varbQ,c,(o+c)/2,7,0),color333333;
stickline(varbQ,c,(o+c)/2,6,0),color555555;
stickline(varbQ,c,(o+c)/2,5,0),color777777;
stickline(varbQ,c,(o+c)/2,4,0),color999999;
stickline(varbQ,c,(o+c)/2,3,0),colorbbbbbb;
stickline(varbQ,c,(o+c)/2,2,0),colordddddd;
stickline(varbQ,c,(o+c)/2,1,0),colorffffff;
綠:=varcQ;
stickline(varcQ,o,(o+c)/2,7,0),color003300;
stickline(varcQ,o,(o+c)/2,6,0),color005500;
stickline(varcQ,o,(o+c)/2,5,0),color007700;
stickline(varcQ,o,(o+c)/2,4,0),color009900;
stickline(varcQ,o,(o+c)/2,3,0),color00bb00;
stickline(varcQ,o,(o+c)/2,2,0),color00dd00;
stickline(varcQ,o,(o+c)/2,1,0),color00ff00;
藍:=vardQ;
stickline(vardQ,o,(o+c)/2,7,0),colorff1100;
stickline(vardQ,o,(o+c)/2,6,0),colorff3300;
stickline(vardQ,o,(o+c)/2,5,0),colorff5500;
stickline(vardQ,o,(o+c)/2,4,0),colorff7700;
stickline(vardQ,o,(o+c)/2,3,0),colorff9900;
stickline(vardQ,o,(o+c)/2,2,0),colorffbb00;
stickline(vardQ,o,(o+c)/2,1,0),colorffdd00;

{程序化交易 www.tumamayizhan.com }

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