您现在的位置:程序化交易>> 股票公式>> 其他>> 其他软件公式>>正文内容

黄金分割 光标公式、源码[其他软件公式]

相关标签:

 


黄金分割 光标 {又优化了一下添了两条均线和近高点到当前收盘价的幅度和涨跌}
{黄金分割 光标}

 

 

原理解析:

输出INPUT:T(20,1,360),F(0,0,255),F1(0,0,255),F2(0,0,255)
TTT赋值:是否最后一个周期=1
T1赋值:DATACOUNT-BARPOS+0
T2赋值:DATEDIFF(日期,CURRENTDATE)
A1赋值:((最高价-最低价)/最低价)*100
A2赋值:最高价-最低价
MAI赋值:收盘价*1.017
MAII赋值:收盘价*1.03
输出DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,299,1,'▼明短线赢利[1.7%--3%:]'+'/'+NUMTOSTR(MAI[SYSPARAM(1)],2)+'--'+NUMTOSTR(MAII [SYSPARAM(1)],2)),COLOR00FF00
输出输出DRAWTEXTEX(TTT,0,1,1,'【代码:'+STKLABEL+' 名称:'+品种名称+'】'),COLOR00FFFF
输出DRAWTEXTEX(TTT,0,176,1,'【振幅:'+NUMTOSTR(A1[SYSPARAM(1)],2)+'% '+NUMTOSTR(A2[SYSPARAM(1)],2)+'元 】'+''),COLORFFFF00
输出输出DRAWTEXTEX(TTT,0,15,14,'交易天:'+NUMTOSTR(T1[SYSPARAM(1)],0)+'(天) / '+'◆自然天:'+NUMTOSTR(T2[SYSPARAM(1)],0)+'(天) '),COLORFFFFFF
当满足条件收盘价>=开盘价时,在最低价和最高价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLORFF
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR102088
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为7,0不为0则画空心柱.,COLOR102099
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLOR1020AA
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR1020BB
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLOR1020CC
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR1020DD
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR1020EE
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR1020FF
当满足条件收盘价<=开盘价时,在最低价和最高价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLORFF8800
当满足条件收盘价<=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLORFF7700
当满足条件收盘价<=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为7,0不为0则画空心柱.,COLORFF8800
当满足条件收盘价<=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLORFF9900
当满足条件收盘价<=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLORFFAA00
当满足条件收盘价<=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLORFFBB00
当满足条件收盘价<=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLORFFCC00
当满足条件收盘价<=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLORFFDD00
当满足条件收盘价<=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORFFEE00
AS赋值:(开盘价+最高价+最低价+收盘价)/4
输出BL: AS的F日简单移动平均,线宽为1,COLOR208FFF
输出BL1: 收盘价的F1日简单移动平均,线宽为1,COLORFFFFFF
输出BL2: 收盘价的F2日简单移动平均,线宽为1,COLOR00FFFF
PARTLINE(BL<1日前的BL,BL),COLORFF0000,线宽为2
PARTLINE(BL1<1日前的BL1,BL1),COLOR00FF00,线宽为1
PARTLINE(BL2<1日前的BL2,BL2),COLOR00FF00,线宽为1
BLT赋值:数据位置状态=2
当满足条件BLTANDBL>1日前的BL时,在BL位置书写文字,COLOR208FFF
当满足条件BLTANDBL<1日前的BL时,在BL位置书写文字,COLOR208FFF
当满足条件BLTANDBL1>1日前的BL1时,在BL1位置书写文字,COLORFFFFFF
当满足条件BLTANDBL1<1日前的BL1时,在BL1位置书写文字,COLORFFFDED
当满足条件BLTANDBL2>1日前的BL2时,在BL2位置书写文字,COLOR00CCCC
当满足条件BLTANDBL2<1日前的BL2时,在BL2位置书写文字,COLOR00CCCC
B赋值:如果(SYSPARAM(1)=(首次(收盘价>0)距今天数+1)),返回1,否则返回0
B1赋值:(最高价<1日前的最低价)
B2赋值:(最低价>1日前的最高价)
当满足条件B1时,在(收盘价+开盘价)/2和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLORAA0000
当满足条件B1时,在(收盘价+开盘价)/2和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLORCC0000
当满足条件B1时,在(收盘价+开盘价)/2和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOREE0000
当满足条件B2时,在开盘价和(收盘价+开盘价)/2位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR00AAAA
当满足条件B2时,在开盘价和(收盘价+开盘价)/2位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR00CCCC
当满足条件B2时,在开盘价和(收盘价+开盘价)/2位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR00EEEE
当满足条件((B>0)ANDB1)时,在最高价位置书写文字,COLORFFFFEE,PXDN10,ALIGN2
当满足条件((B>0)ANDB2)时,在最低价位置书写文字,COLOR00FFEE,PXDN10,ALIGN2
输出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+' 大订单'
VAR100赋值:VAR100+' 股权改革'
VAR100赋值:VAR100+' 股权投资'
VAR100赋值:VAR100+' 火电板块'
VAR100赋值:VAR100+' 水电板块'
VAR100赋值:VAR100+' 燃气板块'
VAR100赋值:VAR100+' 供热板块'
VAR100赋值:VAR100+' 沪深300'
VAR100赋值:VAR100+' 滨海特区'
VAR100赋值:VAR100+' 参股金融'
VAR100赋值:VAR100+' 新能源A'
VAR100赋值:VAR100+' 社保重仓'
VAR100赋值:VAR100+' 资源优势'
VAR100赋值:VAR100+' 铁路基建'
VAR100赋值:VAR100+' 稀缺资源'
VAR100赋值:VAR100+' 航天军工'
VAR100赋值:VAR100+' 中小企业板'
DRAWTEXTEX(TTT,0,2,28,VAR100+' '),COLORFFB060
DRAWTEXTEX(TTT,0,2,42,'【创于09.06.13 迷惑】'),COLORFFFFFF
N赋值:如果SYSPARAM(1)=DATACOUNT,返回T,否则返回DATACOUNT-SYSPARAM(1)
HH赋值:N日内最高价的最高值
LL赋值:N日内最低价的最低值
VN赋值:N
THENVN赋值:DATACOUNT+1
赋值:HH[DATACOUNT]
赋值:LL[DATACOUNT]
END
TMP赋值:SETLBOUND(HH,DATACOUNT-VN+1)
TMP赋值:SETLBOUND(LL,DATACOUNT-VN+1)
输出AH:HH,线宽为2,COLOR0000FF
输出AL:LL,线宽为2,COLOR00FF00
输出QA:(LL + ((HH - LL) * 0.191)),LINEDOT,COLOR00FFFF
输出QA2:(LL + ((HH - LL) * 0.382)),LINEDOT,COLOR00FFFF
输出QA3:(LL + ((HH - LL) * 0.5)),COLORFFFFFF,LINEDOT
输出QA4:(LL + ((HH - LL) * 0.618)),LINEDOT,COLOR00FFFF
输出QA5:(LL + ((HH - LL) * 0.809)),LINEDOT,COLOR00FFFF
当满足条件SYSPARAM(3)=BARPOS时,在QA位置书写文字,COLORAAAAAA,ALIGN2,PXDN5
当满足条件SYSPARAM(3)=BARPOS时,在QA2位置书写文字,COLORAAAAAA,ALIGN2,PXUP22
当满足条件SYSPARAM(3)=BARPOS时,在QA3位置书写文字,COLORFFFFFF,ALIGN2,PXDN5
当满足条件SYSPARAM(3)=BARPOS时,在QA4位置书写文字,COLORAAAAAA,ALIGN2,PXDN5
当满足条件SYSPARAM(3)=BARPOS时,在QA5位置书写文字,COLORAAAAAA,ALIGN2,PXDN5
当满足条件SYSPARAM(3)=BARPOS时,在HH位置书写文字,COLORFFFFFF,ALIGN2,PXDN5
当满足条件SYSPARAM(3)=BARPOS时,在LL位置书写文字,COLORFFFFFF,ALIGN2,PXDN5
D1赋值:HH-LL
D2赋值:D1/LL*100
D3赋值:HH-最低价
D4赋值:D3/HH*100
D5赋值:HH-收盘价
D6赋值:D5/HH*100
KKH赋值:上次最高价=HH距今天数
KKL赋值:上次最低价=LL距今天数
ND赋值:STRTONUM(NUMTOSTR(KKL日前的日期,0))
NG赋值:STRTONUM(NUMTOSTR(KKH日前的日期,0))
DK赋值:如果ND>NG,返回2,否则返回1,线宽为0
DATE1赋值:如果DK=1,返回ND,否则返回NG
VERTLINE(日期=DATE1),COLORFFAAAA,,线宽为2
当满足条件日期=DATE1时,在SYSPARAM(4)*0.95位置书写文字'+'('+NUMTOSTR(D1,2)+' 元)'+'\N \N \N \N \N 近高\N \N 到\N \N 当前低于收\N \N 幅度('+NUMTOSTR(D4,2)+' % )'+'('+NUMTOSTR(D3,2)+' 元)'+'\N ('+NUMTOSTR(D6,2)+' % )'+'('+NUMTOSTR(D5,2)+' 元)'),COLORFFFFFF
 

