{四价数据} 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:=砖  | 




