虹桥社区卫生服务中心:际仁顶底

际仁顶底

股票

（感谢际仁先生）

一、飞狐软件用 

INPUT:P1(3,1,999),P2(5,1,999),P3(8,1,999),P4(13,1,999),P5(21,1,999),P6(34,1,999),P7(55,1,999),P8(75,1,999),P9(89,1,999);
ma5:ma(c,p2),PRECISION2;
ma13:ma(c,p4),PRECISION2;
ma34:ma(c,p6),PRECISION2;
ma156:ma(c,156),PRECISION2,linethick0;
ma321:ma(c,321),PRECISION2,linethick0;
{今日低}
d5:LLV(L,P2),PRECISION2,COLOR002200,linethick1;
d8:LLV(L,P3),PRECISION2,COLOR002200,linethick1;
d13:LLV(L,P4),PRECISION2,COLOR002200,linethick1;
d21:LLV(L,P5),PRECISION2,COLOR002200,linethick1;
d34:LLV(L,P6),PRECISION2,COLOR002200,linethick1;
d55:LLV(L,P7),PRECISION2,COLOR008800,linethick1;
d75:LLV(L,P8),PRECISION2,COLORGREEN,linethick0;
d89:LLV(L,P9),PRECISION2,colorE06000,linethick0;
{昨日低}
zd5:=ref(d5,1);
zd8:=ref(d8,1);
zd13:=ref(d13,1);
zd21:=ref(d21,1);
zd34:=ref(d34,1);
zd55:=ref(d55,1);
zd75:=ref(d75,1);
zd89:=ref(d89,1);
{前日低}
qd5:=ref(d5,2);
qd8:=ref(d8,2);
qd13:=ref(d13,2);
qd21:=ref(d21,2);
qd34:=ref(d34,2);
qd55:=ref(d55,2);
qd75:=ref(d75,2);
qd89:=ref(d89,2);

{今日高}
jG5:HHV(H,P2),COLORFF009A,linethick0;
jG8:HHV(H,P3),coloraaaaaa,linethick0;
jG13:HHV(H,P4),COLORF0BB44,linethick0;
jG21:HHV(H,P5),ColorD98EF1,linethick0;
jG34:HHV(H,P6),ColorFFFF00,linethick0;
jG55:HHV(H,P7),COLOR008800,linethick0;
jG75:HHV(H,P8),COLORGREEN,linethick0;
jG89:HHV(H,P9),colorE06000,linethick0;
{昨日高}
zG5:=ref(jg5,1);
zG8:=ref(jg8,1);
zG13:=ref(jg13,1);
zG21:=ref(jg21,1);
zG34:=ref(jg34,1);
zG55:=ref(jg55,1);
zG75:=ref(jg75,1);
zG89:=ref(jg89,1);

{前日高}
qG5:=ref(jg5,2);
qG8:=ref(jg8,2);
qG13:=ref(jg13,2);
qG21:=ref(jg21,2);
qG34:=ref(jg34,2);
qG55:=ref(jg55,2);
qG75:=ref(jg75,2);
qG89:=ref(jg89,2);

tj1:if(jg5=jg8 and jg5=jg13 and jg5=jg21 and
jg5=jg34 and jg5=jg55 and jg5=jg75 and jg5=jg89,1,0),linethick0;

tj8:if(d5=d8 and d5=d13 and d5=d21 and d5=d34 and d5=d55 and d5=d75 and d5=d89
and d8=d13 and d8=d21 and d8=d34 and d8=d55 and d8=d75 and d8=d89
and d13=d21 and d13=d34 and d13=d55 and d13=d75 and d13=d89
and  d21=d34 and d21=d55 and d21=d75 and d21=d89
and d34=d55 and d34=d75 and d34=d89
and d55=d75 and d55=d89
and d75=d89,1,0),linethick0;
tj7:if(d5=d8 and d5=d13 and d5=d21 and d5=d34 and d5=d55 and d5=d75 
and d8=d13 and d8=d21 and d8=d34 and d8=d55 and d8=d75 
and d13=d21 and d13=d34 and d13=d55 and d13=d75 
and  d21=d34 and d21=d55 and d21=d75 
and d34=d55 and d34=d75
and d55=d75 ,1,0),linethick0;
tj6:if(d5=d8 and d5=d13 and d5=d21 and d5=d34 and d5=d55 
and d8=d13 and d8=d21 and d8=d34 and d8=d55 
and d13=d21 and d13=d34 and d13=d55  
and  d21=d34 and d21=d55 
and d34=d55 ,1,0),linethick0;
tj5:if(d5=d8 and d5=d13 and d5=d21 and d5=d34
and d8=d13 and d8=d21 and d8=d34 
and d13=d21 and d13=d34 
and  d21=d34,1,0),linethick0;
tj4:if(d5=d8 and d5=d13 and d5=d21
and d8=d13 and d8=d21
and d13=d21,1,0),linethick0;
tj3:if(d5=d8 and d5=d13
and d8=d13,1,0),linethick0;
tj2:if(d5=d8,1,0),linethick0;
PARTLINE(tj1=1,ma13),colorred,LINETHICK3;
PARTLINE(tj8=1,ma5),colorff00ff,LINETHICK3;
PARTLINE(tj7=1 and d5<>d89,ma5),colorwhite,LINETHICK3;
PARTLINE(tj6=1 and d5<>d89 and d5<>d75,ma5),colorgreen,LINETHICK3;
PARTLINE(tj5=1 and d5<>d89 and d5<>d75 and d5<>d55,ma5),coloryellow,LINETHICK3;
PARTLINE(tj4=1 and d5<>d89 and d5<>d75 and d5<>d55 and d5<>d34,ma5),colorE06000,LINETHICK3;
{PARTLINE(tj8=1 and ma5>ref(ma5,1),ma5),colorred,LINETHICK4;}

