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

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

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

?

{昨買今賣及預(yù)測股價公式}
{參數(shù)}
input:N(27,1,250);
{顯示買賣價}
BUYPRICE:="SHOWINV@BUYPRICE"(1);
SALEPRICE:="SHOWINV@SALEPRICE"(1);
IF BUYPRICE> 0 THEN BP:=BUYPRICE;{顯示昨低買今賣操作數(shù)據(jù)}
ppp:=0.015;{輸入賣出純利}
成本:=BP*1.006;
賣價:成本*(1+ppp),linethick0;
{四價運用}
開盤價:open,linethick0;
開盤價1:=REF(open,1);{昨天最低價}
最高價:high,linethick0;
最高價1:=REF(high,1);
最低價:low,linethick0;
最低價1:=REF(low,1);
最低價2:=REF(low,2);
收盤價:CLOSE,linethick0;
收盤價1:=REF(CLOSE,1);{預(yù)測系數(shù)B2計算公式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,linethick0;
漲跌比:B2/開盤價*100,linethick0;
{預(yù)測公式一 有用到今天開盤價}
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;
{顯示今買最低預(yù)測價}
預(yù)測低一:=開盤價-B2;{今天預(yù)測低價一}
預(yù)測低一1:=REF(預(yù)測低一,1);{昨天預(yù)測價}
預(yù)測低一2:=REF(預(yù)測低一,2);{前天預(yù)測價}
預(yù)測低二:=(預(yù)測低一+FFF)/2;{今天預(yù)測低價二}
預(yù)測低二1:=REF(預(yù)測低二,1);{昨天預(yù)測價}
預(yù)測低二2:=REF(預(yù)測低二,2);{前天預(yù)測價}
差額一:=預(yù)測低一-low;
差額二:=預(yù)測低二-low;
差比一:=(差額一/low)*100;
差比二:=(差額二/low)*100;
{顯示今日最高預(yù)測價公式}
預(yù)測高一:=開盤價+B2;{今天預(yù)測高價一}
{第二今日最高預(yù)測價公式}
預(yù)測高二:=MA(REF(HIGH,1)/REF(CLOSE,2),N)*REF(CLOSE,1);{今天預(yù)測高價二}
預(yù)測高二1:=ref(預(yù)測高二,1);{昨天預(yù)測價}
預(yù)測高二2:=ref(預(yù)測高二,2);{前天預(yù)測價}
{設(shè)定弱勢預(yù)測最高價，YPP可自行調(diào)整}
YPP一:=0.985;{預(yù)測高一弱勢價}
YPP二:=0.989;{預(yù)測高二弱勢價}
熊價一:=預(yù)測高一*YPP一;
熊價一1:=REF(熊價一,1);
熊價二:=預(yù)測高二*YPP二;
熊價二1:=REF(熊價二,1);
平均價一:=(預(yù)測高一+預(yù)測高二)/2;
平均價二:=(熊價一+熊價二)/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ù)測價 計算賣出價】' ),coloryellow,linethick1;
DRAWTEXTREL(10,200,' 【今日低買】 預(yù)測價 目前差價 目前差比'),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,' 今 最低價：'+NUMTOSTRN(ref(最低價,0),2)+'元 最高價：'+NUMTOSTRN(ref(最高價,0),2)+'元'),coloryellow,linethick1;
DRAWTEXTREL(320,745,' 昨 最低價：'+NUMTOSTRN(ref(最低價1,0),2)+'元 最高價：'+NUMTOSTRN(ref(最高價1,0),2)+'元'),COLORD3A9FF,linethick1;
DRAWTEXTREL(320,615,' 開盤價：'+NUMTOSTRN(ref(開盤價,0),2)+'元 收盤價：'+NUMTOSTRN(ref(收盤價,0),2)+'元'),coloryellow,linethick1;
DRAWTEXTREL(320,860,' 開盤價：'+NUMTOSTRN(ref(開盤價1,0),2)+'元 收盤價：'+NUMTOSTRN(ref(收盤價1,0),2)+'元'),COLORD3A9FF,linethick1;
{顯示昨低買今賣操作數(shù)據(jù)}
DRAWTEXTREL(320,200,' 【買入價】 稅后成本 賣出價 到位'),Colorffff80,linethick1;
DRAWTEXTREL(320,350,' '+NUMTOSTR(BP)+'元 '+NUMTOSTR(成本)+'元 '+NUMTOSTR(賣價)+'元'),COLORffffff,linethick1;
{顯示依據(jù)預(yù)測價計算賣出價}
DRAWTEXTREL(660,200,' 【預(yù)測數(shù)據(jù)】 強 勢 到位 弱 勢 到位'),Color8000FF,linethick1;
DRAWTEXTREL(660,350,' 預(yù)測高一： '+NUMTOSTRN(ref(預(yù)測高一,0),2)+'元 '+ NUMTOSTRN(ref(熊價一,0),2)+'元'),colorffffff,linethick1;
DRAWTEXTREL(660,500,' 預(yù)測高二： '+NUMTOSTRN(ref(預(yù)測高二,0),2)+'元 '+ NUMTOSTRN(ref(熊價二,0),2)+'元'),colorffffff,linethick1;
DRAWTEXTREL(660,650,' 平均價 ： '+NUMTOSTRN(ref(平均價一,0),2)+'元 '+ NUMTOSTRN(ref(平均價二,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>最低價1 or 預(yù)測低一1=最低價1;
lssssu2:=預(yù)測低一1<最低價1;
IF BARSTATUS=2 AND lssssu1 THEN BEGIN
DRAWTEXTREL(10,480,' 昨 '+NUMTOSTRN(ref(預(yù)測低一1,0),2)+'元'),COLORRED,linethick1;
END
?

?

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

?