N:=27;
{顯示買賣價(jià)}
BUYPRICE:=”SHOWINV@BUYPRICE”(1);
SALEPRICE:=”SHOWINV@SALEPRICE”(1);
IF BUYPRICE> 0 THEN BP:=BUYPRICE;
{顯示昨低買今賣操作數(shù)據(jù)}
ppp:=0.015;{輸入賣出純利}
成本:=BP*1.006;
賣價(jià):成本*(1+ppp),linethick0;
{四價(jià)運(yùn)用}
開(kāi)盤價(jià):open,linethick0;
開(kāi)盤價(jià)1:=REF(open,1);{昨天最低價(jià)}
最高價(jià):high,linethick0;
最高價(jià)1:=REF(high,1);
最低價(jià):low,linethick0;
最低價(jià)1:=REF(low,1);
最低價(jià)2:=REF(low,2);
收盤價(jià):CLOSE,linethick0;
收盤價(jià)1:=REF(CLOSE,1);

{預(yù)測(cè)系數(shù)B2計(jì)算公式1}
A1:=REF(開(kāi)盤價(jià),1);
A2:=ABS((REF(收盤價(jià),1)-A1)/A1);
A3:=ABS((REF(最高價(jià),1)-A1)/A1);
A4:=ABS((REF(最低價(jià),1)-A1)/A1);
B1:=ABS((A2+A3+A4)/3);
B2:開(kāi)盤價(jià)*B1,linethick0;
漲跌比:B2/開(kāi)盤價(jià)*100,linethick0;
{預(yù)測(cè)公式一 有用到今天開(kāi)盤價(jià)}
AA:=最高價(jià)1;
BB:=最低價(jià)1;
CC:=開(kāi)盤價(jià)1;
DD:=收盤價(jià)1;
EE:=(AA+BB+CC+2*DD)/5;
AAA:=EE+(AA-BB);
BBB:=2*EE-BB;
CCC:=2*EE-AA;
DDD:=EE-(AA-BB);
上升突破價(jià):=AAA;
上升阻力價(jià):=BBB;
下跌支撐價(jià):=CCC;
下跌反轉(zhuǎn)價(jià):=DDD;
EEE:=(EE+上升突破價(jià)+上升阻力價(jià)+下跌支撐價(jià)+下跌反轉(zhuǎn)價(jià))/5;{心理價(jià)}
FFF:=(EEE+開(kāi)盤價(jià))/2;
{顯示今買最低預(yù)測(cè)價(jià)}
預(yù)測(cè)低一:=開(kāi)盤價(jià)-B2;{今天預(yù)測(cè)低價(jià)一}
預(yù)測(cè)低一1:=REF(預(yù)測(cè)低一,1);{昨天預(yù)測(cè)價(jià)}
預(yù)測(cè)低一2:=REF(預(yù)測(cè)低一,2);{前天預(yù)測(cè)價(jià)}
預(yù)測(cè)低二:=(預(yù)測(cè)低一+FFF)/2;{今天預(yù)測(cè)低價(jià)二}
預(yù)測(cè)低二1:=REF(預(yù)測(cè)低二,1);{昨天預(yù)測(cè)價(jià)}
預(yù)測(cè)低二2:=REF(預(yù)測(cè)低二,2);{前天預(yù)測(cè)價(jià)}
差額一:=預(yù)測(cè)低一-low;
差額二:=預(yù)測(cè)低二-low;
差比一:=(差額一/low)*100;
差比二:=(差額二/low)*100;
{顯示今日最高預(yù)測(cè)價(jià)公式}
預(yù)測(cè)高一:=開(kāi)盤價(jià)+B2;{今天預(yù)測(cè)高價(jià)一}
{第二今日最高預(yù)測(cè)價(jià)公式}
預(yù)測(cè)高二:=MA(REF(HIGH,1)/REF(CLOSE,2),N)*REF(CLOSE,1);{今天預(yù)測(cè)高價(jià)二}
預(yù)測(cè)高二1:=ref(預(yù)測(cè)高二,1);{昨天預(yù)測(cè)價(jià)}
預(yù)測(cè)高二2:=ref(預(yù)測(cè)高二,2);{前天預(yù)測(cè)價(jià)}
{設(shè)定弱勢(shì)預(yù)測(cè)最高價(jià)，YPP可自行調(diào)整}
YPP一:=0.985;{預(yù)測(cè)高一弱勢(shì)價(jià)}
YPP二:=0.989;{預(yù)測(cè)高二弱勢(shì)價(jià)}
熊價(jià)一:=預(yù)測(cè)高一*YPP一;
熊價(jià)一1:=REF(熊價(jià)一,1);
熊價(jià)二:=預(yù)測(cè)高二*YPP二;
熊價(jià)二1:=REF(熊價(jià)二,1);
平均價(jià)一:=(預(yù)測(cè)高一+預(yù)測(cè)高二)/2;
平均價(jià)二:=(熊價(jià)一+熊價(jià)二)/2;
{測(cè)試昨最低及昨預(yù)測(cè)低賣出成功率}
check1:(high-預(yù)測(cè)低二1)/預(yù)測(cè)低二1*100,linethick0;
low1:=ref(low,1);
check2:(high-low1)/low1*100,linethick0;
DRAWTEXTREL(10,60,’ 【今日低買操作數(shù)據(jù)】 【昨低買今賣操作數(shù)據(jù)】純利設(shè)定：’+NUMTOSTRN(ref(ppp*100,0),2)+’% 【依據(jù)預(yù)測(cè)價(jià) 計(jì)算賣出價(jià)】’ ),coloryellow,linethick1;
DRAWTEXTREL(10,200,’ 【今日低買】 預(yù)測(cè)價(jià) 目前差價(jià) 目前差比’),Color8000FF,linethick1;
DRAWTEXTREL(10,350,’ 預(yù)測(cè)低一： ‘+NUMTOSTRN(ref(預(yù)測(cè)低一,0),2)+’元 ‘+ NUMTOSTRN(ref(差額一,0),2)+’元 ‘+ NUMTOSTRN(ref(差比一,0),2)+’%’),colorffffff,linethick1;
DRAWTEXTREL(10,600,’ 預(yù)測(cè)低二： ‘+NUMTOSTRN(ref(預(yù)測(cè)低二,0),2)+’元 ‘+ NUMTOSTRN(ref(差額二,0),2)+’元 ‘+ NUMTOSTRN(ref(差比二,0),2)+’%’),colorffffff,linethick1;
DRAWTEXTREL(320,500,’ 今最低價(jià)：’+NUMTOSTRN(ref(最低價(jià),0),2)+’元 最高價(jià)：’+NUMTOSTRN(ref(最高價(jià),0),2)+’元’),coloryellow,linethick1;
DRAWTEXTREL(320,745,’ 昨最低價(jià)：’+NUMTOSTRN(ref(最低價(jià)1,0),2)+’元 最高價(jià)：’+NUMTOSTRN(ref(最高價(jià)1,0),2)+’元’),COLORD3A9FF,linethick1;
DRAWTEXTREL(320,615,’ 開(kāi)盤價(jià)：’+NUMTOSTRN(ref(開(kāi)盤價(jià),0),2)+’元 收盤價(jià)：’+NUMTOSTRN(ref(收盤價(jià),0),2)+’元’),coloryellow,linethick1;
DRAWTEXTREL(320,860,’ 開(kāi)盤價(jià)：’+NUMTOSTRN(ref(開(kāi)盤價(jià)1,0),2)+’元 收盤價(jià)：’+NUMTOSTRN(ref(收盤價(jià)1,0),2)+’元’),COLORD3A9FF,linethick1;
{顯示昨低買今賣操作數(shù)據(jù)}
DRAWTEXTREL(320,200,’ 【買入價(jià)】 稅后成本 賣出價(jià) 到位’),Colorffff80,linethick1;
DRAWTEXTREL(320,350,’ ‘+NUMTOSTR(BP)+’元 ‘+NUMTOSTR(成本)+’元 ‘+NUMTOSTR(賣價(jià))+’元’),COLORffffff,linethick1;
{顯示依據(jù)預(yù)測(cè)價(jià)計(jì)算賣出價(jià)}
DRAWTEXTREL(660,200,’ 【預(yù)測(cè)數(shù)據(jù)】 強(qiáng)勢(shì) 到位 弱勢(shì) 到位’),Color8000FF,linethick1;
DRAWTEXTREL(660,350,’ 預(yù)測(cè)高一： ‘+NUMTOSTRN(ref(預(yù)測(cè)高一,0),2)+’元 ‘+ NUMTOSTRN(ref(熊價(jià)一,0),2)+’元’),colorffffff,linethick1;
DRAWTEXTREL(660,500,’ 預(yù)測(cè)高二： ‘+NUMTOSTRN(ref(預(yù)測(cè)高二,0),2)+’元 ‘+ NUMTOSTRN(ref(熊價(jià)二,0),2)+’元’),colorffffff,linethick1;
DRAWTEXTREL(660,650,’ 平均價(jià) ： ‘+NUMTOSTRN(ref(平均價(jià)一,0),2)+’元 ‘+ NUMTOSTRN(ref(平均價(jià)二,0),2)+’元’),colorffffff,linethick1;
{顯示賣出與否}
BBP1:=high>BP or high=BP;
BBP2:=high IF BARSTATUS=2 AND BBP1 THEN BEGIN
DRAWTEXTREL(320,350,’ ★’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND BBP2 THEN BEGIN
DRAWTEXTREL(320,350,’ ●’),COLORgreen,linethick1;
END
{顯示今日低買操作}
ssssu1:=預(yù)測(cè)低一>low or 預(yù)測(cè)低一=low;
ssssu2:=預(yù)測(cè)低一 IF BARSTATUS=2 AND ssssu1 THEN BEGIN
DRAWTEXTREL(10,480,’ 到 位: ★’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND ssssu2 THEN BEGIN
DRAWTEXTREL(10,480,’ 到 位: ●’),COLORgreen,linethick1;
END
ssssu3:=預(yù)測(cè)低二>low or 預(yù)測(cè)低二=low;
ssssu4:=預(yù)測(cè)低二 IF BARSTATUS=2 AND ssssu3 THEN BEGIN
DRAWTEXTREL(10,730,’ 到 位: ★’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND ssssu4 THEN BEGIN
DRAWTEXTREL(10,730,’ 到 位: ●’),COLORgreen,linethick1;
END
{昨日低買操作結(jié)果}
lssssu1:=預(yù)測(cè)低一1>最低價(jià)1 or 預(yù)測(cè)低一1=最低價(jià)1;
lssssu2:=預(yù)測(cè)低一1<最低價(jià)1;
IF BARSTATUS=2 AND lssssu1 THEN BEGIN
DRAWTEXTREL(10,480,’ 昨 ★ ‘+NUMTOSTRN(ref(預(yù)測(cè)低一1,0),2)+’元’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND lssssu2 THEN BEGIN
DRAWTEXTREL(10,480,’ 昨 ● ‘+NUMTOSTRN(ref(預(yù)測(cè)低一1,0),2)+’元’),COLORgreen,linethick1;
DRAWTEXTABS(5,5,’概念股網(wǎng) www.chiang1015.com’),linethick1,COLOR00EEff;
END
lssssu3:=預(yù)測(cè)低二1>最低價(jià)1 or 預(yù)測(cè)低二=最低價(jià)1;
lssssu4:=預(yù)測(cè)低二1<最低價(jià)1;
IF BARSTATUS=2 AND lssssu3 THEN BEGIN
DRAWTEXTREL(10,730,’ 昨 ★ ‘+NUMTOSTRN(ref(預(yù)測(cè)低二1,0),2)+’元’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND lssssu4 THEN BEGIN
DRAWTEXTREL(10,730,’ 昨 ● ‘+NUMTOSTRN(ref(預(yù)測(cè)低二1,0),2)+’元’),COLORgreen,linethick1;
END
{昨今日四價(jià)漲跌比}
su1:=最低價(jià)>最低價(jià)1;
su2:=最低價(jià)=最低價(jià)1;
su3:=最低價(jià)<最低價(jià)1;
IF BARSTATUS=2 AND su1 THEN BEGIN
DRAWTEXTREL(470,500,’★’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND su2 THEN BEGIN
DRAWTEXTREL(470,500,’★’),COLORffffff,linethick1;
END
ELSE
IF BARSTATUS=2 AND su3 THEN BEGIN
DRAWTEXTREL(470,500,’●’),COLORgreen,linethick1;
END
su4:=最高價(jià)>最高價(jià)1;
su5:=最高價(jià)=最高價(jià)1;
su6:=最高價(jià)<最高價(jià)1;
IF BARSTATUS=2 AND su4 THEN BEGIN
DRAWTEXTREL(620,500,’★’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND su5 THEN BEGIN
DRAWTEXTREL(620,500,’★’),COLORffffff,linethick1;
END
ELSE
IF BARSTATUS=2 AND su6 THEN BEGIN
DRAWTEXTREL(620,500,’●’),COLORgreen,linethick1;
END
su7:=開(kāi)盤價(jià)>開(kāi)盤價(jià)1;
su8:=開(kāi)盤價(jià)=開(kāi)盤價(jià)1;
su9:=開(kāi)盤價(jià)<開(kāi)盤價(jià)1;
IF BARSTATUS=2 AND su7 THEN BEGIN
DRAWTEXTREL(470,615,’★’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND su8 THEN BEGIN
DRAWTEXTREL(470,615,’★’),COLORffffff,linethick1;
END
ELSE
IF BARSTATUS=2 AND su9 THEN BEGIN
DRAWTEXTREL(470,615,’●’),COLORgreen,linethick1;
END
suu1:=收盤價(jià)>收盤價(jià)1;
suu2:=收盤價(jià)=收盤價(jià)1;
suu3:=收盤價(jià)<收盤價(jià)1;
IF BARSTATUS=2 AND suu1 THEN BEGIN
DRAWTEXTREL(620,615,’★’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND suu2 THEN BEGIN
DRAWTEXTREL(620,615,’★’),COLORffffff,linethick1;
END
ELSE
IF BARSTATUS=2 AND suu3 THEN BEGIN
DRAWTEXTREL(620,615,’●’),COLORgreen,linethick1;
END
{顯示預(yù)測(cè)高價(jià)}
ssuu1:=預(yù)測(cè)高一 ssuu2:=預(yù)測(cè)高一>high;
IF BARSTATUS=2 AND ssuu1 THEN BEGIN
DRAWTEXTREL(660,350,’ ★’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND ssuu2 THEN BEGIN
DRAWTEXTREL(660,350,’ ●’),COLORgreen,linethick1;
END
ssuu3:=預(yù)測(cè)高二 ssuu4:=預(yù)測(cè)高二>high;
IF BARSTATUS=2 AND ssuu3 THEN BEGIN
DRAWTEXTREL(660,500,’ ★’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND ssuu4 THEN BEGIN
DRAWTEXTREL(660,500,’ ●’),COLORgreen,linethick1;
END
ssuu5:=平均價(jià)一 ssuu6:=平均價(jià)一>high;
IF BARSTATUS=2 AND ssuu5 THEN BEGIN
DRAWTEXTREL(660,650,’ ★’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND ssuu6 THEN BEGIN
DRAWTEXTREL(660,650,’ ●’),COLORgreen,linethick1;
END
ssu1:=熊價(jià)一 ssu2:=熊價(jià)一>high;
IF BARSTATUS=2 AND ssu1 THEN BEGIN
DRAWTEXTREL(660,350,’ ★ ‘),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND ssu2 THEN BEGIN
DRAWTEXTREL(660,350,’ ●’),COLORgreen,linethick1;
END
ssu3:=熊價(jià)二 ssu4:=熊價(jià)二>high;
IF BARSTATUS=2 AND ssu3 THEN BEGIN
DRAWTEXTREL(660,500,’ ★’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND ssu4 THEN BEGIN
DRAWTEXTREL(660,500,’ ●’),COLORgreen,linethick1;
END
ssu5:=平均價(jià)二 ssu6:=平均價(jià)二>high;
IF BARSTATUS=2 AND ssu5 THEN BEGIN
DRAWTEXTREL(660,650,’ ★’),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND ssu6 THEN BEGIN
DRAWTEXTREL(660,650,’ ●’),COLORgreen,linethick1;
END
chec1:=預(yù)測(cè)低二1*1.006*(1+ppp) chec2:=預(yù)測(cè)低二1*1.006*(1+ppp)>high;
IF BARSTATUS=2 AND chec1 THEN BEGIN
DRAWTEXTREL(660,780,’ 測(cè) 試: 昨預(yù)測(cè)低二 ★ ‘),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND chec2 THEN BEGIN
DRAWTEXTREL(660,780,’ 測(cè) 試: 昨預(yù)測(cè)低二 ●’),COLORgreen,linethick1;
END
chec3:=high>最低價(jià)1*1.006*(1+ppp) or high=最低價(jià)1*1.006*(1+ppp);
chec4:=high<最低價(jià)1*1.006*(1+ppp);
IF BARSTATUS=2 AND chec3 THEN BEGIN
DRAWTEXTREL(660,780,’ 昨最低價(jià) ★ ‘),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND chec4 THEN BEGIN
DRAWTEXTREL(660,780,’ 昨最低價(jià) ●’),COLORgreen,linethick1;
END
賣一:=預(yù)測(cè)低二1*1.006*(1+ppp);
賣二:=最低價(jià)1*1.006*(1+ppp);
DRAWTEXTREL(660,880,’ 賣出價(jià): ‘+NUMTOSTRN(ref(賣一,0),2)+’元 ‘+ NUMTOSTRN(ref(賣二,0),2)+’元’),colorffffff,linethick1;