送感動生命

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

相關標簽:

源碼：
K1:=PEAK(4,N,1); K2:=TROUGH(4,N,1); C1:=CROSS(CLOSE,K1); C2:=CROSS(K2,CLOSE); K3:=BARSLAST(C1); K4:=BARSLAST(C2); PARTLINE(K3<K4,K2),LINETHICK2,colorFFFF; PARTLINE(K3>K4,K1),LINETHICK2,colorFFFFFF; K0:=K3<K4; STICKLINE(K0,HIGH,LOW,0.1,1),colorFF; STICKLINE(K0,CLOSE,OPEN,8,1),colorFF; STICKLINE(NOT(K0),HIGH,LOW,0.1,0),colorFF00; STICKLINE(NOT(K0),CLOSE,OPEN,8,0),colorFF00; DRAWICON(K2>REF(K2,1) AND K3<K4,K2*1.007,10); DRAWICON(C1 AND SUM(C1,K4)=1,K1*1.01,1); DRAWICON(C2 AND SUM(C2,K3)=1,K2,2); 力:=CLOSE*2.5/100+CLOSE; HD:=CLOSE-CLOSE*2.5/100; VG:=MA(REF(HIGH,1)/REF(CLOSE,2),27)*REF(CLOSE,1); VD:=MA(REF(LOW,1)/REF(CLOSE,2),27)*REF(CLOSE,1); A5:=VD[SYSPARAM(1)]; RA5:=VD[SYSPARAM(1)-1]; A10:=VG[SYSPARAM(1)]; RA10:=VG[SYSPARAM(1)-1]; JT5:=IF(A5>RA5,'↑','↓'); JT10:=IF(A10>RA10,'↑','↓'); 阻力位:=IF(CLOSE>200,CLOSE*1.01,CLOSE*1.07); 阻力位1:=IF(CLOSE<10,CLOSE*1.05,阻力位); 止損位:=IF(CLOSE>200,CLOSE*0.99,CLOSE*0.93); 止損位1:=IF(CLOSE<10,CLOSE*0.95,止損位); AA1:=STRFIND(STKNAME,'ST',0)=0; K0:=IF(AA1,10,20); A1:=REF(CLOSE,1)/K0+REF(CLOSE,1); A2:=-REF(CLOSE,1)/K0-REF(CLOSE,1); SZ1:='阻力位：'+NUMTOSTR(阻力位,2)+'元'; SZ2:=' 止損位：'+NUMTOSTR(止損位,2)+'元'; SZ3:='開測高：'+NUMTOSTR(VG[SYSPARAM(1)],2)+JT10; SZ4:=' 開測低：'+NUMTOSTR(VD[SYSPARAM(1)],2)+JT5; SZ5:='漲停價：'+NUMTOSTR(A1,2)+'元'; SZ6:=' 跌停價：'+NUMTOSTR(A2,2)+'元'; SZ7:='買入價：'+NUMTOSTR(HD,2)+'元'; SZ8:=' 賣出價：'+NUMTOSTR(TR,2)+'元'; DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ1),ALIGN5,PXUP50,colorFF; DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ2),ALIGN5,PXUP50,colorFF00; DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ3),ALIGN5,PXUP25,colorFF; DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ4),ALIGN5,PXUP25,colorFF00; DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ5),ALIGN5,PXUP75,colorFF; DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ6),ALIGN5,PXUP75,colorFF00; DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ7),ALIGN5,PXUP100,colorFF; DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ8),ALIGN5,PXUP100,colorFF00; F:=COST(5); J:=COST(95); M:=COST(15); B:=COST(85); F1:=(J-F)/(F+J)*100; M1:=(B-M)/(B+M)*100; 成本集中度90:=F1; 成本集中度70:=M1; 獲利盤:=WINNER(CLOSE)*100; 套牢盤:=100*(1-WINNER(CLOSE)); 日換手率:=VOL/CAPITAL*100; 浮籌籌碼:=(WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))/WINNER(HHV(HIGH,0))*100; DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'獲利盤:'+NUMTOSTR(獲利盤,2)+' \n'+'套牢盤:'+NUMTOSTR(套牢盤,2)+' \n'+'浮籌籌碼:'+NUMTOSTR(浮籌籌碼,2)+' \n'+'成本集中度70:'+NUMTOSTR(成本集中度70,2)+' \n'+'成本集中度90:'+NUMTOSTR(成本集中度90,2)+' \n'+'市場平均成本:'+NUMTOSTR(COST(50),2)+' \n'+'主力平均成本:'+NUMTOSTR(COST(4),2)+' \n'+'控盤平均成本:'+NUMTOSTR(COST(30),2)+' \n'+'拉升平均成本:'+NUMTOSTR(COST(75),2)+' \n'+'頂部平均成本:'+NUMTOSTR(COST(95),2)+' \n'+'底部平均成本:'+NUMTOSTR(COST(0.05),2)+' \n'),ALIGN4,colorCCFFCC; X:=OPEN*0.25+CLOSE*0.45+LOW*0.15+HIGH*0.15; Y:=MA(X,3)*0.105+MA(X,5)*0.215+MA(X,10)*0.315+MA(X,15)*0.365; PARTLINE(Y>REF(Y,1),Y),LINETHICK2,colorFFFF; PARTLINE(Y<REF(Y,1),Y),LINETHICK2,colorFF0000; KS:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*(-100); RKS:=REF(KS,1); MLS:=RKS/KS>=1.23 AND RKS>=8 AND CLOSE/REF(CLOSE,1)>=1.02; 超跌:STICKLINE(KS>=8,HIGH,LOW,0,1),LINETHICK1,colorFFFFFF; STICKLINE(KS>=8,OPEN,CLOSE,7,1),LINETHICK1,colorFFFFFF; 反彈:STICKLINE(MLS=1,HIGH,LOW,0,1),LINETHICK1,colorFF00FF; STICKLINE(MLS=1,OPEN,CLOSE,7,1),LINETHICK1,colorFF00FF;