源码:

 

INPUT:T(20,1,360),F(0,0,255),F1(0,0,255),F2(0,0,255);
TTt:=ISLASTBAR=1;
T1:=datacount-barpos+0;
T2:=DATEDIFF(date,CURRENTDATE);
A1:=((H-L)/L)*100;
A2:=H-L;
MAI:=C*1.017;
MAII:=C*1.03;
DRAWTEXTEX(sysparam(3)=BARPOS,0,299,1,'▼明短线赢利[1.7%--3%:]'+'/'+NUMTOSTR(MAI[SYSPARAM(1)],2)+'--'+NUMTOSTR(MAII [SYSPARAM(1)],2)),Color00FF00;
DRAWTEXTEX(TTt,0,1,1,'【代码:'+STKLABEL+' 名称:'+STKNAME+'】'),Color00FFFF;
DRAWTEXTEX(TTt,0,176,1,'【振幅:'+NUMTOSTR(A1[SYSPARAM(1)],2)+'% '+NUMTOSTR(A2[SYSPARAM(1)],2)+'元 】'+''),ColorFFFF00;
DRAWTEXTEX(TTt,0,15,14,'交易天:'+NUMTOSTR(T1[SYSPARAM(1)],0)+'(天) / '+'◆自然天:'+NUMTOSTR(T2[SYSPARAM(1)],0)+'(天) '),colorFFFFFF;
STICKLINE(C>=O,low,high,0.5,0),colorFF;
STICKLINE(C>=O,close,open,8,0),color102088;
STICKLINE(C>=O,close,open,7,0),color102099;
STICKLINE(C>=O,close,open,6,0),color1020AA;
STICKLINE(C>=O,close,open,5,0),color1020BB;
STICKLINE(C>=O,close,open,4,0),color1020CC;
STICKLINE(C>=O,close,open,3,0),color1020DD;
STICKLINE(C>=O,close,open,2,0),color1020EE;
STICKLINE(C>=O,close,open,1,0),color1020FF;
STICKLINE(C<=O,low,high,0.5,0),colorFF8800;
STICKLINE(C<=O,close,open,8,0),colorFF7700;
STICKLINE(C<=O,close,open,7,0),colorFF8800;
STICKLINE(C<=O,close,open,6,0),colorFF9900;
STICKLINE(C<=O,close,open,5,0),colorFFAA00;
STICKLINE(C<=O,close,open,4,0),colorFFBB00;
STICKLINE(C<=O,close,open,3,0),colorFFCC00;
STICKLINE(C<=O,close,open,2,0),colorFFDD00;
STICKLINE(C<=O,close,open,1,0),colorFFEE00;
as:=(o+h+l+c)/4;
BL: MA(as,F),linethick1,Color208FFF;
BL1: MA(C,F1),linethick1,ColorFFFFFF;
BL2: MA(C,F2),linethick1,Color00FFFF;
PARTLINE(BL<REF(BL,1),BL),colorff0000,linethick2;
PARTLINE(BL1<REF(BL1,1),BL1),color00ff00,linethick1;
PARTLINE(BL2<REF(BL2,1),BL2),color00ff00,linethick1;
BLT:=BARSTATUS=2;
DRAWTEXT(BLT AND BL>REF(BL,1),BL,'↑'+NUMTOSTR(f,0)+':'+NUMTOSTR(BL,2)),COLOR208fff;
DRAWTEXT(BLT AND BL<REF(BL,1),BL,'↓'+NUMTOSTR(f,0)+':'+NUMTOSTR(BL,2)),Color208FFF;
DRAWTEXT(BLT AND BL1>REF(BL1,1),BL1,'↑'+NUMTOSTR(f1,0)+':'+NUMTOSTR(BL1,2)),COLORFFffff;
DRAWTEXT(BLT AND BL1<REF(BL1,1),BL1,'↓'+NUMTOSTR(f1,0)+':'+NUMTOSTR(BL1,2)),ColorFFFDED;
DRAWTEXT(BLT AND BL2>REF(BL2,1),BL2,'↑'+NUMTOSTR(f2,0)+':'+NUMTOSTR(BL2,2)),COLOR00CCCC;
DRAWTEXT(BLT AND BL2<REF(BL2,1),BL2,'↓'+NUMTOSTR(f2,0)+':'+NUMTOSTR(BL2,2)),Color00CCCC;
B:=IF((SYSPARAM(1) = (BARSSINCE((C > 0)) + 1)),1,0);
B1:=(H<REF(L,1));
B2:=(L>REF(H,1));
STICKLINE(B1,(c+o)/2,O,5,0),coloraa0000;
STICKLINE(B1,(c+o)/2,O,3,0),colorcc0000;
STICKLINE(B1,(c+o)/2,O,1,0),coloree0000;
STICKLINE(B2,O,(c+o)/2,5,0),color00AAaa;
STICKLINE(B2,O,(c+o)/2,3,0),color00CCcc;
STICKLINE(B2 ,O,(c+o)/2,1,0),color00EEee;
DRAWTEXT(((B > 0) AND B1),H,'↓缺口'),colorFFFFEE,pxdn10,ALIGN2;
DRAWTEXT(((B > 0) AND B2),L,'↑缺口'),color00FFEE,pxdn10,ALIGN2;
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+' 大订单';
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('沪深300')=1 then var100:=var100+' 沪深300';
if inblock('滨海特区')=1 then var100:=var100+' 滨海特区';
if inblock('参股金融')=1 then var100:=var100+' 参股金融';
if inblock('新能源A')=1 then var100:=var100+' 新能源A';
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(TTT,0,2,28,var100+' '),ColorFFB060;
DRAWTEXTEX(TTt,0,2,42,'【创于09.06.13 迷惑】'),ColorFFFFFF;
N:=IF(SYSPARAM(1)=DATACOUNT,T,DATACOUNT-SYSPARAM(1));
HH:=HHV(HIGH,N);
LL:=LLV(LOW,N);
VN:=N;
{LAST1:=DATACOUNT;}
IF VN>DATACOUNT THEN
VN:=DATACOUNT+1;
FOR I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN
HH[I]:=HH[DATACOUNT];
LL[I]:=LL[DATACOUNT];
END;
TMP:=SETLBOUND(hh,DATACOUNT-VN+1);
TMP:=SETLBOUND(ll,DATACOUNT-VN+1);
AH:HH,LINETHICK2,color0000FF;
AL:LL,LINETHICK2,color00FF00;
Qa:(LL + ((HH - LL) * 0.191)),LINEDOT,Color00ffff;
Qa2:(LL + ((HH - LL) * 0.382)),LINEDOT,Color00ffff;
Qa3:(LL + ((HH - LL) * 0.5)),Colorffffff,LINEDOT;
Qa4:(LL + ((HH - LL) * 0.618)),LINEDOT,Color00ffff;
Qa5:(LL + ((HH - LL) * 0.809)),LINEDOT,Color00ffff;
DRAWTEXT(SYSPARAM(3)=BARPOS,Qa,NUMTOSTR(Qa,2)+'--0.191'),COLORAAAAAA,ALIGN2,PXDN5;
DRAWTEXT(SYSPARAM(3)=BARPOS,Qa2,NUMTOSTR(Qa2,2)+'--0.382'),COLORAAAAAA,ALIGN2,PXUP22;
DRAWTEXT(SYSPARAM(3)=BARPOS,Qa3,NUMTOSTR(Qa3,2)+'--1/2'),COLORFFFFFF,ALIGN2,PXDN5;
DRAWTEXT(SYSPARAM(3)=BARPOS,Qa4,NUMTOSTR(Qa4,2)+'--0.618'),COLORAAAAAA,ALIGN2,PXDN5;
DRAWTEXT(SYSPARAM(3)=BARPOS,Qa5,NUMTOSTR(Qa5,2)+'--0.809'),COLORAAAAAA,ALIGN2,PXDN5;
DRAWTEXT(SYSPARAM(3)=BARPOS,HH,'阶段高--'+NUMTOSTR(HH,2)),COLORFFFFFF,ALIGN2,PXDN5;
DRAWTEXT(SYSPARAM(3)=BARPOS,LL,'阶段低--'+NUMTOSTR(LL,2)),COLORFFFFFF,ALIGN2,PXDN5;
D1:=HH-LL;
D2:=D1/LL*100;
D3:=HH-L;
D4:=D3/HH*100;
D5:=HH-c;
D6:=D5/HH*100;
KKH:=BARSLAST(HIGH=HH);
KKL:=BARSLAST(LOW=LL);
ND:=STRTONUM(NUMTOSTR(REF(DATE,KKL),0));
NG:=STRTONUM(NUMTOSTR(REF(DATE,KKH),0));
DK:=IF(ND>NG,2,1),LINETHICK0;
DATE1:=IF(DK=1,ND,NG);
VERTLINE(DATE=DATE1),COLORFFAAAA,,LINETHICK2;
DRAWTEXT(DATE=DATE1,SYSPARAM(4)*0.95,' 起\n \n 始\n \n 线('+NUMTOSTR(ll,2)+' 元)'+'\n \n \n \n \n \n 涨\n \n 幅('+NUMTOSTR(D2,2)+' % )'+'('+NUMTOSTR(D1,2)+' 元)'+'\n \n \n \n \n 近高\n \n 到\n \n 当前低于收\n \n 幅度('+NUMTOSTR(D4,2)+' % )'+'('+NUMTOSTR(D3,2)+' 元)'+'\n ('+NUMTOSTR(D6,2)+' % )'+'('+NUMTOSTR(D5,2)+' 元)'),COLORFFFFFF;

 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程

 

 

有思路,想编写各种指标公式,交易模型,选股公式,还原公式的朋友

可联系技术人员 QQ: 262069696  点击在线交流或微信:cxhjy888 进行 有偿收费 编写!(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

怎么收费,代编流程等详情请点击查阅!

(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

 


【字体: 】【打印文章】【查看评论

相关文章

    没有相关内容