打印本文
關閉窗口
這個公式看起來是用來預測股票價格的，根據輸入的參數和歷史數據來計算出預測低價、預測高價、漲跌比等指標。其中漲跌比是通過計算前一天的收盤價、最高價、最低價與當天開盤價的差別來得出的，其他指標的計算公式在代碼中都有說明，有的使用了簡單的加減乘除運算，有的則使用了移動平均線等技術指標。
根據預測低價和純利設定，公式還會計算出一個賣出價。在買入之后，如果當前價格大于等于賣出價，則會顯示賣出已到位，可以操作賣出了。反之，如果當前價格小于賣出價，則顯示等待賣出。
根據預測高價、熊價、平均價等指標，公式也會計算出一些強勢、弱勢價位，可以作為參考。最后還有顯示成交量、移動平均等指標的代碼，可以幫助投資者做出更準確的決策。
?
{昨買今賣及預測股價公式}
{參數}
input:N(27,1,250);
{顯示買賣價}
BUYPRICE:="SHOWINV@BUYPRICE"(1);
SALEPRICE:="SHOWINV@SALEPRICE"(1);
IF BUYPRICE> 0 THEN BP:=BUYPRICE;{顯示昨低買今賣操作數據}
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);{預測系數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;
{預測公式一 有用到今天開盤價}
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;
下跌反轉價:=DDD;
EEE:=(EE+上升突破價+上升阻力價+下跌支撐價+下跌反轉價)/5;{心理價}
FFF:=(EEE+開盤價)/2;
{顯示今買最低預測價}
預測低一:=開盤價-B2;{今天預測低價一}
預測低一1:=REF(預測低一,1);{昨天預測價}
預測低一2:=REF(預測低一,2);{前天預測價}
預測低二:=(預測低一+FFF)/2;{今天預測低價二}
預測低二1:=REF(預測低二,1);{昨天預測價}
預測低二2:=REF(預測低二,2);{前天預測價}
差額一:=預測低一-low;
差額二:=預測低二-low;
差比一:=(差額一/low)*100;
差比二:=(差額二/low)*100;
{顯示今日最高預測價公式}
預測高一:=開盤價+B2;{今天預測高價一}
{第二今日最高預測價公式}
預測高二:=MA(REF(HIGH,1)/REF(CLOSE,2),N)*REF(CLOSE,1);{今天預測高價二}
預測高二1:=ref(預測高二,1);{昨天預測價}
預測高二2:=ref(預測高二,2);{前天預測價}
{設定弱勢預測最高價，YPP可自行調整}
YPP一:=0.985;{預測高一弱勢價}
YPP二:=0.989;{預測高二弱勢價}
熊價一:=預測高一*YPP一;
熊價一1:=REF(熊價一,1);
熊價二:=預測高二*YPP二;
熊價二1:=REF(熊價二,1);
平均價一:=(預測高一+預測高二)/2;
平均價二:=(熊價一+熊價二)/2;
{測試昨最低及昨預測低賣出成功率}
check1:(high-預測低二1)/預測低二1*100,linethick0;
low1:=ref(low,1);
check2:(high-low1)/low1*100,linethick0;
DRAWTEXTREL(10,60,' 【今日低買操作數據】 【昨低買今賣操作數據】 純利設定：'+NUMTOSTRN(ref(ppp*100,0),2)+'% 【依據預測價 計算賣出價】' ),coloryellow,linethick1;
DRAWTEXTREL(10,200,' 【今日低買】 預測價 目前差價 目前差比'),Color8000FF,linethick1;
DRAWTEXTREL(10,350,' 預測低一： '+NUMTOSTRN(ref(預測低一,0),2)+'元 '+ NUMTOSTRN(ref(差額一,0),2)+'元 '+ NUMTOSTRN(ref(差比一,0),2)+'%'),colorffffff,linethick1;
DRAWTEXTREL(10,600,' 預測低二： '+NUMTOSTRN(ref(預測低二,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;
{顯示昨低買今賣操作數據}
DRAWTEXTREL(320,200,' 【買入價】 稅后成本 賣出價 到位'),Colorffff80,linethick1;
DRAWTEXTREL(320,350,' '+NUMTOSTR(BP)+'元 '+NUMTOSTR(成本)+'元 '+NUMTOSTR(賣價)+'元'),COLORffffff,linethick1;
{顯示依據預測價計算賣出價}
DRAWTEXTREL(660,200,' 【預測數據】 強 勢 到位 弱 勢 到位'),Color8000FF,linethick1;
DRAWTEXTREL(660,350,' 預測高一： '+NUMTOSTRN(ref(預測高一,0),2)+'元 '+ NUMTOSTRN(ref(熊價一,0),2)+'元'),colorffffff,linethick1;
DRAWTEXTREL(660,500,' 預測高二： '+NUMTOSTRN(ref(預測高二,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:=預測低一>low or 預測低一=low;
ssssu2:=預測低一<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:=預測低二>low or 預測低二=low;
ssssu4:=預測低二<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
{昨日低買操作結果}
lssssu1:=預測低一1>最低價1 or 預測低一1=最低價1;
lssssu2:=預測低一1<最低價1;
IF BARSTATUS=2 AND lssssu1 THEN BEGIN
DRAWTEXTREL(10,480,' 昨 '+NUMTOSTRN(ref(預測低一1,0),2)+'元'),COLORRED,linethick1;
END
?
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?