?來源:程序化99（ www.tumamayizhan.com ）

原理解析：

K1賦值:4N%之字轉向的前1個波峰值

K2賦值:4N%之字轉向的前1個波谷值

C1賦值:收盤價上穿K1

C2賦值:K2上穿收盤價

K3賦值:上次C1距今天數

K4賦值:上次C2距今天數

PARTLINE(K3<K4,K2),線寬為2,COLORFFFF

PARTLINE(K3>K4,K1),線寬為2,COLORFFFFFF

K0賦值:K3<K4

當滿足條件K0時,在最高價和最低價位置之間畫柱狀線,寬度為0.1,1不為0則畫空心柱.,COLORFF

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

當滿足條件取反時,在最高價和最低價位置之間畫柱狀線,寬度為0.1,0不為0則畫空心柱.,COLORFF00

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

當滿足條件K2>1日前的K2ANDK3<K4時,在K2*1.007位置畫10號圖標

當滿足條件C1ANDSUM(C1,K4)=1時,在K1*1.01位置畫1號圖標

當滿足條件C2ANDSUM(C2,K3)=1時,在K2位置畫2號圖標

力賦值:收盤價*2.5/100+收盤價

HD賦值:收盤價-收盤價*2.5/100

VG賦值:1日前的最高價/2日前的收盤價的27日簡單移動平均*1日前的收盤價

VD賦值:1日前的最低價/2日前的收盤價的27日簡單移動平均*1日前的收盤價

A5賦值:VD[SYSPARAM(1)]

RA5賦值:VD[SYSPARAM(1)-1]

A10賦值:VG[SYSPARAM(1)]

RA10賦值:VG[SYSPARAM(1)-1]

JT5賦值:如果A5>RA5,返回'↑',否則返回'↓'

JT10賦值:如果A10>RA10,返回'↑',否則返回'↓'

阻力位賦值:如果收盤價>200,返回收盤價*1.01,否則返回收盤價*1.07

阻力位1賦值:如果收盤價<10,返回收盤價*1.05,否則返回阻力位

止損位賦值:如果收盤價>200,返回收盤價*0.99,否則返回收盤價*0.93

止損位1賦值:如果收盤價<10,返回收盤價*0.95,否則返回止損位

