iso30191 internation:黄金分割公式

黄金分割公式  

黄金分割原理。N=填进任意指数点位即可比如1664.93点自动显示1.809强压力处3011.85为支撑。跌破那么还会跌。就会去考验1.618的支撑.如果一直不破1.809支撑3011再向上。那么N处变更3011.85就会显示上方的压力位置。个股填进任意价格就可以。虽然简单但也实用。

Var1:=n;
N起点: 1*Var1,LINETHICK2;
N191: 1.191*Var1,LINETHICK2;
N382: 1.382*Var1,LINETHICK2;
N618: 1.618*Var1,LINETHICK2;
N809: 1.809*Var1,LINETHICK2;

 

 

 

 

 

 

 

 

 

 

 

 

 

动态的黄金分割。

STICKLINE(OPEN>=CLOSE ,OPEN,CLOSE,9,0 ),COLORaaaaaa;
STICKLINE(OPEN>=CLOSE ,OPEN,CLOSE,6,0 ),COLORbbbbbb;
STICKLINE(OPEN>=CLOSE ,OPEN,CLOSE,2.4,0 ),COLORcccccc;
STICKLINE(OPEN>=CLOSE ,OPEN,CLOSE,1.1,0 ),COLORdddddd;
STICKLINE(CLOSE>OPEN,OPEN,CLOSE,9,0 ),COLOr6666cc;
STICKLINE(CLOSE>OPEN,OPEN,CLOSE,6 ,0 ),COLOR7777dd;
STICKLINE(CLOSE>OPEN,OPEN,CLOSE,2.4 ,0 ),COLOR8888ee;
STICKLINE(CLOSE>OPEN,OPEN,CLOSE,1.1 ,0 ),COLOR9999ff;
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR1199ff;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR1199ff;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLORcccccc;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLORcccccc;
{?黄金分割?}
lhnh:=上一次条件成立位置(数据位置=系统参数(2))+1;
nnl:=数据位置=系统参数(3);
qqqq:=向前赋值(数据位置=系统参数(3),上一次条件成立位置(数据位置=系统参数(2)));
hh:=最高值(最高价 ,lhnh);
ll:=最低值(最低价 ,lhnh);
q809:=ll+(hh-ll)*0.809;
q618:=ll+(hh-ll)*0.618;
q500:=ll+(hh-ll)*0.5;
q382:=ll+(hh-ll)*0.382;
q191:=ll+(hh-ll)*0.191;
画分段线(QQQQ,hh),COLORRED;
画分段线(qqqq,q191),COLORGREEN;
画分段线(qqqq,q382),COLORCYAN;
画分段线(qqqq,q500),COLORMAGENTA;
画分段线(QQQQ,q618),COLOR009999;
画分段线(qqqq,q809),COLOR008800;
画分段线(qqqq,ll),COLORWHITE;
显示文字(nnl,hh*0.998,'最高价：'),ALIGN2,Color00FFFF;
显示数字(nnl,hh*0.998,hh,2),Color00FFFF;
显示文字(nnl,q809,'19.1%：'),ALIGN2,Color00FFFF;
显示数字(nnl,q809,q809,2),Color00FFFF;
显示文字(nnl,q618,'38.2%：'),ALIGN2,Color00FFFF;
显示数字(nnl,q618,q618,2),Color00FFFF;
显示文字(nnl,q500,'50%：'),ALIGN2,Color00FFFF;
显示数字(nnl,q500,q500,2),Color00FFFF;
显示文字(nnl,q382,'61.8%：'),ALIGN2,Color00FFFF;
显示数字(nnl,q382,q382,2),Color00FFFF;
显示文字(nnl,q191,'80.9%：'),ALIGN2,Color00FFFF;
显示数字(nnl,q191,q191,2),Color00FFFF;
显示文字(nnl,ll*1.01,'最低价：'),ALIGN2,Color00FFFF;
显示数字(nnl,ll*1.01,ll,2),Color00FFFF;

 

 

 

                                                                                                                                                      作