黄金分割 光标
{又优化了一下添了两条均线和近高点到当前收盘价的幅度和涨跌}
{黄金分割 光标}
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;
上一指标公式:大三浪版公式 飞狐指标 源码
下一指标公式:绝品春笋公式 飞狐绝品指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文黄金分割光标公式 飞狐光标源码指标 源码仅供学习研究。