AA1賦值:STRFIND(品種名稱,'ST',0)=0

K0賦值:如果AA1,返回10,否則返回20

A1賦值:1日前的收盤價/K0+1日前的收盤價

A2賦值:-1日前的收盤價/K0-1日前的收盤價

SZ1賦值:'阻力位：'+NUMTOSTR(阻力位,2)+'元'

SZ2賦值:' 止損位：'+NUMTOSTR(止損位,2)+'元'

SZ3賦值:'開測高：'+NUMTOSTR(VG[SYSPARAM(1)],2)+JT10

SZ4賦值:' 開測低：'+NUMTOSTR(VD[SYSPARAM(1)],2)+JT5

SZ5賦值:'漲停價：'+NUMTOSTR(A1,2)+'元'

SZ6賦值:' 跌停價：'+NUMTOSTR(A2,2)+'元'

SZ7賦值:'買入價：'+NUMTOSTR(HD,2)+'元'

SZ8賦值:' 賣出價：'+NUMTOSTR(真實波幅,2)+'元'

當滿足條件BARPOS=SYSPARAM(2)時,在最高價位置書寫文字,ALIGN5,PXUP50,COLORFF

當滿足條件BARPOS=SYSPARAM(2)時,在最高價位置書寫文字,ALIGN5,PXUP50,COLORFF00

當滿足條件BARPOS=SYSPARAM(2)時,在收盤價位置書寫文字,ALIGN5,PXUP25,COLORFF

當滿足條件BARPOS=SYSPARAM(2)時,在收盤價位置書寫文字,ALIGN5,PXUP25,COLORFF00

當滿足條件BARPOS=SYSPARAM(2)時,在最高價位置書寫文字,ALIGN5,PXUP75,COLORFF

當滿足條件BARPOS=SYSPARAM(2)時,在最高價位置書寫文字,ALIGN5,PXUP75,COLORFF00

當滿足條件BARPOS=SYSPARAM(2)時,在最高價位置書寫文字,ALIGN5,PXUP100,COLORFF

當滿足條件BARPOS=SYSPARAM(2)時,在最高價位置書寫文字,ALIGN5,PXUP100,COLORFF00

F賦值:獲利盤為5%的成本分布

J賦值:獲利盤為95%的成本分布

M賦值:獲利盤為15%的成本分布

B賦值:獲利盤為85%的成本分布

F1賦值:(J-F)/(F+J)*100

M1賦值:(B-M)/(B+M)*100

成本集中度90賦值:F1

成本集中度70賦值:M1

獲利盤賦值:以收盤價計算的獲利盤比例*100

套牢盤賦值:100*(1-以收盤價計算的獲利盤比例)

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

浮籌籌碼賦值:(以收盤價*1.1計算的獲利盤比例-以收盤價*0.9計算的獲利盤比例)/以0日內最高價的最高值計算的獲利盤比例*100

當滿足條件SYSPARAM(2)=BARPOS時,在收盤價位置書寫文字,ALIGN4,COLORCCFFCC

X賦值:開盤價*0.25+收盤價*0.45+最低價*0.15+最高價*0.15

Y賦值:X的3日簡單移動平均*0.105+X的5日簡單移動平均*0.215+X的10日簡單移動平均*0.315+X的15日簡單移動平均*0.365

PARTLINE(Y>1日前的Y,Y),線寬為2,COLORFFFF

PARTLINE(Y<1日前的Y,Y),線寬為2,COLORFF0000

KS賦值:(收盤價-收盤價的13日簡單移動平均)/收盤價的13日簡單移動平均*(-100)

RKS賦值:1日前的KS

MLS賦值:RKS/KS>=1.23 AND RKS>=8 AND 收盤價/1日前的收盤價>=1.02

輸出超跌:當滿足條件KS>=8時,在最高價和最低價位置之間畫柱狀線,寬度為0,1不為0則畫空心柱.,線寬為1,COLORFFFFFF

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

輸出反彈:當滿足條件MLS=1時,在最高價和最低價位置之間畫柱狀線,寬度為0,1不為0則畫空心柱.,線寬為1,COLORFF00FF

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

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