类别8:if(tj8=1,100,0),,LINETHICK0;
底部8:if((tj8=1 and c>=ma5),100,0),,LINETHICK0;
DRAWICON((tj8=1 and c>=ma5),d89,4);
类别7:if(tj7=1,100,0),,LINETHICK0;
底部7:if(tj7=1 and c>=ma5,100,0),,LINETHICK0;
DRAWICON(tj7=1 and c>=ma5,d75,4);
类别6:if(tj6=1,100,0),,LINETHICK0;
底部6:if(tj6=1 and c>=ma5,100,0),,LINETHICK0;
DRAWICON(tj6=1 and c>=ma5,d55,4);
类别5:if(tj5=1,100,0),,LINETHICK0;
底部5:if(tj5=1 and c>=ma5,100,0),,LINETHICK0;
DRAWICON(tj5=1 and c>=ma5,d34,4);
类别4:if(tj4=1,100,0),,LINETHICK0;
底部4:if(tj4=1 and c>=ma5,100,0),,LINETHICK0;
DRAWICON(tj4=1 and c>=ma5,d21,4);
类别3:if(tj3=1,100,0),,LINETHICK0;
底部3:if(tj3=1 and c>=ma5,100,0),,LINETHICK0;
DRAWICON(tj3=1 and c>=ma5,d13,4);
类别2:if(tj2=1,100,0),,LINETHICK0;
底部2:if(tj2=1 and c>=ma5,100,0),,LINETHICK0;
DRAWICON(tj2=1 and c>=ma5,d8,4);

现价:c,LINETHICK0;

 二、大智慧新一代用

INPUT:P1(3,1,999),P2(5,1,999),P3(8,1,999),P4(13,1,999),P5(21,1,999),P6(34,1,999),P7(55,1,999),P8(75,1,999),P9(89,1,999);
ma5:ma(c,p2),PRECIS2;
ma13:ma(c,p4),PRECIS2;
ma34:ma(c,p6),PRECIS2;
ma156:ma(c,156),PRECIS2,linethick0;
ma321:ma(c,321),PRECIS2,linethick0;

{今日低}
d5:LLV(L,P2),PRECIS2,COLOR002200,linethick1;
d8:LLV(L,P3),PRECIS2,COLOR002200,linethick1;
d13:LLV(L,P4),PRECIS2,COLOR002200,linethick1;
d21:LLV(L,P5),PRECIS2,COLOR002200,linethick1;
d34:LLV(L,P6),PRECIS2,COLOR002200,linethick1;
d55:LLV(L,P7),PRECIS2,COLOR008800,linethick1;
d75:LLV(L,P8),PRECIS2,COLORGREEN,linethick0;
d89:LLV(L,P9),PRECIS2,colorE06000,linethick0;
{昨日低}
zd5:=ref(d5,1);
zd8:=ref(d8,1);
zd13:=ref(d13,1);
zd21:=ref(d21,1);
zd34:=ref(d34,1);
zd55:=ref(d55,1);
zd75:=ref(d75,1);
zd89:=ref(d89,1);
{前日低}
qd5:=ref(d5,2);
qd8:=ref(d8,2);
qd13:=ref(d13,2);
qd21:=ref(d21,2);
qd34:=ref(d34,2);
qd55:=ref(d55,2);
qd75:=ref(d75,2);
qd89:=ref(d89,2);

{今日高}
jG5:HHV(H,P2),COLORFF009A,linethick0;
jG8:HHV(H,P3),coloraaaaaa,linethick0;
jG13:HHV(H,P4),COLORF0BB44,linethick0;
jG21:HHV(H,P5),ColorD98EF1,linethick0;
jG34:HHV(H,P6),ColorFFFF00,linethick0;
jG55:HHV(H,P7),COLOR008800,linethick0;
jG75:HHV(H,P8),COLORGREEN,linethick0;
jG89:HHV(H,P9),colorE06000,linethick0;
{昨日高}
zG5:=ref(jg5,1);
zG8:=ref(jg8,1);
zG13:=ref(jg13,1);
zG21:=ref(jg21,1);
zG34:=ref(jg34,1);
zG55:=ref(jg55,1);
zG75:=ref(jg75,1);
zG89:=ref(jg89,1);

