软件名称：[B]金砖主图 强势选股[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：27.0 KB
官方主页：Home Page
更新时间：2018-11-20 00:18:20
软件简介:
{四价数据}
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:=砖
[url=http://www.70822.com/soft/sort013/sort03/down-130499.html]金砖主图 强势选股[/url]
[url=http://www.70822.com/soft/sort013/sort03/down-130499.html]金砖主图 强势选股[/url]