不变形不压缩的MACD主图(大智慧)，一个在付图上显示各个周期的技术参数(大智慧)
admin888
|不变形不压缩的MACD主图(大智慧)，一个在付图上显示各个周期的技术参数(大智慧)
不变形不压缩的MACD主图(大智慧)
1、公式基于一品茶缘的“一品四图”黄金分割，
2、为更清晰体现macd的“完美体形”，该公式不加更多其它渲染{源码奉上，大家多提不足之处};{以下设置均线};
ma1:MA(C,5),colorFFFFFF,LAYER0;
MA2:MA(C,10),color00CCFF,LAYER0;
MA3:MA(C,20),colorFF00FF;
MA4:MA(C,30),color00FF00;
{以下设置黄金};
W:=BArslAst(DISPSTATUS=1);
P:=BacKSET(DISPSTATUS=2,W/2+20);
K:=BARSLAST(crOSS(P,0.5));
KJ:=HHVALL(HIGH)-LLVALL(LOW);
平衡:LLVALL(LOW)+KJ/2,COLOR888888,POINTDOT,PRECIS2,LAYER0;
压力:IF(K>=0,HHVALL(HIGH)-KJ*0.191,平衡),COLOR5050FF,POINTDOT,PRECIS2,LAYER0;
支撑:IF(K>=0,LLVALL(LOW)+KJ*0.191,平衡),COLORbbff55,POINTDOT,PRECIS2,LAYER0;
中心值:=支撑*0.9;
{以下设置MACD};
FF:=ema(CLOSE,12)-EMA(CLOSE,26);
AA:=EMA(FF,9);
MMD:=2*(FF-AA);
QdifF: 中心值+FF,COLORFFFFFF,linethick1,LAYER0;
QDEA: 中心值+AA,COLORYELLOW,linethick1,LAYER0;
STICKLINE(MMD>=0, 中心值+MMD, 中心值,1,0),COLOR5050FF;
STICKLINE(MMD<0, 中心值, 中心值+MMD,1,0),COLORFFFF00;
两周:=ALL(MMD<0,10);
十八天:=ALL(MMD<0,18);
STICKLINE(MMD<0 AND 两周, 中心值, 中心值+MMD,1,0),COLOR00DDDD;
STICKLINE(MMD<0 AND 十八天, 中心值, 中心值+MMD,1,0),COLORFF00FF;
一个在付图上显示各个周期的技术参数(大智慧)
这是一个不但能在k线图的付图上显示各个周期的技术参数，如果你把它放在分时技术指标里，那么它还能在分时付图上显示各个不同周期的技术参数，是不是很方便呀？源代码：DRAwrbs(2,19,935,168,RGB(100,50,50)),COLORFFFFFF;
DRAWTEXTABS(15,3,'沙吾提制作'),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(250,0,'不 同 周 期 技 术 参 数'),COLOR0000FF,LINETHICK3;
DRAWTEXTABS(500,0,''+stKNAME+'('+STKLABEL+')'),COLORFF9933,LINETHICK3; {
股票名称、代码}DRAWTEXTABS(10,25,'数据分类'),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(10,45,'月 线 图'),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(10,65,'周 线 图'),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(10,85,'日 线 图'),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(10,105,'60分钟图'),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(10,125,'30分钟图'),COLORFF0033,LINETHICK2;
DRAWTEXTABS(10,145,'15分钟图'),COLORFFCC00,LINETHICK2;
月ma5:="MA.MA1#MONTH";
月MA10:="MA.MA2#MONTH";
月MA20:="MA.MA3#MONTH";
月MA30:="MA.MA4#MONTH";
月MA60:="MA.MA5#MONTH";
月MA120:="MA.MA6#MONTH";
周MA5:= "MA.MA1#WEEK";
周MA10:= "MA.MA2#WEEK";
周MA20:= "MA.MA3#WEEK";
周MA30:= "MA.MA4#WEEK";
周MA60:= "MA.MA5#WEEK";
周MA120:= "MA.MA6#WEEK";
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA30:=MA(C,30);
MA60:=MA(C,60);
MA120:=MA(C,120);
FZ605:="MA.MA1#MIN60";
FZ6010:="MA.MA2#MIN60";
FZ6020:="MA.MA3#MIN60";
FZ6030:="MA.MA4#MIN60";
FZ6060:="MA.MA5#MIN60";
FZ60120:="MA.MA6#MIN60";
FZ305:="MA.MA1#MIN30";
FZ3010:="MA.MA2#MIN30";
FZ3020:="MA.MA3#MIN30";
FZ3030:="MA.MA4#MIN30";
FZ3060:="MA.MA5#MIN30";
FZ30120:="MA.MA6#MIN30";
FZ155:="MA.MA1#MIN15";
FZ1510:="MA.MA2#MIN15";
FZ1520:="MA.MA3#MIN15";
FZ1530:="MA.MA4#MIN15";
FZ1560:="MA.MA5#MIN15";
FZ15120:="MA.MA6#MIN15";
DRAWTEXTABS(105,25,' MA5'),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(100,45,STRRIGHT(' '+NUMTOSTRN(月MA5,3),6)),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(100,65,STRRIGHT(' '+NUMTOSTRN(周MA5,3),6)),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(100,85,STRRIGHT(' '+NUMTOSTRN(MA5,3),6)),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(100,105,STRRIGHT(' '+NUMTOSTRN(FZ605,3),6)),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(100,125,STRRIGHT(' '+NUMTOSTRN(FZ305,3),6)),COLORFF0033,LINETHICK2;
DRAWTEXTABS(100,145,STRRIGHT(' '+NUMTOSTRN(FZ155,3),6)),COLORFFCC00,LINETHICK2;
DRAWTEXTABS(170,25,' MA10'),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(170,45,STRRIGHT(' '+NUMTOSTRN(月MA10,3),6)),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(170,65,STRRIGHT(' '+NUMTOSTRN(周MA10,3),6)),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(170,85,STRRIGHT(' '+NUMTOSTRN(MA10,3),6)),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(170,105,STRRIGHT(' '+NUMTOSTRN(FZ6010,3),6)),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(170,125,STRRIGHT(' '+NUMTOSTRN(FZ3010,3),6)),COLORFF0033,LINETHICK2;
DRAWTEXTABS(170,145,STRRIGHT(' '+NUMTOSTRN(FZ1510,3),6)),COLORFFCC00,LINETHICK2;
DRAWTEXTABS(240,25,' MA20'),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(240,45,STRRIGHT(' '+NUMTOSTRN(月MA20,3),6)),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(240,65,STRRIGHT(' '+NUMTOSTRN(周MA20,3),6)),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(240,85,STRRIGHT(' '+NUMTOSTRN(MA20,3),6)),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(240,105,STRRIGHT(' '+NUMTOSTRN(FZ6020,3),6)),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(240,125,STRRIGHT(' '+NUMTOSTRN(FZ3020,3),6)),COLORFF0033,LINETHICK2;
DRAWTEXTABS(240,145,STRRIGHT(' '+NUMTOSTRN(FZ1520,3),6)),COLORFFCC00,LINETHICK2;
DRAWTEXTABS(310,25,' MA30'),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(310,45,STRRIGHT(' '+NUMTOSTRN(月MA30,3),6)),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(310,65,STRRIGHT(' '+NUMTOSTRN(周MA30,3),6)),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(310,85,STRRIGHT(' '+NUMTOSTRN(MA30,3),6)),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(310,105,STRRIGHT(' '+NUMTOSTRN(FZ6030,3),6)),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(310,125,STRRIGHT(' '+NUMTOSTRN(FZ3030,3),6)),COLORFF0033,LINETHICK2;
DRAWTEXTABS(310,145,STRRIGHT(' '+NUMTOSTRN(FZ1530,3),6)),COLORFFCC00,LINETHICK2;
DRAWTEXTABS(380,25,' MA60'),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(380,45,STRRIGHT(' '+NUMTOSTRN(月MA60,3),6)),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(380,65,STRRIGHT(' '+NUMTOSTRN(周MA60,3),6)),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(380,85,STRRIGHT(' '+NUMTOSTRN(MA60,3),6)),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(380,105,STRRIGHT(' '+NUMTOSTRN(FZ6060,3),6)),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(380,125,STRRIGHT(' '+NUMTOSTRN(FZ3060,3),6)),COLORFF0033,LINETHICK2;
DRAWTEXTABS(380,145,STRRIGHT(' '+NUMTOSTRN(FZ1560,3),6)),COLORFFCC00,LINETHICK2;
DRAWTEXTABS(450,25,' MA120'),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(450,45,STRRIGHT(' '+NUMTOSTRN(月MA120,3),6)),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(450,65,STRRIGHT(' '+NUMTOSTRN(周MA120,3),6)),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(450,85,STRRIGHT(' '+NUMTOSTRN(MA120,3),6)),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(450,105,STRRIGHT(' '+NUMTOSTRN(FZ60120,3),6)),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(450,125,STRRIGHT(' '+NUMTOSTRN(FZ30120,3),6)),COLORFF0033,LINETHICK2;
DRAWTEXTABS(450,145,STRRIGHT(' '+NUMTOSTRN(FZ15120,3),6)),COLORFFCC00,LINETHICK2;
月difF:= "macd.DIFF#MONTH";
周DIFF:= "MacD.DIFF# WEEK";
DIFF:= "MACD.DIFF";
FZ60DIFF:= "MACD.DIFF# MIN60";
FZ30DIFF:= "MACD.DIFF# MIN30";
FZ15DIFF:= "MACD.DIFF# MIN15";
月DEA:= "MACD.DEA# MONTH";
周DEA:= "MACD.DEA# WEEK";
DEA:= "MACD.DEA";
FZ60DEA:= "MACD.DEA# MIN60";
FZ30DEA:= "MACD.DEA# MIN30";
FZ15DEA:= "MACD.DEA# MIN15";
月MACD:= "MACD.MACD#MONTH";
周MACD:= "MACD.MACD#WEEK";
MACD:="MACD.MACD";
FZ60MACD:= "MACD.MACD#MIN60 ";
FZ30MACD:= "MACD.MACD#MIN30";
FZ15MACD:= "MACD.MACD#MIN15";
DRAWTEXTABS(525,25,' DIFF'),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(515,45,STRRIGHT(' '+NUMTOSTRN(月DIFF,3),8)),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(515,65,STRRIGHT(' '+NUMTOSTRN(周DIFF,3),8)),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(515,85,STRRIGHT(' '+NUMTOSTRN(DIFF,3),8)),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(515,105,STRRIGHT(' '+NUMTOSTRN(FZ60DIFF,3),8)),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(515,125,STRRIGHT(' '+NUMTOSTRN(FZ30DIFF,3),8)),COLORFF0033,LINETHICK2;
DRAWTEXTABS(515,145,STRRIGHT(' '+NUMTOSTRN(FZ15DIFF,3),8)),COLORFFCC00,LINETHICK2;
DRAWTEXTABS(595,25,' DEA '),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(585,45,STRRIGHT(' '+NUMTOSTRN(月DEA,3),8)),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(585,65,STRRIGHT(' '+NUMTOSTRN(周DEA,3),8)),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(585,85,STRRIGHT(' '+NUMTOSTRN(DEA,3),8)),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(585,105,STRRIGHT(' '+NUMTOSTRN(FZ60DEA,3),8)),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(585,125,STRRIGHT(' '+NUMTOSTRN(FZ30DEA,3),8)),COLORFF0033,LINETHICK2;
DRAWTEXTABS(585,145,STRRIGHT(' '+NUMTOSTRN(FZ15DEA,3),8)),COLORFFCC00,LINETHICK2;
DRAWTEXTABS(665,25,' MACD '),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(655,45,STRRIGHT(' '+NUMTOSTRN(月MACD,3),8)),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(655,65,STRRIGHT(' '+NUMTOSTRN(周MACD,3),8)),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(655,85,STRRIGHT(' '+NUMTOSTRN(MACD,3),8)),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(655,105,STRRIGHT(' '+NUMTOSTRN(FZ60MACD,3),8)),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(655,125,STRRIGHT(' '+NUMTOSTRN(FZ30MACD,3),8)),COLORFF0033,LINETHICK2;
DRAWTEXTABS(655,145,STRRIGHT(' '+NUMTOSTRN(FZ15MACD,3),8)),COLORFFCC00,LINETHICK2;
月K:= "kdj.K#MONTH";
周K:= "kdJ.K#WEEK";
K:= "KDJ.K";
FZ60K:= "KDJ.K#MIN60";
FZ30K:= "KDJ.K#MIN30";
FZ15K:= "KDJ.K#MIN15";
月D:= "KDJ.D#MONTH";
周D:= "KDJ.D#WEEK";
D:= "KDJ.D";
FZ60D:= "KDJ.D#MIN60";
FZ30D:= "KDJ.D#MIN30";
FZ15D:= "KDJ.D#MIN15";
月J:= "KDJ.J#MONTH";
周J:= "KDJ.J#WEEK";
J:="KDJ.J";
FZ60J:= "KDJ.J#MIN60 ";
FZ30J:= "KDJ.J#MIN30";
FZ15J:= "KDJ.J#MIN15";
DRAWTEXTABS(730,25,' K'),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(725,45,STRRIGHT(' '+NUMTOSTRN(月K,3),8)),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(725,65,STRRIGHT(' '+NUMTOSTRN(周K,3),8)),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(725,85,STRRIGHT(' '+NUMTOSTRN(K,3),8)),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(725,105,STRRIGHT(' '+NUMTOSTRN(FZ60K,3),8)),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(725,125,STRRIGHT(' '+NUMTOSTRN(FZ30K,3),8)),COLORFF0033,LINETHICK2;
DRAWTEXTABS(725,145,STRRIGHT(' '+NUMTOSTRN(FZ15K,3),8)),COLORFFCC00,LINETHICK2;
DRAWTEXTABS(800,25,' D '),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(795,45,STRRIGHT(' '+NUMTOSTRN(月D,3),8)),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(795,65,STRRIGHT(' '+NUMTOSTRN(周D,3),8)),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(795,85,STRRIGHT(' '+NUMTOSTRN(D,3),8)),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(795,105,STRRIGHT(' '+NUMTOSTRN(FZ60D,3),8)),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(795,125,STRRIGHT(' '+NUMTOSTRN(FZ30D,3),8)),COLORFF0033,LINETHICK2;
DRAWTEXTABS(795,145,STRRIGHT(' '+NUMTOSTRN(FZ15D,3),8)),COLORFFCC00,LINETHICK2;
DRAWTEXTABS(870,25,' J '),COLOR0066FF,LINETHICK2;
DRAWTEXTABS(865,45,STRRIGHT(' '+NUMTOSTRN(月J,3),8)),COLORFFFFFF,LINETHICK2;
DRAWTEXTABS(865,65,STRRIGHT(' '+NUMTOSTRN(周J,3),8)),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(865,85,STRRIGHT(' '+NUMTOSTRN(J,3),8)),COLORFF00FF,LINETHICK2;
DRAWTEXTABS(865,105,STRRIGHT(' '+NUMTOSTRN(FZ60J,3),8)),COLOR39FF00,LINETHICK2;
DRAWTEXTABS(865,125,STRRIGHT(' '+NUMTOSTRN(FZ30J,3),8)),COLORFF0033,LINETHICK2;
DRAWTEXTABS(865,145,STRRIGHT(' '+NUMTOSTRN(FZ15J,3),8)),COLORFFCC00,LINETHICK2;
牛市通网是一个牛股推荐网与低风险投资知识网，可以在线联系客服领取牛股。牛市通网从权威的投资专家、金融分析师等投资信息中挑选优质的文章进行发布。牛市通网主要为投资者提供股票知识、股票观点、股票分析和明智金融投资讨论等信息。