{四价数据}
n:=30;m:=95;
c1:ref(c,1),linethick0;
l1:ref(l,1),linethick0;
{引用 自定义}
买入日期:=selfstring('买入日期');
买入价:=selfdata('买入价');
{以下设置个股信息}
drawtextrel(5,950,'■今天日期: '+year+'年 '+month+'月 '+day+'日 '),linethick2,colormagenta,layer0;
ww:=barslast(dispstatus=1);
天:=barslast(l=llv(low,ww));
drawtextrel(5,915,'■目前可见k线:'+numtostrn(ww+1,0)+'天 50~65天看短中波段'),linethick1,color00ff00,layer0;
{macd优化----大智慧l2版本}
diff:= ema(close,12) - ema(close,26);
dea := ema(diff,9);
macd:= 2*(diff-dea);
主升:= diff>0 and diff>dea;
结束:=cross(dea,diff);
强度:=diff-dea;
强度1:=ref(强度,1);
{fillrgn(diff,dea,主升,rgb(250,0,0));}
转弱:=diff>0 and 强度<强度1;
zsqd1:=主升=1 and 强度>强度1;{强上}
zsqd2:=主升=1 and 强度<强度1;{转弱}
zsqd3:=主升<=o and diff>dea;
zsqd4:=主升<=o and diff<dea;
if barstatus=2 and zsqd1 then begin
drawtextrel(400,120 ,'● macd 0线上 上升中 持股!'),color0000ff,linethick2,layer0;
end
else
if barstatus=2 and zsqd2 then begin
drawtextrel(400,120 ,'● macd 0线上 下降中 小心!'),color00ffff,linethick2,layer0;
end
else
if barstatus=2 and zsqd3 then begin
drawtextrel(400,120 ,'● macd 0线下 上升中 观望!'),colorffffff,linethick2,layer0;
end
else
if barstatus=2 and zsqd4 then begin
drawtextrel(400,120 ,'● macd 0线下 下降中 放弃!'),color00ff00,linethick2,layer0;
end
{回调买入}
{hh:=hhv(high,10);
ll:=llv(low,30);
回调:=(hh+ll)/2;
drawtextrel(5,770,'■ 十天最高价:'+numtostrn(hh,2)+'元'),color00ffff,linethick1;
drawtextrel(5,810,'■ 三十天最低价:'+numtostrn(ll,2)+'元'),color00ffff,linethick1;
drawtextrel(5,850,'■ 回调买入价:'+numtostrn(回调,2)+'元 收盘价:'+numtostrn(c,2)+'元'),color00ffff,linethick1;}
drawtextrel(250,20,' 趋势分析'),colorffffff,layer0,linethick2;
{3 8 21 均线}
ma3:=ma(close,3);
ma8:=ma(close,8);
ma21:=ma(close,21);
三线红:=ma3>ref(ma3,1) and ma8>ref(ma8,1) and ma21>ref(ma21,1);
三线上:=ma3>ma8 and ma8>ma21
and ma3>ref(ma3,1) and ma8>ref(ma8,1) and ma21>ref(ma21,1) ;
回调线:=ma3<ref(ma3,1) and ma8>ref(ma8,1) and ma21>ref(ma21,1) ;
趋势:=ma21/ref(ma21,1);
趋势1:=趋势>=1.003;
趋势2:=趋势<1.003;
趋势3:=趋势<0;
if barstatus=2 and 趋势1 then begin
drawtextrel(240,120 ,'● 均线趋势 走强 持股!'),color0000ff,linethick2;
end
else
if barstatus=2 and 趋势2 then begin
drawtextrel(240,120 ,'● 均线趋势 走平 小心!'),color00ffff,linethick2;
end
else
if barstatus=2 and 趋势3 then begin
drawtextrel(240,120 ,'● 均线趋势 走弱 退场!'),color00ff00,linethick2;
end
{drawtext(ma21,ma21,'●'),colorgreen,linethick1,align1 ;}
{drawtext(ma21>ref(ma21,1),ma21,'◎'),color00ff00,linethick1,align1 ;}
天数21:=barslast(cross(ma21,ref(ma21,1)));{计算上涨天数};
{新牛股公式}
牛股:=100-100*(hhv(high,5*8)-close)/(hhv(high,5*8)-llv(low,5*8));
牛现:cross((100-100*(hhv(high,5*8)-close)/(hhv(high,5*8)-llv(low,5*8))),99),linethick0;
kk:=-150;
kkk:=790;
ng1:=牛股>ref(牛股,1);
ng2:=牛股<ref(牛股,1);
ng3:=牛股=ref(牛股,1);
if barstatus=2 and ng1 then begin
drawrectrel(380+kk,50+kkk,520+kk,220+kkk,rgb(0,0,255)),layer0,colorffffff,linethick1;
drawtextrel(382+kk,70+kkk,' 【股价 上升】'),colorred,linethick3,layer0;
drawtextrel(382+kk,120+kkk,' 今日趋势: '+numtostrn(牛股,2)),colorred,linethick2,layer0;
drawtextrel(382+kk,170+kkk,' 昨日趋势: '+numtostrn((ref(牛股,1)),2)),colorgreen,linethick2,layer0;
drawtextrel(870,940,'金砖强势选股'),color0000ff,linethick4,layer0;
end
else
if barstatus=2 and ng2 then begin
drawrectrel(380+kk,50+kkk,520+kk,220+kkk,rgb(47,79,79)),layer0,color00ff00,linethick1;
drawtextrel(382+kk,70+kkk,' 【股价 下跌】'),colorffffff,linethick2,layer0;
drawtextrel(382+kk,120+kkk,' 今日趋势: '+numtostrn(牛股,2)),colorffffff,linethick2,layer0;
drawtextrel(382+kk,170+kkk,' 昨日趋势: '+numtostrn((ref(牛股,1)),2)),colorred,linethick2,layer0;
drawtextrel(870,940,'金砖强势选股'),color00ff00,linethick4,layer0;
end
else
if barstatus=2 and ng3 then begin
drawrectrel(380+kk,50+kkk,520+kk,220+kkk,rgb(0,0,255)),layer0,colorffffff,linethick1;
drawtextrel(382+kk,70+kkk,' 【股价 平盘】'),coloryellow,linethick3,layer0;
drawtextrel(382+kk,120+kkk,' 今日趋势: '+numtostrn(牛股,2)),coloryellow,linethick2,layer0;
drawtextrel(382+kk,170+kkk,' 昨日趋势: '+numtostrn((ref(牛股,1)),2)),colorffffff,linethick2,layer0;
drawtextrel(870,940,'金砖强势选股'),colorffffff,linethick4,layer0;
end
nx:=牛现>0;
if barstatus=2 and nx then begin
drawrectrel(380+kk,50+kkk,520+kk,220+kkk,rgb(0,0,255)),layer0,colorffffff,linethick1;
drawrectrel(398+kk,84+kkk,482+kk,183+kkk,rgb(255,0,0)),layer0,colorffffff,linethick1;
drawtextrel(406+kk,110+kkk,'牛 股'),colorffffff,linethick5,layer0;
drawtextrel(870,940,'金砖强势选股'),color0000ff,linethick4,layer0;
end
{买入表格}
drawtextrel(177,20,'昨今趋势'),colorffffff,layer0,linethick2;
{显示金砖 蓝砖 dppd提供薛丝通道公式}
xsvar2:=close*vol;
xsvar3:=ema((ema(xsvar2,3)/ema(vol,3)+ema(xsvar2,6)/ema(vol,6)+ema(xsvar2,12)/ema(vol,12)+ema(xsvar2,24)/ema(vol,24))/4,13);
xsvar4:=ema(close,9);
sup:1.06*xsvar3,linethick0;{强势上升}
sup1:=ref(sup,1);
sup2:=ref(sup,2);
hup:ema(xsvar4*1.14,5),linethick0;{顶部高位}
{drawtext(hup>ref(hup,1),hup,'◎'),colormagenta,linethick1,align1 ;}
金砖:=sup>sup1 and c>sup;
蓝砖:=sup>sup1 and c<sup;
if barstatus=2 and 金砖 then begin
drawtextrel(205,70,'■'),color00ffff,layer0,linethick3;
end
else
if barstatus=2 and 蓝砖 then begin
drawtextrel(205,70,'■'),color00ff00,layer0,linethick3;
end
金砖1:=sup1>sup2 and c1>sup1;
蓝砖1:=sup1>sup2 and c1<sup1;
if barstatus=2 and 金砖1 then begin
drawtextrel(177,70,' ■'),color00ffff,layer0,linethick3;
end
else
if barstatus=2 and 蓝砖1 then begin
drawtextrel(177,70,' ■'),color00ff00,layer0,linethick3;
end
stickline(金砖,sup,sup1,6,0),color00ffff,layer0;{显示金砖}
stickline(蓝砖,sup,sup1,6,0),color00ff00,layer0;{显示蓝砖}
{显示砖量}
砖量:=(sup-sup1)-(sup1-sup2);
fdu1:=砖量>0;
fdu2:=砖量<0;
if barstatus=2 and fdu1 then begin
drawtextrel(240,70 ,'● 砖量 增大 持股!'),colorred,linethick2;
end
else
if barstatus=2 and fdu2 then begin
drawtextrel(240,70 ,'▼ 砖量 缩小 小心!'),color00ffff,linethick2;
end
{显示红砖 起涨}
jzvar1:=(close+high+low)/(3);
jzvar2:=ema(jzvar1,10);
红砖:=jzvar2>ref(jzvar2,1);
红砖1:=ref(jzvar2,1)>ref(jzvar2,2);
stickline(红砖,jzvar2,ref(jzvar2,1),4,0),colorred,layer0;{显示红砖}
起涨1:=红砖>0;
if barstatus=2 and 起涨1 then begin
drawtextrel(205,110,'■'),colorred,layer0,linethick3;
end
起涨2:=红砖1>0;
if barstatus=2 and 起涨2 then begin
drawtextrel(177,110,' ■'),colorred,layer0,linethick3;
end
{强势股买入信号}
强买:=金砖>0{超级买入}
and 三线上;
{ and 天数<=6;}
vertline(cross(强买,0.1),2),colormagenta,layer2;
drawtext(cross(强买,0.1),c,'----'+numtostrn(c,2)),colormagenta,linethick2,layer0;
drawtext(cross(强买,0.1),h*1.03,'☆强买'),colormagenta,linethick1,align1,layer0;
起涨a:=蓝砖>0 and 红砖>0 and ma21>ref(ma21,1) {起涨买入}
and 天数21<=3;
{and 三线红
and (主升>0 or ref(主升,1)>0) and ref(diff,1)<0;
{and sup1<sup2; }
vertline(cross(起涨a,0.1),2),colorffffff,layer2;
drawtext(cross(起涨a,0.1),c,'----'+numtostrn(c,2)),colorffffff,linethick2,layer0;
drawtext(cross(起涨a,0.1),l*0.97,'☆起涨a'),colorffffff,linethick1,align1,layer0;
起涨b:=c1<sup1 and 蓝砖>0 and 红砖>0 {起涨买入}
{and 三线红}
and (主升>0 or ref(主升,1)>0) and ref(diff,1)<0;
{and sup1<sup2; }
vertline(cross(起涨b,0.1),2),color00ffff,layer2;
drawtext(cross(起涨b,0.1),c,'----'+numtostrn(c,2)),color00ffff,linethick2,layer0;
drawtext(cross(起涨b,0.1),l*0.98,'☆起涨b'),color00ffff,linethick1,align1,layer0;
{强势股买入信号}
mr1:=(c1<sup1 and 金砖>0 and 红砖>0 and 三线上>0)
or (蓝砖1>0 and 金砖>0 and 红砖>0 and 三线上>0)
or (金砖>0 and 三线上);{强买信号}
mr2:=(c1<sup1 and 蓝砖>0 and 红砖>0 and 三线红>0 )
or (蓝砖>0 and 红砖>0 and ma21>ref(ma21,1) and ref(ma21,1)<ref(ma21,2))
or (c1<sup1 and 蓝砖>0 and 红砖>0);{起涨信号}
mr3:=金砖1>0 and 金砖>0 and 红砖>0 and 三线上>0;
mr4:=蓝砖1>0 and 蓝砖>0 and 红砖>0 and 三线上>0;
mr5:=(蓝砖1>0 and 蓝砖>0 and 红砖>0 and 三线红>0) or (金砖1>0 and 蓝砖>0 and 红砖>0 and 三线红>0);
mr6:=回调线>0 and 红砖>0;
mr7:=jzvar2<ref(jzvar2,1) or 红砖=0 or (金砖=0 and 蓝砖=0);
if barstatus=2 and mr1 then begin
drawtextrel(600,50,'● 金砖出现 上涨行情 强买信号 mr1!'),colormagenta,linethick4;
end
else
if barstatus=2 and mr2 then begin
drawtextrel(600,50,'● 趋势转强 上升行情 起涨信号 mr2!'),color00ffff,linethick4;
end
else
if barstatus=2 and mr3 then begin
drawtextrel(600,50,'● 金砖出现 持续上涨行情 持股 mr3!'),color0000ff,linethick4;
end
else
if barstatus=2 and mr4 then begin
drawtextrel(600,50,'● 趋势强 持续上升行情 mr4!'),colormagenta,linethick4;
end
else
if barstatus=2 and mr5 then begin
drawtextrel(600,50,'● 趋势平 持续上升行情 mr5!'),color00ffff,linethick4;
end
else
if barstatus=2 and mr6 then begin
drawtextrel(600,50,'● 金砖出现 回调行情 mr6!'),color00ccff,linethick4;
end
else
if barstatus=2 and mr7 then begin
drawtextrel(600,50,'▼ 金砖消失 看看就好!'),color00ff00,linethick4;
end
mr9:=金砖1>0 and 金砖>0 and jzvar2>ref(jzvar2,1)
and c>hup and c1>ref(hup,1)
and c/ref(c,1)>1.05
and ref(c,1)/ref(c,2)>1.05;
mr10:=金砖1>0 and 金砖>0 and jzvar2>ref(jzvar2,1)
and c>hup and c1>ref(hup,1)
and c/ref(c,1)>1.05
and ref(c,1)/ref(c,2)<1.05;
if barstatus=2 and mr9 then begin
drawtextrel(600,170,' ● 牛股 买入不后悔'),colorred,layer0,linethick2;
end
else
if barstatus=2 and mr10 then begin
drawtextrel(600,170,' ● 牛势 买入不后悔'),color00ffff,layer0,linethick2;
end
{趋势分析}
aaa:=(3*c+h+l+o)/6;
var1:=(8*aaa+7*ref(aaa,1)+6*ref(aaa,2)+5*ref(aaa,3)+4*ref(aaa,4)+3*ref(aaa,5)+2*ref(aaa,6)+ref(aaa,8))/36;
var2:=(hhv(var1,5)+hhv(var1,10)+hhv(var1,20))/3;
var3:=(llv(var1,5)+llv(var1,10)+llv(var1,20))/3;
var4:=(hhv(var2,5)+hhv(var2,10)+hhv(var2,20))/3;
var5:=(llv(var3,5)+llv(var3,10)+llv(var3,20))/3;
var6:=(llv(var1,2)+llv(var1,4)+llv(var1,6))/3;
bbb:=var1>var6 and ref(var1,1)=ref(var6,1);
ccc:=var1>var6 and var6>var4 and ref(var1,1)=ref(var4,1);
ddd:=var1=var4 and var4>ref(var4,1);
eee:=var1>var6 and var1>ref(var1,1) and var6>ref(var6,1);
fff:=ref(var1,1)=ref(var4,1) and var4>var1;
ggg:=var1=var6 and var6<ref(var6,1);
hhh:=var1<ref(var1,1) and var5>var1;
iii:=(var1=var6) or (var6=var4);
if barstatus=2 and bbb then begin
drawtextrel(400,70,'● 调整结束短线介入'),color00ffff,linethick2;
end
else
if barstatus=2 and ccc then begin
drawtextrel(400,70,'● 底部特征建仓时机'),color00ffff,linethick2;
end
else
if barstatus=2 and (ddd or eee) then begin
drawtextrel(400,70,'● 上升通道走势良好'),color0000ff,linethick2;
end
else
if barstatus=2 and fff then begin
drawtextrel(400,70,'▼ 顶部特征注意风险'),color00ff00,linethick2;
end
else
if barstatus=2 and (ggg or hhh or iii) then begin
drawtextrel(400,70,'▼ 下跌通道回避观望'),color00ff00,linethick2;
end
jjj:=ma8/ref(ma8,1)>1.022;
if barstatus=2 and jjj then begin
drawrectrel(870,920,1000,1000,rgb(0,0,255)),layer0,colorffffff,linethick1;
drawtextrel(880,935,'●大胆买入!'),color0000ff,linethick4,layer0;
end
{天河饮马老师的成交量分析}
tt1:=v>ref(v,1) and ma(v,5)>ref(ma(v,5),1);
tt2:=v<ref(v,1) and ma(v,5)>ref(ma(v,5),1);
tt3:=v>ref(v,1) and ma(v,5)<ref(ma(v,5),1);
tt4:=v<ref(v,1) and ma(v,5)<ref(ma(v,5),1);
if barstatus=2 and tt1 then begin
drawtextrel(600,120 ,' ● 今日成交量大于昨日,且有继续增大趋势'),color0000ff,linethick2;
end
else
if barstatus=2 and tt2 then begin
drawtextrel(600,120 ,' ● 今日成交量小于昨日,但有放大迹象'),colorffffff,linethick2;
end
else
if barstatus=2 and tt3 then begin
drawtextrel(600,120 ,' ● 今日成交量大于昨日, 但有缩小迹象'),color00ffff,linethick2;
end
else
if barstatus=2 and tt4 then begin
drawtextrel(600,120 ,' ● 今日成交量小于昨日,且有缩小迹象'),color00ff00,linethick2;
end;
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文金砖主图强势选股公式下载 大智慧金砖强势仅供学习研究。