這個(gè)公式看起來是用來預(yù)測股票價(jià)格的，根據(jù)輸入的參數(shù)和歷史數(shù)據(jù)來計(jì)算出預(yù)測低價(jià)、預(yù)測高價(jià)、漲跌比等指標(biāo)。其中漲跌比是通過計(jì)算前一天的收盤價(jià)、最高價(jià)、最低價(jià)與當(dāng)天開盤價(jià)的差別來得出的，其他指標(biāo)的計(jì)算公式在代碼中都有說明，有的使用了簡單的加減乘除運(yùn)算，有的則使用了移動(dòng)平均線等技術(shù)指標(biāo)。

根據(jù)預(yù)測低價(jià)和純利設(shè)定，公式還會計(jì)算出一個(gè)賣出價(jià)。在買入之后，如果當(dāng)前價(jià)格大于等于賣出價(jià)，則會顯示賣出已到位，可以操作賣出了。反之，如果當(dāng)前價(jià)格小于賣出價(jià)，則顯示等待賣出。

根據(jù)預(yù)測高價(jià)、熊價(jià)、平均價(jià)等指標(biāo)，公式也會計(jì)算出一些強(qiáng)勢、弱勢價(jià)位，可以作為參考。最后還有顯示成交量、移動(dòng)平均等指標(biāo)的代碼，可以幫助投資者做出更準(zhǔn)確的決策。

?

{昨買今賣及預(yù)測股價(jià)公式}
{參數(shù)}
input:N(27,1,250);
{顯示買賣價(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)用}
開盤價(jià):open,linethick0;
開盤價(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ù)測系數(shù)B2計(jì)算公式1}
A1:=REF(開盤價(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:開盤價(jià)*B1,linethick0;
漲跌比:B2/開盤價(jià)*100,linethick0;
{預(yù)測公式一 有用到今天開盤價(jià)}
AA:=最高價(jià)1;
BB:=最低價(jià)1;
CC:=開盤價(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+開盤價(jià))/2;
{顯示今買最低預(yù)測價(jià)}
預(yù)測低一:=開盤價(jià)-B2;{今天預(yù)測低價(jià)一}
預(yù)測低一1:=REF(預(yù)測低一,1);{昨天預(yù)測價(jià)}
預(yù)測低一2:=REF(預(yù)測低一,2);{前天預(yù)測價(jià)}
預(yù)測低二:=(預(yù)測低一+FFF)/2;{今天預(yù)測低價(jià)二}
預(yù)測低二1:=REF(預(yù)測低二,1);{昨天預(yù)測價(jià)}
預(yù)測低二2:=REF(預(yù)測低二,2);{前天預(yù)測價(jià)}
差額一:=預(yù)測低一-low;
差額二:=預(yù)測低二-low;
差比一:=(差額一/low)*100;
差比二:=(差額二/low)*100;
{顯示今日最高預(yù)測價(jià)公式}
預(yù)測高一:=開盤價(jià)+B2;{今天預(yù)測高價(jià)一}
{第二今日最高預(yù)測價(jià)公式}
預(yù)測高二:=MA(REF(HIGH,1)/REF(CLOSE,2),N)*REF(CLOSE,1);{今天預(yù)測高價(jià)二}
預(yù)測高二1:=ref(預(yù)測高二,1);{昨天預(yù)測價(jià)}
預(yù)測高二2:=ref(預(yù)測高二,2);{前天預(yù)測價(jià)}
{設(shè)定弱勢預(yù)測最高價(jià)，YPP可自行調(diào)整}
YPP一:=0.985;{預(yù)測高一弱勢價(jià)}
YPP二:=0.989;{預(yù)測高二弱勢價(jià)}
熊價(jià)一:=預(yù)測高一*YPP一;
熊價(jià)一1:=REF(熊價(jià)一,1);
熊價(jià)二:=預(yù)測高二*YPP二;
熊價(jià)二1:=REF(熊價(jià)二,1);
平均價(jià)一:=(預(yù)測高一+預(yù)測高二)/2;
平均價(jià)二:=(熊價(jià)一+熊價(jià)二)/2;
{測試昨最低及昨預(yù)測低賣出成功率}
check1:(high-預(yù)測低二1)/預(yù)測低二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ù)測價(jià) 計(jì)算賣出價(jià)】' ),coloryellow,linethick1;
DRAWTEXTREL(10,200,' 【今日低買】 預(yù)測價(jià) 目前差價(jià) 目前差比'),Color8000FF,linethick1;
DRAWTEXTREL(10,350,' 預(yù)測低一： '+NUMTOSTRN(ref(預(yù)測低一,0),2)+'元 '+ NUMTOSTRN(ref(差額一,0),2)+'元 '+ NUMTOSTRN(ref(差比一,0),2)+'%'),colorffffff,linethick1;
DRAWTEXTREL(10,600,' 預(yù)測低二： '+NUMTOSTRN(ref(預(yù)測低二,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,' 開盤價(jià)：'+NUMTOSTRN(ref(開盤價(jià),0),2)+'元 收盤價(jià)：'+NUMTOSTRN(ref(收盤價(jià),0),2)+'元'),coloryellow,linethick1;
DRAWTEXTREL(320,860,' 開盤價(jià)：'+NUMTOSTRN(ref(開盤價(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ù)測價(jià)計(jì)算賣出價(jià)}
DRAWTEXTREL(660,200,' 【預(yù)測數(shù)據(jù)】 強(qiáng) 勢 到位 弱 勢 到位'),Color8000FF,linethick1;
DRAWTEXTREL(660,350,' 預(yù)測高一： '+NUMTOSTRN(ref(預(yù)測高一,0),2)+'元 '+ NUMTOSTRN(ref(熊價(jià)一,0),2)+'元'),colorffffff,linethick1;
DRAWTEXTREL(660,500,' 預(yù)測高二： '+NUMTOSTRN(ref(預(yù)測高二,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<BP;
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ù)測低一>low or 預(yù)測低一=low;
ssssu2:=預(yù)測低一<low;
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ù)測低二>low or 預(yù)測低二=low;
ssssu4:=預(yù)測低二<low;
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ù)測低一1>最低價(jià)1 or 預(yù)測低一1=最低價(jià)1;
lssssu2:=預(yù)測低一1<最低價(jià)1;
IF BARSTATUS=2 AND lssssu1 THEN BEGIN
DRAWTEXTREL(10,480,' 昨 '+NUMTOSTRN(ref(預(yù)測低一1,0),2)+'元'),COLORRED,linethick1;
END
?

?

公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】

?