{前日高}
qG5:=ref(jg5,2);
qG8:=ref(jg8,2);
qG13:=ref(jg13,2);
qG21:=ref(jg21,2);
qG34:=ref(jg34,2);
qG55:=ref(jg55,2);
qG75:=ref(jg75,2);
qG89:=ref(jg89,2);

tj1:if(jg5=jg8 and jg5=jg13 and jg5=jg21 and
jg5=jg34 and jg5=jg55 and jg5=jg75 and jg5=jg89,1,0),linethick0;

tj8:if(d5=d8 and d5=d13 and d5=d21 and d5=d34 and d5=d55 and d5=d75 and d5=d89
and d8=d13 and d8=d21 and d8=d34 and d8=d55 and d8=d75 and d8=d89
and d13=d21 and d13=d34 and d13=d55 and d13=d75 and d13=d89
and  d21=d34 and d21=d55 and d21=d75 and d21=d89
and d34=d55 and d34=d75 and d34=d89
and d55=d75 and d55=d89
and d75=d89,1,0),linethick0;
tj7:if(d5=d8 and d5=d13 and d5=d21 and d5=d34 and d5=d55 and d5=d75 
and d8=d13 and d8=d21 and d8=d34 and d8=d55 and d8=d75 
and d13=d21 and d13=d34 and d13=d55 and d13=d75 
and  d21=d34 and d21=d55 and d21=d75 
and d34=d55 and d34=d75
and d55=d75 ,1,0),linethick0;
tj6:if(d5=d8 and d5=d13 and d5=d21 and d5=d34 and d5=d55 
and d8=d13 and d8=d21 and d8=d34 and d8=d55 
and d13=d21 and d13=d34 and d13=d55  
and  d21=d34 and d21=d55 
and d34=d55 ,1,0),linethick0;
tj5:if(d5=d8 and d5=d13 and d5=d21 and d5=d34
and d8=d13 and d8=d21 and d8=d34 
and d13=d21 and d13=d34 
and  d21=d34,1,0),linethick0;
tj4:if(d5=d8 and d5=d13 and d5=d21
and d8=d13 and d8=d21
and d13=d21,1,0),linethick0;
tj3:if(d5=d8 and d5=d13
and d8=d13,1,0),linethick0;
tj2:if(d5=d8,1,0),linethick0;
PARTLINE(ma13,tj1=1,rgb(255,0,0)),LINETHICK3;
PARTLINE(ma5,tj8=1),colorff00ff,LINETHICK3;
PARTLINE(ma5,tj7=1 and d5<>d89),colorwhite,LINETHICK3;
PARTLINE(ma5,tj6=1 and d5<>d89 and d5<>d75),colorgreen,LINETHICK3;
PARTLINE(ma5,tj5=1 and d5<>d89 and d5<>d75 and d5<>d55),coloryellow,LINETHICK3;
PARTLINE(ma5,tj4=1 and d5<>d89 and d5<>d75 and d5<>d55 and d5<>d34),colorE06000,LINETHICK3;

类别8:if(tj8=1,100,0),LINETHICK0;
底部8:if((tj8=1 and c>=ma5),100,0),LINETHICK0;
DRAWICON((tj8=1 and c>=ma5),d89,7),ALIGN1;
类别7:if(tj7=1,100,0),LINETHICK0;
底部7:if(tj7=1 and c>=ma5,100,0),LINETHICK0;
DRAWICON(tj7=1 and c>=ma5,d75,7),ALIGN1;
类别6:if(tj6=1,100,0),LINETHICK0;
底部6:if(tj6=1 and c>=ma5,100,0),LINETHICK0;
DRAWICON(tj6=1 and c>=ma5,d55,7),ALIGN1;
类别5:if(tj5=1,100,0),LINETHICK0;
底部5:if(tj5=1 and c>=ma5,100,0),LINETHICK0;
DRAWICON(tj5=1 and c>=ma5,d34,7),ALIGN1;
类别4:if(tj4=1,100,0),LINETHICK0;
底部4:if(tj4=1 and c>=ma5,100,0),LINETHICK0;
DRAWICON(tj4=1 and c>=ma5,d21,7),ALIGN1;
类别3:if(tj3=1,100,0),LINETHICK0;
底部3:if(tj3=1 and c>=ma5,100,0),LINETHICK0;
DRAWICON(tj3=1 and c>=ma5,d13,7),ALIGN1;
类别2:if(tj2=1,100,0),LINETHICK0;
底部2:if(tj2=1 and c>=ma5,100,0),LINETHICK0;
DRAWICON(tj2=1 and c>=ma5,d8,7),ALIGN1;

现价:c,LINETHICK0;

缠论中说到底部时站稳五日线为最佳，回调时站稳五日线一样。上图中的排序只是一个样版。

公式的用法各位就不用问了，自行琢磨。

还是简单说两句，公式中类别8、7、6、5...为形成底部，底部8、7、6、5...为站上五日线。数字代表各周期的底重合的条数不同而不同，如8代表8个周期的底都重合，当出现之类信号的个股，都可以用缠论分析是否为买点。飞狐和大智慧都有排序功能，各自可设置跟踪每天复盘刷新。