大智慧昨买今卖及预测股价未加密选股指标公式源码

大智慧昨买今卖及预测股价未加密选股指标公式源码

源码正文：

input:N(27,1,250){XG51};
BUYPRICE:="SHOWINV@BUYPRICE"(1){XG51};
SALEPRICE:="SHOWINV@SALEPRICE"(1){XG51};
IF BUYPRICE> 0 THEN BP:=BUYPRICE;

ppp:=0.015{XG51};
成本:=BP*1.006{XG51};
卖价:成本*(1+ppp),linethick0{XG51};
开盘价:open,linethick0{XG51};
开盘价1:=REF(open,1){XG51};
最高价:high,linethick0{XG51};
最高价1:=REF(high,1){XG51};
最低价:low,linethick0{XG51};
最低价1:=REF(low,1){XG51};
最低价2:=REF(low,2){XG51};
收盘价:CLOSE,linethick0{XG51};
收盘价1:=REF(CLOSE,1);

A1:=REF(开盘价,1){XG51};
A2:=Abs((REF(收盘价,1)-A1)/A1){XG51};
A3:=ABS((REF(最高价,1)-A1)/A1){XG51};
A4:=ABS((REF(最低价,1)-A1)/A1){XG51};
B1:=ABS((A2+A3+A4)/3){XG51};
B2:开盘价*B1,linethick0{XG51};
涨跌比:B2/开盘价*100,linethick0{XG51};
AA:=最高价1{XG51};
BB:=最低价1{XG51};
CC:=开盘价1{XG51};
DD:=收盘价1{XG51};
EE:=(AA+BB+CC+2*DD)/5{XG51};
AAA:=EE+(AA-BB){XG51};
BBB:=2*EE-BB{XG51};
CCC:=2*EE-AA{XG51};
DDD:=EE-(AA-BB){XG51};
上升突破价:=AAA{XG51};
上升阻力价:=BBB{XG51};
下跌支撑价:=CCC{XG51};
下跌反转价:=DDD{XG51};
EEE:=(EE+上升突破价+上升阻力价+下跌支撑价+下跌反转价)/5{XG51};
FFF:=(EEE+开盘价)/2{XG51};
预测低一:=开盘价-B2{XG51};
预测低一1:=REF(预测低一,1){XG51};
预测低一2:=REF(预测低一,2){XG51};
预测低二:=(预测低一+FFF)/2{XG51};
预测低二1:=REF(预测低二,1){XG51};
预测低二2:=REF(预测低二,2){XG51};
差额一:=预测低一-low{XG51};
差额二:=预测低二-low{XG51};
差比一:=(差额一/low)*100{XG51};
差比二:=(差额二/low)*100{XG51};
预测高一:=开盘价+B2{XG51};
预测高二:=ma(REF(HIGH,1)/REF(CLOSE,2),N)*REF(CLOSE,1){XG51};
预测高二1:=ref(预测高二,1){XG51};
预测高二2:=ref(预测高二,2){XG51};
YPP一:=0.985{XG51};
YPP二:=0.989{XG51};
熊价一:=预测高一*YPP一{XG51};
熊价一1:=REF(熊价一,1){XG51};
熊价二:=预测高二*YPP二{XG51};
熊价二1:=REF(熊价二,1){XG51};
平均价一:=(预测高一+预测高二)/2{XG51};
平均价二:=(熊价一+熊价二)/2{XG51};
check1:(high-预测低二1)/预测低二1*100,linethick0{XG51};
low1:=ref(low,1){XG51};
check2:(high-low1)/low1*100,linethick0{XG51};
DRAWTEXTREL(10,60,' 【今日低买操作数据】 【昨低买今卖操作数据】 纯利设定：'+NUMTOstRN(ref(ppp*100,0),2)+'% 【依据预测价 计算卖出价】' ),coloryellow,linethick1{XG51};
DRAWTEXTREL(10,200,' 【今日低买】 预测价 目前差价 目前差比'),Color8000FF,linethick1{XG51};
DRAWTEXTREL(10,350,' 预测低一： '+NUMTOSTRN(ref(预测低一,0),2)+'元 '+ NUMTOSTRN(ref(差额一,0),2)+'元 '+ NUMTOSTRN(ref(差比一,0),2)+'%'),colorffffff,linethick1{XG51};
DRAWTEXTREL(10,600,' 预测低二： '+NUMTOSTRN(ref(预测低二,0),2)+'元 '+ NUMTOSTRN(ref(差额二,0),2)+'元 '+ NUMTOSTRN(ref(差比二,0),2)+'%'),colorffffff,linethick1{XG51};
DRAWTEXTREL(320,500,' 今 最低价：'+NUMTOSTRN(ref(最低价,0),2)+'元 最高价：'+NUMTOSTRN(ref(最高价,0),2)+'元'),coloryellow,linethick1{XG51};
DRAWTEXTREL(320,745,' 昨 最低价：'+NUMTOSTRN(ref(最低价1,0),2)+'元 最高价：'+NUMTOSTRN(ref(最高价1,0),2)+'元'),COLORD3A9FF,linethick1{XG51};
DRAWTEXTREL(320,615,' 开盘价：'+NUMTOSTRN(ref(开盘价,0),2)+'元 收盘价：'+NUMTOSTRN(ref(收盘价,0),2)+'元'),coloryellow,linethick1{XG51};
DRAWTEXTREL(320,860,' 开盘价：'+NUMTOSTRN(ref(开盘价1,0),2)+'元 收盘价：'+NUMTOSTRN(ref(收盘价1,0),2)+'元'),COLORD3A9FF,linethick1{XG51};
DRAWTEXTREL(320,200,' 【买入价】 税后成本 卖出价 到位'),Colorffff80,linethick1{XG51};
DRAWTEXTREL(320,350,' '+NUMTOSTR(BP)+'元 '+NUMTOSTR(成本)+'元 '+NUMTOSTR(卖价)+'元'),COLORffffff,linethick1{XG51};
DRAWTEXTREL(660,200,' 【预测数据】 强 势 到位 弱 势 到位'),Color8000FF,linethick1{XG51};
DRAWTEXTREL(660,350,' 预测高一： '+NUMTOSTRN(ref(预测高一,0),2)+'元 '+ NUMTOSTRN(ref(熊价一,0),2)+'元'),colorffffff,linethick1{XG51};
DRAWTEXTREL(660,500,' 预测高二： '+NUMTOSTRN(ref(预测高二,0),2)+'元 '+ NUMTOSTRN(ref(熊价二,0),2)+'元'),colorffffff,linethick1{XG51};
DRAWTEXTREL(660,650,' 平均价 ： '+NUMTOSTRN(ref(平均价一,0),2)+'元 '+ NUMTOSTRN(ref(平均价二,0),2)+'元'),colorffffff,linethick1{XG51};
BBP1:=high>BP or high=BP{XG51};
BBP2:=high<BP{XG51};
IF BARSTATUS=2 AND BBP1 THEN BEGIN
DRAWTEXTREL(320,350,' ★'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND BBP2 THEN BEGIN
DRAWTEXTREL(320,350,' ●'),COLORgreen,linethick1{XG51};
END
ssssu1:=预测低一>low or 预测低一=low{XG51};
ssssu2:=预测低一<low{XG51};
IF BARSTATUS=2 AND ssssu1 THEN BEGIN
DRAWTEXTREL(10,480,' 到 位: ★'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND ssssu2 THEN BEGIN
DRAWTEXTREL(10,480,' 到 位: ●'),COLORgreen,linethick1{XG51};
END
ssssu3:=预测低二>low or 预测低二=low{XG51};
ssssu4:=预测低二<low{XG51};
IF BARSTATUS=2 AND ssssu3 THEN BEGIN
DRAWTEXTREL(10,730,' 到 位: ★'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND ssssu4 THEN BEGIN
DRAWTEXTREL(10,730,' 到 位: ●'),COLORgreen,linethick1{XG51};
END
LSSssu1:=预测低一1>最低价1 or 预测低一1=最低价1{XG51};
lssssu2:=预测低一1<最低价1{XG51};
IF BARSTATUS=2 AND lssssu1 THEN BEGIN
DRAWTEXTREL(10,480,' 昨 ★ '+NUMTOSTRN(ref(预测低一1,0),2)+'元'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND lssssu2 THEN BEGIN
DRAWTEXTREL(10,480,' 昨 ● '+NUMTOSTRN(ref(预测低一1,0),2)+'元'),COLORgreen,linethick1{XG51};
END
lssssu3:=预测低二1>最低价1 or 预测低二=最低价1{XG51};
lssssu4:=预测低二1<最低价1{XG51};
IF BARSTATUS=2 AND lssssu3 THEN BEGIN
DRAWTEXTREL(10,730,' 昨 ★ '+NUMTOSTRN(ref(预测低二1,0),2)+'元'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND lssssu4 THEN BEGIN
DRAWTEXTREL(10,730,' 昨 ● '+NUMTOSTRN(ref(预测低二1,0),2)+'元'),COLORgreen,linethick1{XG51};
END
su1:=最低价>最低价1{XG51};
su2:=最低价=最低价1{XG51};
su3:=最低价<最低价1{XG51};
IF BARSTATUS=2 AND su1 THEN BEGIN
DRAWTEXTREL(470,500,'★'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND su2 THEN BEGIN
DRAWTEXTREL(470,500,'★'),COLORffffff,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND su3 THEN BEGIN
DRAWTEXTREL(470,500,'●'),COLORgreen,linethick1{XG51};
END
su4:=最高价>最高价1{XG51};
su5:=最高价=最高价1{XG51};
su6:=最高价<最高价1{XG51};
IF BARSTATUS=2 AND su4 THEN BEGIN
DRAWTEXTREL(620,500,'★'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND su5 THEN BEGIN
DRAWTEXTREL(620,500,'★'),COLORffffff,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND su6 THEN BEGIN
DRAWTEXTREL(620,500,'●'),COLORgreen,linethick1{XG51};
END
su7:=开盘价>开盘价1{XG51};
su8:=开盘价=开盘价1{XG51};
su9:=开盘价<开盘价1{XG51};
IF BARSTATUS=2 AND su7 THEN BEGIN
DRAWTEXTREL(470,615,'★'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND su8 THEN BEGIN
DRAWTEXTREL(470,615,'★'),COLORffffff,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND su9 THEN BEGIN
DRAWTEXTREL(470,615,'●'),COLORgreen,linethick1{XG51};
END
suu1:=收盘价>收盘价1{XG51};
suu2:=收盘价=收盘价1{XG51};
suu3:=收盘价<收盘价1{XG51};
IF BARSTATUS=2 AND suu1 THEN BEGIN
DRAWTEXTREL(620,615,'★'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND suu2 THEN BEGIN
DRAWTEXTREL(620,615,'★'),COLORffffff,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND suu3 THEN BEGIN
DRAWTEXTREL(620,615,'●'),COLORgreen,linethick1{XG51};
END
ssuu1:=预测高一<high or 预测高一=high{XG51};
ssuu2:=预测高一>high{XG51};
IF BARSTATUS=2 AND ssuu1 THEN BEGIN
DRAWTEXTREL(660,350,' ★'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND ssuu2 THEN BEGIN
DRAWTEXTREL(660,350,' ●'),COLORgreen,linethick1{XG51};
END
ssuu3:=预测高二<high or 预测高二=high{XG51};
ssuu4:=预测高二>high{XG51};
IF BARSTATUS=2 AND ssuu3 THEN BEGIN
DRAWTEXTREL(660,500,' ★'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND ssuu4 THEN BEGIN
DRAWTEXTREL(660,500,' ●'),COLORgreen,linethick1{XG51};
END
ssuu5:=平均价一<high or 平均价一=high{XG51};
ssuu6:=平均价一>high{XG51};
IF BARSTATUS=2 AND ssuu5 THEN BEGIN
DRAWTEXTREL(660,650,' ★'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND ssuu6 THEN BEGIN
DRAWTEXTREL(660,650,' ●'),COLORgreen,linethick1{XG51};
END
ssu1:=熊价一<high or 熊价一=high{XG51};
ssu2:=熊价一>high{XG51};
IF BARSTATUS=2 AND ssu1 THEN BEGIN
DRAWTEXTREL(660,350,' ★ '),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND ssu2 THEN BEGIN
DRAWTEXTREL(660,350,' ●'),COLORgreen,linethick1{XG51};
END
ssu3:=熊价二<high or 熊价二=high{XG51};
ssu4:=熊价二>high{XG51};
IF BARSTATUS=2 AND ssu3 THEN BEGIN
DRAWTEXTREL(660,500,' ★'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND ssu4 THEN BEGIN
DRAWTEXTREL(660,500,' ●'),COLORgreen,linethick1{XG51};
END
ssu5:=平均价二<high or 平均价二=high{XG51};
ssu6:=平均价二>high{XG51};
IF BARSTATUS=2 AND ssu5 THEN BEGIN
DRAWTEXTREL(660,650,' ★'),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND ssu6 THEN BEGIN
DRAWTEXTREL(660,650,' ●'),COLORgreen,linethick1{XG51};
END
chec1:=预测低二1*1.006*(1+ppp)<high or 预测低二1*1.006*(1+ppp)=high{XG51};
chec2:=预测低二1*1.006*(1+ppp)>high{XG51};
IF BARSTATUS=2 AND chec1 THEN BEGIN
DRAWTEXTREL(660,780,' 测 试: 昨预测低二 ★ '),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND chec2 THEN BEGIN
DRAWTEXTREL(660,780,' 测 试: 昨预测低二 ●'),COLORgreen,linethick1{XG51};
END
chec3:=high>最低价1*1.006*(1+ppp) or high=最低价1*1.006*(1+ppp){XG51};
chec4:=high<最低价1*1.006*(1+ppp){XG51};
IF BARSTATUS=2 AND chec3 THEN BEGIN
DRAWTEXTREL(660,780,' 昨最低价 ★ '),COLORWHITE,linethick1{XG51};
END
ELSE
IF BARSTATUS=2 AND chec4 THEN BEGIN
DRAWTEXTREL(660,780,' 昨最低价 ●'),COLORgreen,linethick1{XG51};
END
卖一:=预测低二1*1.006*(1+ppp){XG51};
卖二:=最低价1*1.006*(1+ppp){XG51};
DRAWTEXTREL(660,880,' 卖出价: '+NUMTOSTRN(ref(卖一,0),2)+'元 '+ NUMTOSTRN(ref(卖二,0),2)+'元'),colorffffff,linethick1{X^G~5-1^C^N^{};

大智慧预测MACD今明两日的金(死)叉未加密选股指标公式源码

源码正文：

本公式可以预测macd今明两日的金（死）叉，甚至可以提前1－2天告之金（死）叉的发生，帮你提前做好准备，请笑纳。
使用方法：移动十字光标至maCD银（金）柱时，显示预测价位；参数根据个人的喜好可以调整。

N1:=12;N2:=26;M:=9;

difF: ema(CLOSE,N1)-EMA(CLOSE,N2),COLORBB00BB,LINETHICK2,LAYER0{XG51};
DEA:EMA(DIFF,M),COLOR00BB00,LINETHICK2,LAYER0{XG51};
MacD: (DIFF-DEA)*2,COLORstICK;

STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,8,0 ),COLOR003333{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,7,0 ),COLOR004444{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,6,0 ),COLOR005555{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,5,0 ),COLOR007777{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,4,0 ),COLOR009999{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,3,0 ),COLOR00BBBB{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00DDDD{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1,0 ),COLOR00FFFF;

STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,8 ,0 ),COLOR000033{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,7 ,0 ),COLOR000044{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,6 ,0 ),COLOR000055{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,5 ,0 ),COLOR000077{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,4 ,0 ),COLOR000099{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,3 ,0 ),COLOR0000BB{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2 ,0 ),COLOR0000DD{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,1 ,0 ),COLOR0000FF;

STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,8,0 ),COLOR333333{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,7,0 ),COLOR444444{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,6,0 ),COLOR555555{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,5,0 ),COLOR777777{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLOR999999{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,3,0 ),COLORBBBBBB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORDDDDDD{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1,0 ),COLORFFFFFF;

STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,8,0 ),COLOR333300{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,7,0 ),COLOR444400{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,6,0 ),COLOR555500{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,5,0 ),COLOR777700{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLOR999900{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,3,0 ),COLORBBBB00{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORDDDD00{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,1,0 ),COLORFFFF00;

今日交叉价:((REF(EMA(C,N2),1)*(N2-1)*(N1+1))+(REF(DEA,1)*(N1+1)* (N2+1))-(REF(EMA(C,N1),1)*(N1-1)*(N2+1)))/(2*(N2-N1)),PRECIS2,LINETHICK0{XG51};
DRAWFLAGTEXT(DEA<DIFF AND MACD<REF(MACD,1),DIFF,'今日死叉价位预测: '+NUMTOSTRN(今日交叉价,2)),ALIGN2,ColorBLUE{XG51};
DRAWFLAGTEXT(DEA>DIFF AND MACD>REF(MACD,1),DIFF,'今日金叉价位预测: '+NUMTOSTRN(今日交叉价,2)),ALIGN2,ColorRED;

明日交叉价:((EMA(C,N2)*(N2-1)*(N1+1))+(DEA*(N1+1)*(N2+1))-(EMA(C,N1)*(N1-1)* (N2+1)))/(2*(N2-N1)),PRECIS2,LINETHICK0{XG51};
DRAWFLAGTEXT(DEA<DIFF AND MACD<REF(MACD,1),DIFF,'明日死叉价位预测: '+NUMTOSTRN(明日交叉价,2)),ALIGN2,ColorBLUE{XG51};
DRAWFLAGTEXT(DEA>DIFF AND MACD>REF(MACD,1),DIFF,'明日金叉价位预测: '+NUMTOSTRN(明日交叉价,2)),ALIGN2,ColorRED{X.G.5_1.C.N.{};