N:=28;M:=34;P1:=34;P2:=49;
INPUT:n1(2,1,3);
DD0:=向前引用(日期,(有效值周期数(收盘价) - 1));
■上市日期:向前引用(年份,(有效值周期数(收盘价) - 1)),LINETHICK0,ColorC0C0C0;
年:向前引用(月份,(有效值周期数(收盘价) - 1)),LINETHICK0,ColorC0C0C0;
月:向前引用(日期,(有效值周期数(收盘价) - 1)),LINETHICK0,ColorC0C0C0;
日:0,LINETHICK0,ColorC0C0C0;
显示文字(系统参数(2)=数据位置,收盘价,'板块:'+所属板块),Color0095BC,align4;
u1:=系统参数(3);
u:=u1-系统参数(2)+1;
hh:=最高值(最高价,u);
ll:=最低值(最低价,u);
最高:hh[u1],COLORYELLOW,ColorC0C0C0;
最低:ll[u1],COLORred,ColorC0C0C0;
画分段线(收盘价 and n1<>3,最低),COLORred;
画分段线(收盘价 and n1=1,最低+(最高-最低)*0.191),短虚线,COLORWHITE;
画分段线(收盘价 and n1=1,最低+(最高-最低)*0.382),短虚线,COLORWHITE;
画分段线(收盘价 and n1<>3,最低+(最高-最低)*0.5),ColorFF8200;
画分段线(收盘价 and n1=1,最低+(最高-最低)*0.618),短虚线,COLORWHITE;
画分段线(收盘价 and n1=1,最低+(最高-最低)*0.809),短虚线,COLORWHITE;
显示文字(有效值周期数(收盘价)=系统参数(3) and n1<>3,向前引用(最低,上一次条件成立位置(有效值周期数(收盘价)=系统参数(2))),'最低↓'),ALIGN2,COLORred;
显示文字(有效值周期数(收盘价)=系统参数(3) and n1<>3,向前引用(最高,上一次条件成立位置(有效值周期数(收盘价)=系统参数(2))),'最高↑'),ALIGN2,COLORYELLOW;
显示文字(数据位置=系统参数(2) and n1=1,向前引用((最低+(最高-最低)*0.191)*0.996,上一次条件成立位置(有效值周期数(收盘价)=系统参数(2))),'黄金 0.191↑'+数字转化为字符串(最低+(最高-最低)*0.191,2)),COLORWHITE;
显示文字(数据位置=系统参数(2) and n1=1,向前引用((最低+(最高-最低)*0.382)*0.996,上一次条件成立位置(有效值周期数(收盘价)=系统参数(2))),'黄金 0.382↑'+数字转化为字符串(最低+(最高-最低)*0.382,2)),COLORWHITE;
显示文字(数据位置=系统参数(2) and n1<>3,向前引用((最低+(最高-最低)*0.5)*0.996,上一次条件成立位置(有效值周期数(收盘价)=系统参数 (2))),' 50% ↑'+数字转化为字符串(最低+(最高-最低)*0.5,2)),ColorFF8200;
显示文字(数据位置=系统参数(2) and n1=1,向前引用((最低+(最高-最低)*0.618)*0.996,上一次条件成立位置(有效值周期数(收盘价)=系统参数(2))),'黄金 0.618↑'+数字转化为字符串(最低+(最高-最低)*0.618,2)),COLORWHITE;
显示文字(数据位置=系统参数(2) and n1=1,向前引用((最低+(最高-最低)*0.809)*0.996,上一次条件成立位置(有效值周期数(收盘价)=系统参数(2))),'黄金 0.809↑'+数字转化为字符串(最低+(最高-最低)*0.809,2)),COLORWHITE;
画分段线(收盘价 and n1=2,最低+(最高-最低)*1/8),短虚线,Color0095BC;
画分段线(收盘价 and n1=2,最低+(最高-最低)*1/4),短虚线,Color0095BC;
画分段线(收盘价 and n1=2,最低+(最高-最低)*3/8),短虚线,Color0095BC;
画分段线(收盘价 and n1=2,最低+(最高-最低)*5/8),短虚线,Color0095BC;
画分段线(收盘价 and n1=2,最低+(最高-最低)*7/8),短虚线,Color0095BC;
画分段线(收盘价 and n1=2,最低+(最高-最低)*3/4),短虚线,Color0095BC;
k3:=收盘价>开盘价 or 收盘价=开盘价 and 收盘价>向前引用(收盘价,1);
画柱线(k3,最高价,最低价,0.1,0),colorred;
画柱线(k3,开盘价,收盘价,7,1),colorred;
画柱线(求逻辑非(k3),最高价,最低价,0.1,0),colorcyan;
画柱线(求逻辑非(k3),收盘价,开盘价,7,0),colorcyan;
显示文字(数据位置=系统参数(2) and n1=2,向前引用((最低+(最高-最低)*1/8)*0.996,上一次条件成立位置(有效值周期数(收盘价)=系统参数(2))),'江恩 1/8↑'+数字转化为字符串(最低+(最高-最低)*1/8,2)),Color0095BC;
显示文字(数据位置=系统参数(2) and n1=2,向前引用((最低+(最高-最低)*1/4)*0.996,上一次条件成立位置(有效值周期数(收盘价)=系统参数(2))),'江恩 1/4↑'+数字转化为字符串(最低+(最高-最低)*1/4,2)),Color0095BC;
显示文字(数据位置=系统参数(2) and n1=2,向前引用((最低+(最高-最低)*3/8)*0.996,上一次条件成立位置(有效值周期数(收盘价)=系统参数(2))),'江恩 3/8↑'+数字转化为字符串(最低+(最高-最低)*3/8,2)),Color0095BC;
显示文字(数据位置=系统参数(2) and n1=2,向前引用((最低+(最高-最低)*5/8)*0.996,上一次条件成立位置(有效值周期数(收盘价)=系统参数(2))),'江恩 5/8↑'+数字转化为字符串(最低+(最高-最低)*5/8,2)),Color0095BC;
显示文字(数据位置=系统参数(2) and n1=2,向前引用((最低+(最高-最低)*7/8)*0.996,上一次条件成立位置(有效值周期数(收盘价)=系统参数(2))),'江恩 7/8↑'+数字转化为字符串(最低+(最高-最低)*7/8,2)),Color0095BC;
显示文字(数据位置=系统参数(2) and n1=2,向前引用((最低+(最高-最低)*3/4)*0.996,上一次条件成立位置(有效值周期数(收盘价)=系统参数(2))),'江恩 3/4↑'+数字转化为字符串(最低+(最高-最低)*3/4,2)),Color0095BC;
画K线(开盘价,最高价,最低价,收盘价,0);
VAR1:=(收盘价+最高价+开盘价+最低价)/4;
MA1:=简单移动平均(VAR1,3);
VAR2:=向前引用(VAR1,5);
波段:加权移动平均(VAR1,13)*(1-21/1000);
卖出:加权移动平均(VAR1,N)*(1+P1/1000),COLORWHITE,LINETHICK2;
买入:加权移动平均(VAR1,M)*(1-P2/1000),COLORYELLOW,LINETHICK2;
显示文字(是否最后周期,卖出*1,'上卖'),COLORWHITE;
显示文字(是否最后周期,买入*1,'下买'),COLORYELLOW;
画柱线(卖出>最低价 AND 卖出<最高价,卖出,最大值(卖出,最大值(开盘价,收盘价)),3,0),COLORYELLOW;
画柱线(卖出>最小值(收盘价,开盘价) AND 卖出<最大值(收盘价,开盘价),卖出,最大值(开盘价,收盘价),3,0),COLORYELLOW;
画柱线(卖出>最低价 AND 卖出<最高价,卖出,最高价,0,0),COLORYELLOW;
画柱线(卖出<最低价,开盘价,收盘价,3,0),COLORYELLOW;
画柱线(卖出<最低价,最高价,最低价,0,0),COLORYELLOW;
画柱线(买入>最低价 AND 买入<最高价,买入,最小值(最小值(开盘价,收盘价),买入),3,0),COLORGREEN;
画柱线(买入>最小值(收盘价,开盘价) AND 买入<最大值(收盘价,开盘价),买入,最小值(开盘价,收盘价),3,0),COLORGREEN;
画柱线(买入>最低价 AND 买入<最高价,买入,最低价,0,0),COLORGREEN;
画柱线(买入>最高价,开盘价,收盘价,3,0),COLORGREEN;
画柱线(买入>最高价,最高价,最低价,0,0),COLORGREEN;
画分段线(波段>向前引用(波段,1),波段),COLORRED;
画分段线(波段<向前引用(波段,1),波段),COLORBLUE;
