N:=(27);
開盤價:open,linethick0;
開盤價1:=REF(open,1);
最高價:high,linethick0;
最高價1:=REF(high,1);
最低價:low,linethick0;
最低價1:=REF(low,1);
收盤價:CLOSE,linethick0;
收盤價1:=REF(CLOSE,1);
{預測高低指標1}
A1:=REF(開盤價,1);
A2:=ABS((REF(收盤價,1)-A1)/A1);
A3:=ABS((REF(最高價,1)-A1)/A1);
A4:=ABS((REF(最低價,1)-A1)/A1);
B1:=ABS((A2+A3+A4)/3);
B2:=開盤價*B1;
{預測指標2}
AA:=最高價1;
BB:=最低價1;
CC:=開盤價1;
DD:=收盤價1;
EE:=(AA+BB+CC+2*DD)/5;
AAA:=EE+(AA-BB);
BBB:=2*EE-BB;
CCC:=2*EE-AA;
DDD:=EE-(AA-BB);
上升突破價:=AAA;
上升阻力價:=BBB;
下跌支撐價:=CCC;
下跌反轉(zhuǎn)價:=DDD;
EEE:=(EE+上升突破價+上升阻力價+下跌支撐價+下跌反轉(zhuǎn)價)/5;{心理價}
FFF:=(EEE+開盤價)/2;
{顯示預測價}
預測低一:開盤價-B2,linethick0;
預測低二:(預測低一+FFF)/2,linethick0;
預測高一:開盤價+B2,linethick0;
{預測今日最高價指標}
預測高二:MA(REF(HIGH,1)/REF(CLOSE,2),N)*REF(CLOSE,1),linethick0;
差額一:=預測低一-low;
差額二:=預測低二-low;
差比一:=(差額一/low)*100;
差比二:=(差額二/low)*100;
{T + 0 操作數(shù)據(jù)}
pp:=0.0115;{可調(diào)整}
成本價:=預測低二*1.006;{也是買回價}
賣出價:成本價*(1+pp),linethick0;
高低差一:=預測高一-預測低二;
高低差二:=預測高二-預測低二;
差價比一:=賣出價/預測高一*100;
差價比二:=賣出價/預測高二*100;
今日高低比:=(最高價-最低價)/最高價*100;
昨日高低比:=(最高價1-最低價1)/最高價1*100;
{www.iloveholybible.com 概念股網(wǎng)_大智慧股票指標公式}
DRAWTEXTREL(10,60,’ ★ 股票買入操作數(shù)據(jù) ★’ ),coloryellow,linethick1;
DRAWTEXTREL(420,60,’ ★T + 0 操作數(shù)據(jù)★ 目前純利設(shè)定為：’+NUMTOSTRN(ref(pp*100,0),2)+’%’+’ 股價高低比: ‘+NUMTOSTRN(ref(今日高低比,0),2)+’%’),coloryellow,linethick1;
DRAWTEXTREL(10,60,’最低價:’+NUMTOSTRN(ref(最低價,0),2) ),colorffffff,linethick2;
DRAWTEXTREL(320,60,’ 最高價:’+NUMTOSTRN(ref(最高價,0),2)),colorffffff,linethick2;
DRAWTEXTREL(10,200,’買入價預測 預測價 目前差價 目前差比’),COLORD3A9FF,linethick1;
DRAWTEXTREL(10,350,’ 預測低一 ‘+NUMTOSTRN(ref(預測低一,0),2)+’元 ‘+ NUMTOSTRN(ref(差額一,0),2)+’元 ‘+ NUMTOSTRN(ref(差比一,0),2)+’%’),colorffffff,linethick1;
DRAWTEXTREL(10,470,’ 預測低二 ‘+NUMTOSTRN(ref(預測低二,0),2)+’元 ‘+ NUMTOSTRN(ref(差額二,0),2)+’元 ‘+ NUMTOSTRN(ref(差比二,0),2)+’%’),colorffffff,linethick1;
DRAWTEXTREL(330,200,’賣出價預測 預測格 目前高低差 目前高低比 ★ 操作價格’),COLORD3A9FF,linethick1;
DRAWTEXTREL(330,350,’ 預測高一 ‘+NUMTOSTRN(ref(預測高一,0),2)+’元 ‘+ NUMTOSTRN(ref(高低差一,0),2)+’元 ‘+ NUMTOSTRN(ref(差價比一,0),2)+’%’),colorffffff,linethick1;
DRAWTEXTREL(330,470,’ 預測高二 ‘+NUMTOSTRN(ref(預測高二,0),2)+’元 ‘+ NUMTOSTRN(ref(高低差二,0),2)+’元 ‘+ NUMTOSTRN(ref(差價比二,0),2)+’%’),colorffffff,linethick1;
DRAWTEXTREL(600,350,’ 賣出價: ‘+NUMTOSTRN(ref(賣出價,0),2)+’元’),coloryellow,linethick1;
DRAWTEXTREL(600,470,’ 買回價: ‘+NUMTOSTRN(ref(預測低二,0),2)+’元’),coloryellow,linethick1;
{DRAWTEXTREL(750,470,’ 昨日高低比: ‘+NUMTOSTRN(ref(昨日高低比,0),2)+’%’),colorffffff,linethick1;}
ssu1:=賣出價<預測高二 or 賣出價=預測高二;
ssu2:=賣出價>預測高二;;
IF BARSTATUS=2 AND ssu1 THEN BEGIN
DRAWTEXTREL(750,250,’ ★ 設(shè)定成功’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND ssu2 THEN BEGIN
DRAWTEXTREL(750,250,’ ● 設(shè)定失敗’),COLORgreen,linethick1;
END
su1:=預測低二>low and 賣出價 su2:=預測低二>low and 賣出價=high;
su3:=預測低二=low and 賣出價 su4:=預測低二=low and 賣出價=high;
su5:=預測低二 IF BARSTATUS=2 AND su1 THEN BEGIN
DRAWTEXTREL(750,370,’ ★ 操作成功’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND su2 THEN BEGIN
DRAWTEXTREL(750,370,’ ★ 操作成功’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND su3 THEN BEGIN
DRAWTEXTREL(750,370,’ ★ 操作成功’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND su4 THEN BEGIN
DRAWTEXTREL(750,370,’ ★ 操作成功’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND su5 THEN BEGIN
DRAWTEXTREL(750,370,’ ● 買回操作失敗’),COLORgreen,linethick1;
END
su6:=賣出價>high;
IF BARSTATUS=2 AND su6 THEN BEGIN
DRAWTEXTREL(750,480,’ ● 賣出操作失敗’),COLORgreen,linethick1;
END
頂線:=80;
{黃金點:=-20;}
預測一:=-35;
預測二:=-50;
失敗:=-65;
底線:=-75;
DRAWTEXT(DISPSTATUS=2,頂線,’ 80′),COLORred,ALIGN0;
{DRAWTEXT(DISPSTATUS=2,黃金點,’ 黃金買點’),COLORffffff,ALIGN0;}
DRAWTEXT(DISPSTATUS=2,預測一,’ 預測一’),COLORred,ALIGN0;
DRAWTEXT(DISPSTATUS=2,預測二,’ 預測二’),COLORyellow,ALIGN0;
DRAWTEXT(DISPSTATUS=2,失敗,’ 未到位’),COLORgreen,ALIGN0;
DRAWTEXT(DISPSTATUS=2,底線,’ -75′),COLORgreen,ALIGN0;
{DRAWTEXT(low {DRAWTEXT(low>hjmd,-20,’●’),COLORgreen,ALIGN1;}
DRAWTEXT(low<預測低一,-35,'☆'),COLORred,ALIGN1;
DRAWTEXT(low<預測低二,-50,'☆'),COLORyellow,ALIGN1;
DRAWTEXT(low>預測低二,-65,’●’),COLORgreen,ALIGN1;
{說明：紅樹林園 這一段源碼做出來的效果是買點到位閃爍交替顯示[☆到位]和[●失敗]}
Amod:=MOD(CURRENTTIME,2);
DRAWTEXT(DISPSTATUS=2 and Amod=0,70,’預測提示’),colorffffff;
DRAWTEXT(DISPSTATUS=2 and Amod=1,70,’提示預測’),coloryellow;
DRAWTEXT(DISPSTATUS=2 and low<預測低一 and Amod=0,10,'預測一 ☆'),colorred;
DRAWTEXT(DISPSTATUS=2 and low<預測低一 and Amod=1,10,'預測一 ☆'),coloryellow;
DRAWTEXT(DISPSTATUS=2 and low<預測低二 and Amod=0,-10,'預測二 ☆'),colorred;
DRAWTEXT(DISPSTATUS=2 and low<預測低二 and Amod=1,-10,'預測二 ☆'),coloryellow;
DRAWTEXT(DISPSTATUS=2 and low>預測低一 and Amod=0,10,’預測一 ●’),colorgreen;
DRAWTEXT(DISPSTATUS=2 and low>預測低一 and Amod=1,10,’預測一 ●’),colorffffff;
DRAWTEXT(DISPSTATUS=2 and low>預測低二 and Amod=0,-10,’預測二 ●’),colorgreen;
DRAWTEXT(DISPSTATUS=2 and low>預測低二 and Amod=1,-10,’預測二 ●’),colorffffff;
DRAWTEXT(DISPSTATUS=2 and 賣出價 DRAWTEXT(DISPSTATUS=2 and 賣出價 DRAWTEXT(DISPSTATUS=2 and 賣出價>high and Amod=0,50,’賣出價 ●’),colorgreen;
DRAWTEXT(DISPSTATUS=2 and 賣出價>high and Amod=1,50,’賣出價 ●’),colorffffff;
DRAWTEXT(DISPSTATUS=2 and 預測低二>low and Amod=0,30,’買回價 ☆’),colorred;
DRAWTEXT(DISPSTATUS=2 and 預測低二>low and Amod=1,30,’買回價 ☆’),coloryellow;
DRAWTEXT(DISPSTATUS=2 and 預測低二 DRAWTEXT(DISPSTATUS=2 and 預測低二