標簽: 股票 | 分類: 網(wǎng)上收集的選股 |
感謝蔡佑佑老師,向您匯報一下學習體會,共同進步:
二、“昨買今賣”四個核心預(yù)測數(shù)據(jù)中,預(yù)測高一和預(yù)測高二由于計算思路不一致,會出現(xiàn)有時預(yù)測高一數(shù)據(jù)大,有時高二數(shù)據(jù)大的情況,但這不影響使用,都是說明進入了高位了,應(yīng)該注意了。但如果從追求完美的角度出發(fā),需要我們找出更好的計算方法。
當初“昨買今賣”構(gòu)思的本意是:(幾乎忘了,原因是給怎么選股,怎么買忙忘了)
1,昨天的最低價與今天的最高價中間的差別很可觀,有的十幾%以上,比一個漲停還高,各位可以把所有股票查查就知道,.所以,這個構(gòu)思應(yīng)該是正確的。
2.可是,用什么方法,找出來呢!測試過“強勢股”的方法,如“仿融勝”,“五合一”再加上“發(fā)動機副圖”等等,成績也很好(80%以上),最可靠是“資金流向”最好100%,我說的是昨天的最低價與今天的最高價的差比。
3.至于用什么方法能買到最接近最低價應(yīng)該又是另一課題,也曾說過誰有比“預(yù)測一”,“預(yù)測二”更準的方法,請大家提供,以前的帖子我曾提起“黃金買點”,預(yù)測到的機會很大,可惜價格差太遠。
4.總歸一句話,“昨買今賣”構(gòu)思應(yīng)該算是正確的,至于怎么選股,什么價買,該是大家可探討的另一課題,也希望集根據(jù)珠穆朗瑪峰88先生的構(gòu)思,將“昨買今賣”及“低買高賣”兩公式(可當盤后分析使用),作成及時跳動行情直觀圖,可在買賣過程中更容易一眼看出及時行情(直觀的概念),提供大家參考,因為是初稿出錯在所難免,還望大家改進優(yōu)化,成炒股的利器。用法:
1.左圖,是今天準備買股的數(shù)據(jù),右圖是昨天買了,今天準備賣的數(shù)據(jù)。
2.第一行,紅色框,就是“及時跳動價位”。
3.第二行,左圖(應(yīng)該不用介紹了),右圖顯示準備賣的價位,百分比就在下面(第三行)。
4.第三行,“最高價”及“最低價”也是“及時行情”會變動的,“強勢及弱勢高價”是設(shè)定好的(昨買今賣預(yù)測高價的平均價),其余該不用介紹了。
5.本公式有引用“昨買今賣”資料,所以您軟件要裝上它。
6.有應(yīng)用“主圖顯示投資記錄”公式,所以也要裝上,同時要輸入您買的股票,日期及價格否則不會顯示。
最重要的,再次感謝珠穆朗瑪峰88先生,沒他看不見這個直觀理念,同時公式精華也是他寫的,我只不過填上數(shù)據(jù)而已,再次謝謝珠穆朗瑪峰88先生鼎力相助。
源碼,F(xiàn)NC及附圖如下:
{買入賣出及時直觀柱圖}
開盤價:open,PRECIS2,linethick0;
最高價:high,PRECIS2,linethick0;
最低價:low,PRECIS2,linethick0;
收盤價:CLOSE,PRECIS2,linethick0;
開盤價1:REF(open,1),PRECIS2,linethick0;
最高價1:REF(high,1),PRECIS2,linethick0;
最低價1:REF(low,1),PRECIS2,linethick0;
收盤價1:REF(CLOSE,1),PRECIS2,linethick0;
{引用 昨買今賣}
預(yù)測低一:"昨買今賣.預(yù)測低一",PRECIS2,linethick0;
預(yù)測低二:"昨買今賣.預(yù)測低二",PRECIS2,linethick0;
平均價一:="昨買今賣.平均價一";{強勢高價}
平均價二:="昨買今賣.平均價二";{弱勢高價}
{買入及時直觀柱圖}
DRAWRECTREL(50,400,110,600,rgb(255,97,0));
DRAWRECTREL(50,600,110,800,rgb(255,0,255));
DRAWRECTREL(110,400,170,600,rgb(255,153,18));
DRAWRECTREL(110,600,170,800,rgb(255,153,18));
DRAWRECTREL(170,400,230,600,rgb(255,215,0));
DRAWRECTREL(170,600,230,800,rgb(255,215,0));
DRAWRECTREL(230,400,290,600,rgb(255,255,0));
DRAWRECTREL(230,600,290,800,rgb(255,255,0));
DRAWRECTREL(290,400,350,600,rgb(127,255,212));
DRAWRECTREL(290,600,350,800,rgb(127,255,212));
DRAWRECTREL(350,400,410,600,rgb(64,224,208));
DRAWRECTREL(350,600,410,800,rgb(64,224,208));
DRAWRECTREL(410,400,470,600,rgb(0,255,127));
DRAWRECTREL(410,600,470,800,rgb(0,255,127));
DRAWRECTREL(470,400,530,600,rgb(0,255,0));
DRAWRECTREL(470,600,530,800,rgb(255,0,255));
DRAWTEXTREL(50,450,' 最高價'),COLORblack,linethick2,layer0;
DRAWTEXTREL(60,650,NUMTOSTRN(h,2)),colorwhite,linethick4;
DRAWTEXTREL(110,450,'強勢高價'),COLORblack,linethick2,layer0;
DRAWTEXTREL(120,650,NUMTOSTRN(平均價一,2)),colorred,linethick4;
DRAWTEXTREL(170,450,'弱勢高價'),COLORblack,linethick2,layer0;
DRAWTEXTREL(180,650,NUMTOSTRN(平均價二,2)),colorred,linethick4;
DRAWTEXTREL(230,450,' 中間價'),COLORblack,linethick2,layer0;
DRAWTEXTREL(290,450,'《 昨收'),COLORblack,linethick2,layer0;
DRAWTEXTREL(300,650,NUMTOSTRN(收盤價1,2)),colorred,linethick4;
DRAWTEXTREL(350,450,'預(yù)測低二'),COLORblack,linethick2,layer0;
DRAWTEXTREL(360,650,NUMTOSTRN(預(yù)測低二,2)),colorblue,linethick4;
DRAWTEXTREL(410,450,'預(yù)測低一'),COLOrblack,linethick2,layer0;
DRAWTEXTREL(420,650,NUMTOSTRN(預(yù)測低一,2)),colorblue,linethick4;
DRAWTEXTREL(470,450,' 最低價'),COLORblack,linethick2,layer0;
DRAWTEXTREL(480,650,NUMTOSTRN(l,2)),colorblue,linethick4;
{買入及時跳動行情,區(qū)間劃分可按自己要求分,模式如下}
mr0:=c > 平均價一*1.006 ;
mr1:=平均價一<= c ;
mr2:=平均價二<= c ;
IF BARSTATUS=2 AND mr0 THEN BEGIN
DRAWRECTREL(50,200,110,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(55,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr1 THEN BEGIN
DRAWRECTREL(110,200,170,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(115,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr2 THEN BEGIN
DRAWRECTREL(170,200,230,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(175,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
mr3:預(yù)測低二<c and
mr4:=c<收盤價1;
IF BARSTATUS=2 AND mr3 THEN BEGIN
DRAWRECTREL(230,200,290,400,rgb(255,0,0));
DRAWTEXTREL(235,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr4 THEN BEGIN
DRAWRECTREL(290,200,350,400,rgb(0,255,0)),layer1;
DRAWTEXTREL(295,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END;
mr5:(預(yù)測低二>c or 預(yù)測低二=c) and
mr6:=預(yù)測低一>c or 預(yù)測低一=c;
mr7:=預(yù)測低一*0.994 >c;
IF BARSTATUS=2 AND mr5 THEN BEGIN
DRAWRECTREL(350,200,410,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(355,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr6 THEN BEGIN
DRAWRECTREL(410,200,470,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(415,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr7 THEN BEGIN
DRAWRECTREL(470,200,530,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(475,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
{賣出及時直觀柱圖}
DRAWRECTREL(590,400,650,600,rgb(255,97,0));
DRAWRECTREL(590,600,650,800,rgb(255,0,0));
DRAWRECTREL(650,400,710,600,rgb(255,97,0));
DRAWRECTREL(650,600,710,800,rgb(255,97,0));
DRAWRECTREL(710,400,770,600,rgb(255,153,18));
DRAWRECTREL(710,600,770,800,rgb(255,153,18));
DRAWRECTREL(770,400,830,600,rgb(255,215,0));
DRAWRECTREL(770,600,830,800,rgb(255,215,0));
DRAWRECTREL(830,400,890,600,rgb(255,255,0));
DRAWRECTREL(830,600,890,800,rgb(255,255,0));
DRAWRECTREL(890,400,950,600,rgb(0,255,127));
DRAWRECTREL(890,600,950,800,rgb(0,255,127));
DRAWTEXTREL(590,650,' 》5%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(650,650,' 4~5%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(710,650,' 3~4%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(770,650,' 2~3%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(830,650,' 1~2%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(890,650,'
{顯示買賣價}
BUYPRICE:="SHOWINV@BUYPRICE"(1);
SALEPRICE:="SHOWINV@SALEPRICE"(1);
iF BUYPRICE> 0 THEN BBP:=BUYPRICE;
DRAWTEXTrel(10,60,' 【日期:'+NUMTOSTR(day)+'日】'), COLORwhite,LINETHICK2;
DRAWTEXTREL(100,60,'
DRAWTEXTREL(400,60,'
DRAWTEXTREL(600,60,'
{顯示獲利情形}{賣出及時直觀柱圖2}
DRAWTEXTREL(595,450,NUMTOSTRN(BBP*1.051,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(655,450,NUMTOSTRN(BBP*1.05,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(715,450,NUMTOSTRN(BBP*1.04,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(775,450,NUMTOSTRN(BBP*1.03,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(835,450,NUMTOSTRN(BBP*1.02,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(895,450,NUMTOSTRN(BBP*1.01,2)),COLORblack,linethick3,layer0;
{賣出及時跳動行情}
mc0:=c >BBP*1.051;
mc1:=c<BBP*1.05 and c> BBP*1.04;
mc2:=c<BBP*1.04 and c> BBP*1.03;
IF BARSTATUS=2 AND mc0 THEN BEGIN
DRAWRECTREL(590,200,650,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(595,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mc1 THEN BEGIN
DRAWRECTREL(650,200,710,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(655,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mc2 THEN BEGIN
DRAWRECTREL(710,200,770,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(715,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
mc3:=c<BBP*1.03 and c> BBP*1.02;
mc4:=c<BBP*1.02 and c> BBP*1.01;
mc5:=c<BBP;
IF BARSTATUS=2 AND mc3 THEN BEGIN
DRAWRECTREL(770,200,830,400,rgb(255,0,0));
DRAWTEXTREL(775,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mc4 THEN BEGIN
DRAWRECTREL(830,200,890,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(835,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mc5 THEN BEGIN
DRAWRECTREL(890,200,950,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(895,200,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
DRAWTEXTREL(50,850,'【珠穆朗瑪峰88先生提供及時跳動行情直觀圖構(gòu)思】'),COLORffffff,linethick2;思廣益,有更好的方法,謝謝!
選強勢股思路:
看著蔡老師這么無私解答,很受感動,送上我改過的簡化版,看起來更直觀!主要信息不少.
用法我不多說了,蔡老師的這個樓爬完,自然能看明白!要感謝就感謝蔡老師吧!
忘了說了,圖中"預(yù)測高二"我改變了算法,是按預(yù)測低二的思路改的,這樣四個預(yù)測數(shù)據(jù)是對稱的,我想對使用結(jié)果影響不大!
{參數(shù)}
{input:N(27,1,250);}
{背景顏色}
DRAWGBKLAST(CLOSE>0,STRIP(RGB(55,75,55),RGB(10,10,20),0));
{四價運用}
開盤價:open,linethick0;
最高價:high,linethick0;
最低價:low,linethick0;
最低價2:=REF(low,2);
收盤價:CLOSE,linethick0;
開盤價1:=REF(open,1);
最高價1:REF(high,1),linethick0;
最低價1:REF(low,1),linethick0;
收盤價1:REF(CLOSE,1),linethick0;
{預(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ù)測低二:=(預(yù)測低一+FFF)/2;{今天預(yù)測低價二}
預(yù)測低一1:=REF(預(yù)測低一,1);{昨天預(yù)測價}
預(yù)測低二1:=REF(預(yù)測低二,1);{昨天預(yù)測價}
{測試與今最高差比}
低一比:=(high-預(yù)測低一1)/預(yù)測低一1*100;
低二比:=(high-預(yù)測低二1)/預(yù)測低二1*100;
今高昨低比:=(high-最低價1)/最低價1*100;
DRAWTEXTREL(600,30,'
DRAWTEXTREL(600,150,'【差
DRAWTEXTREL(600,250,'
DRAWTEXTREL(600,350,' 昨日到位:
DRAWTEXTREL(600,480,' 與今最高:
ww1:=預(yù)測低一1>最低價1 or 預(yù)測低一1=最低價1;
ww2:=預(yù)測低一1<最低價1;
IF BARSTATUS=2 AND ww1 THEN BEGIN
DRAWTEXTREL(745,350,'★'),COLORRED,linethick2;
END
ELSE
IF BARSTATUS=2 AND ww2 THEN BEGIN
DRAWTEXTREL(745,350,'●'),COLORgreen,linethick2;
END
tt1:=預(yù)測低二1>最低價1 or 預(yù)測低二1=最低價1;
tt2:=預(yù)測低二1<最低價1;
IF BARSTATUS=2 AND tt1 THEN BEGIN
DRAWTEXTREL(840,350,'★'),COLORRED,linethick2;
END
ELSE
IF BARSTATUS=2 AND tt2 THEN BEGIN
DRAWTEXTREL(840,350,'●'),COLORgreen,linethick2;
END
{顯示今日最高預(yù)測價公式}
預(yù)測高一:=開盤價+B2;{今天預(yù)測高價一}
{第二今日最高預(yù)測價公式}
{預(yù)測高二:=MA(REF(HIGH,1)/REF(CLOSE,2),N)*REF(CLOSE,1);{今天預(yù)測高價二}
預(yù)測高二:=(預(yù)測高一+FFF)/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;
DRAWTEXTrel(10,30,'【日期:'+NUMTOSTR(day)+'日】'), COLORgreen,LINETHICK0;
DRAWTEXTREL(150,30,' 今日預(yù)測數(shù)據(jù) '),Color8000FF,linethick4;
DRAWTEXTREL(10,150,'
DRAWTEXTREL(10,290,'預(yù)測高一:
DRAWTEXTREL(10,450,'預(yù)測高二:
DRAWTEXTREL(10,640,'預(yù)測低二:
DRAWTEXTREL(10,820,'預(yù)測低一:
{顯示今日低買操作}
ssssu1:=預(yù)測低一>low or 預(yù)測低一=low;
ssssu2:=預(yù)測低一<low;
IF BARSTATUS=2 AND ssssu1 THEN BEGIN
DRAWTEXTREL(230,820,'★'),COLORRED,linethick2;
END
ELSE
IF BARSTATUS=2 AND ssssu2 THEN BEGIN
DRAWTEXTREL(230,820,'●'),COLORgreen,linethick2;
END
ssssu3:=預(yù)測低二>low or 預(yù)測低二=low;
ssssu4:=預(yù)測低二<low;
IF BARSTATUS=2 AND ssssu3 THEN BEGIN
DRAWTEXTREL(230,640,'★'),COLORRED,linethick2;
END
ELSE
IF BARSTATUS=2 AND ssssu4 THEN BEGIN
DRAWTEXTREL(230,640,'●'),COLORgreen,linethick2;
END
{顯示預(yù)測高價}
ssuu1:=預(yù)測高一<high or 預(yù)測高一=high;
ssuu2:=預(yù)測高一>high;
IF BARSTATUS=2 AND ssuu1 THEN BEGIN
DRAWTEXTREL(230,290,'★'),COLORRED,linethick2;
END
ELSE
IF BARSTATUS=2 AND ssuu2 THEN BEGIN
DRAWTEXTREL(230,290,'●'),COLORgreen,linethick2;
END
ssuu3:=預(yù)測高二<high or 預(yù)測高二=high;
ssuu4:=預(yù)測高二>high;
IF BARSTATUS=2 AND ssuu3 THEN BEGIN
DRAWTEXTREL(230,450,'★'),COLORRED,linethick2;
END
ELSE
IF BARSTATUS=2 AND ssuu4 THEN BEGIN
DRAWTEXTREL(230,450,'●'),COLORgreen,linethick2;
END
ssu1:=熊價一<high or 熊價一=high;
ssu2:=熊價一>high;
IF BARSTATUS=2 AND ssu1 THEN BEGIN
DRAWTEXTREL(370,290,'★ '),COLORRED,linethick2;
END
ELSE
IF BARSTATUS=2 AND ssu2 THEN BEGIN
DRAWTEXTREL(370,290,'●'),COLORgreen,linethick2;
END
ssu3:=熊價二<high or 熊價二=high;
ssu4:=熊價二>high;
IF BARSTATUS=2 AND ssu3 THEN BEGIN
DRAWTEXTREL(370,450,'★'),COLORRED,linethick2;
END
ELSE
IF BARSTATUS=2 AND ssu4 THEN BEGIN
DRAWTEXTREL(370,450,'●'),COLORgreen,linethick2;
END
{畫直觀柱圖}
DRAWRECTREL(470,150,550,1000,rgb(255,255,255));
DRAWRECTREL(470,150,550,320,rgb(255,91,255));
DRAWRECTREL(470,320,550,490,rgb(255,91,200));
DRAWRECTREL(470,660,550,830,rgb(0,174,114));
DRAWRECTREL(470,830,550,1000,rgb(91,189,43));
DRAWTEXTREL(525,220,'高'),COLORblue,linethick2,layer0;
DRAWTEXTREL(525,390,'高'),COLORblue,linethick2,layer0;
DRAWTEXTREL(525,560,'中'),COLORblue,linethick2,layer0;
DRAWTEXTREL(525,735,'低'),COLORblue,linethick2,layer0;
DRAWTEXTREL(525,890,'低'),COLORwhite,linethick2,layer0;
ffuu0:=預(yù)測高一<c or 預(yù)測高一=c;
ffuu1:=(預(yù)測高二<c or c=預(yù)測高二) and
ffuu2:=預(yù)測低二<c and
IF BARSTATUS=2 AND ffuu0 THEN BEGIN
DRAWRECTREL(410,160,520,310,rgb(255,0,0)),layer1;
DRAWTEXTREL(420,190,NUMTOSTRN(c,2)),colorwhite,linethick6;
END
ELSE
IF BARSTATUS=2 AND ffuu1 THEN BEGIN
DRAWRECTREL(410,330,520,480,rgb(255,0,0)),layer1;
DRAWTEXTREL(420,360,NUMTOSTRN(c,2)),colorwhite,linethick6;
END
ELSE
IF BARSTATUS=2 AND ffuu2 THEN BEGIN
DRAWRECTREL(410,500,520,650,rgb(255,0,0)),layer1;
DRAWTEXTREL(420,530,NUMTOSTRN(c,2)),colorwhite,linethick6;
END
ffuu3:=(預(yù)測低二>c or 預(yù)測低二=c) and
ffuu4:=預(yù)測低一>c or 預(yù)測低一=c;
IF BARSTATUS=2 AND ffuu3 THEN BEGIN
DRAWRECTREL(410,670,520,820,rgb(255,0,0));
DRAWTEXTREL(420,700,NUMTOSTRN(c,2)),colorwhite,linethick6;
END
ELSE
IF BARSTATUS=2 AND ffuu4 THEN BEGIN
DRAWRECTREL(410,840,520,990,rgb(255,0,0)),layer1;
DRAWTEXTREL(420,870,NUMTOSTRN(c,2)),colorwhite,linethick6;
END;
重新下載“昨買今賣”FNC檔(附件),引入就會顯示了,不好意思!下面就是昨買今賣原碼
{昨買今賣公式}
{參數(shù)}
input:N(27,1,250);
{背景顏色}
DRAWGBKLAST(CLOSE>0,STRIP(RGB(55,75,55),RGB(10,10,20),0));
{顯示買賣價}
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;
買價比:(high-賣出價)/high*100,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;
{測試與今最高差比}
低一比:=(high-預(yù)測低一1)/high*100;
低二比:=(high-預(yù)測低二1)/high*100;
今高昨低比:=(high-最低價1)/high*100;
DRAWTEXTrel(10,60,' 【日期:'+NUMTOSTR(day)+'日】'), COLORgreen,LINETHICK0;
DRAWTEXTREL(10,60,'
DRAWTEXTREL(320,60,'
DRAWTEXTREL(320,60,'
DRAWTEXTREL(660,60,'
DRAWTEXTREL(10,200,'
DRAWTEXTREL(10,350,'
+'%'),colorffffff,linethick1;
DRAWTEXTREL(10,550,'
+'%'),colorffffff,linethick1;
DRAWTEXTREL(10,780,'
DRAWTEXTREL(10,880,'
DRAWTEXTREL(320,780,'
DRAWTEXTREL(320,880,'
{顯示昨低買今賣操作數(shù)據(jù)}
DRAWTEXTREL(320,200,'
DRAWTEXTREL(320,350,'
DRAWTEXTREL(320,500,'
DRAWTEXTREL(320,630,'
{顯示依據(jù)預(yù)測價計算賣出價}
DRAWTEXTREL(660,200,'
DRAWTEXTREL(660,350,'
DRAWTEXTREL(660,500,'
DRAWTEXTREL(660,650,'
{顯示賣出與否}
BBP1:=買價比>0 or 買價比=0;
BBP2:=買價比<0;
IF BARSTATUS=2 AND BBP1 THEN BEGIN
DRAWTEXTREL(320,350,'
END
ELSE
IF BARSTATUS=2 AND BBP2 THEN BEGIN
DRAWTEXTREL(320,350,'
END
{顯示今日低買操作}
ssssu1:=預(yù)測低一>low or 預(yù)測低一=low;
ssssu2:=預(yù)測低一<low;
IF BARSTATUS=2 AND ssssu1 THEN BEGIN
DRAWTEXTREL(10,450,'
END
ELSE
IF BARSTATUS=2 AND ssssu2 THEN BEGIN
DRAWTEXTREL(10,450,'
END
ssssu3:=預(yù)測低二>low or 預(yù)測低二=low;
ssssu4:=預(yù)測低二<low;
IF BARSTATUS=2 AND ssssu3 THEN BEGIN
DRAWTEXTREL(10,650,'
END
ELSE
IF BARSTATUS=2 AND ssssu4 THEN BEGIN
DRAWTEXTREL(10,650,'