文章
文章用户商铺文档快讯有问必答话题

均线左侧定理实现 (文华财经)

投资者咨询：均线左侧定理实现 (文华财经)
来源:文华财经  日期:2021-1-24 11:57
麻烦版主帮忙实现一下，感谢！

 //MA叉左理均线交叉的左侧定理
INPUT:N1(10,1,500,1),N2(30,10,1000,1);
均线一:MA(C,N1),COLORFFFFFF,LINETHICK1,PRECIS3;
均线二:MA(C,N2),COLOR00AAFF,PRECIS3;
均叉左理线:=MA(C,(N2/N1-1)*N1);
均叉左理线,COLOR777700,LINETHICK1,PRECIS0;
左理线:REF(均叉左理线,N1),COLORAAAA00,LINETHICK1,PRECIS3;
今叉价:=(REF(均线二,1)-REF(均线一,1)+REF(C,N1)/N1-REF(C,N2)/N2)*N1*N2/(N2-N1);
Y0:(N2-1)*REF(MA(C,(N2-1)),1)-N2/N1*(N1-1)*REF(MA(C,(N1-1)),1),COLORFFFFFF,LINETHICK0,PRECIS2;


今金叉低价:IF(REF(均线一,1)<REF(今叉价,1),今叉价,0),COLOR00FFFF,LINETHICK0,PRECIS3;
今死叉高价:IF(REF(均线一,1)>REF(今叉价,1),今叉价,0),COLOR00FF00,LINETHICK0,PRECIS3;

明日交叉价:(REF(C,N1-1)*N2-REF(C,N2-1)*N1)/(N2-N1)-(MA(C,N1)-MA(C,N2))*N1*N2/(N2-N1),COLORFFAAAA,LINETHICK0,PRECIS2;
{Y00:((N2-1)*MA(C,N2-1)-N2/N1*(N1-1)*MA(C,N1-1))/(N2/N1-1),COLOR00FFFF,LINETHICK0,PRECIS2;
}
{明日交叉价:((N2-1)*MA(C,N2-1)-N2/N1*(N1-1)*MA(C,N1-1))/(N2/N1-1),COLORFFAAAA,LINETHICK0,PRECIS2;
}
今叉均线一:=REF(MA(C,(N2/N1-1)*N1),N1);
STICKLINE(CROSS(均线一,均线二),今叉均线一,今叉均线一,N1*25,0),COLOR00DDDD,LINETHICK1;
STICKLINE(CROSS(均线二,均线一),今叉均线一,今叉均线一,N1*25,0),COLOR00DD00,LINETHICK1;
STICKLINE(CROSS(BACKSET(DISPSTATUS=2,N1+1),0.5),均叉左理线,均叉左理线*1.12,1,0),COLORFFFF00,LINETHICK1;
STICKLINE(CROSS(BACKSET(DISPSTATUS=2,N1+1),0.5),均叉左理线,均叉左理线,200,0),COLORFFFF00,LINETHICK1;
M11:=BARSLAST(CROSS(均线一,均线二))+1;
M12:=BARSLAST(CROSS(均线二,均线一))+1;

M21:=BACKSET(CROSS(均线一,均线二),M11+N1);
M22:=BACKSET(CROSS(均线二,均线一),M12+N1);

STICKLINE(CROSS(M21,0.5),均叉左理线*0.95,均叉左理线*1.05,1,0),COLOR00AAAA,LINETHICK1;
STICKLINE(CROSS(M22,0.5),均叉左理线*0.95,均叉左理线*1.05,1,0),COLOR00AA00,LINETHICK1;
STICKLINE(CROSS(均线一,均线二),今叉均线一*1.1,今叉均线一*0.9,1,0),COLOR00FFFF,LINETHICK1;
STICKLINE(CROSS(均线二,均线一),今叉均线一*1.1,今叉均线一*0.9,1,0),COLOR00FF00,LINETHICK1;

HHH:=HHV(MAX(均线一,均线二),BARSLAST(DISPSTATUS=1))+1;
DRAWTEXT(DISPSTATUS=2AND均线一<均线二,HHH*0.90,'今日:金叉均线一:'+REF(均叉左理线,N1)+'
'),COLOR00AAAA,ALIGN2;
DRAWTEXT(DISPSTATUS=2AND均线一<均线二,HHH*0.88,'明日:金叉均线一:'+REF(均叉左理线,N1-1)+'
'),COLOR00AAAA,ALIGN2;
DRAWTEXT(DISPSTATUS=2AND均线一<均线二,HHH*0.86,'后日:金叉均线一:'+REF(均叉左理线,N1-2)+'
'),COLOR00AAAA,ALIGN2;
DRAWTEXT(DISPSTATUS=2AND均线一<均线二,HHH*0.84,'后3日:金叉均线一:'+REF(均叉左理线,N1-3)+'
'),COLOR00AAAA,ALIGN2;
DRAWTEXT(DISPSTATUS=2AND均线一<均线二,HHH*0.82,'后4日:金叉均线一:'+REF(均叉左理线,N1-4)+'
'),COLOR00AAAA,ALIGN2;
DRAWTEXT(DISPSTATUS=2AND均线一<均线二,HHH*0.80,'后5日:金叉均线一:'+REF(均叉左理线,N1-5)+'
'),COLOR00AAAA,ALIGN2;

DRAWTEXT(DISPSTATUS=2AND均线一>均线二,HHH*0.90,'今日:死叉均线一:'+REF(均叉左理线,N1)+'
'),COLOR00AA00,ALIGN2;
DRAWTEXT(DISPSTATUS=2AND均线一>均线二,HHH*0.88,'明日:死叉均线一:'+REF(均叉左理线,N1-1)+'
'),COLOR00AA00,ALIGN2;
DRAWTEXT(DISPSTATUS=2AND均线一>均线二,HHH*0.86,'后日:死叉均线一:'+REF(均叉左理线,N1-2)+'
'),COLOR00AA00,ALIGN2;
DRAWTEXT(DISPSTATUS=2AND均线一>均线二,HHH*0.84,'后3日:死叉均线一:'+REF(均叉左理线,N1-3)+'
'),COLOR00AA00,ALIGN2;
DRAWTEXT(DISPSTATUS=2AND均线一>均线二,HHH*0.82,'后4日:死叉均线一:'+REF(均叉左理线,N1-4)+'
'),COLOR00AA00,ALIGN2;
DRAWTEXT(DISPSTATUS=2AND均线一>均线二,HHH*0.80,'后5日:死叉均线一:'+REF(均叉左理线,N1-5)+'
'),COLOR00AA00,ALIGN2;
{1.MA（Y，5）=MA（Y，10）其中，Y--可以取C、H或L；
(Y0+Y1+Y2+Y3+Y4)/5=(Y0+Y1+Y2+Y3+Y4+Y5+Y6+Y7+8+Y9)/10
REF(MA(Y,4),1)*4/5+Y0/5=REF(MA(Y,9),1)*9/10+Y0/10
Y0/5-Y0/10=REF(MA(Y,9),1)*9/10-REF(MA(Y,4),1)*4/5
Y0/10=REF(MA(Y,9),1)*9/10-REF(MA(Y,4),1)*4/5
Y0=10*REF(MA(Y,9),1)*9/10-10*REF(MA(Y,4),1)*4/5
Y0=9*REF(MA(Y,9),1)-2*4*REF(MA(Y,4),1);
技术人员回复
日期:2021-1-24 13:04
 不同软件函数机制不同，一些不支持修改的部分删除了，其余部分参考：

N1:=10;
N2:=30;
均线一:MA(C,N1),COLORFFFFFF,LINETHICK1,PRECIS3;
均线二:MA(C,N2),COLOR00AAFF,PRECIS3;
均叉左理线:=MA(C,(N2/N1-1)*N1);
均叉左理线,COLOR777700,LINETHICK1,PRECIS0;
左理线:REF(均叉左理线,N1),COLORAAAA00,LINETHICK1,PRECIS3;
今叉价:=(REF(均线二,1)-REF(均线一,1)+REF(C,N1)/N1-REF(C,N2)/N2)*N1*N2/(N2-N1);
Y0:(N2-1)*REF(MA(C,(N2-1)),1)-N2/N1*(N1-1)*REF(MA(C,(N1-1)),1),COLORFFFFFF,NODRAW,PRECIS2;


今金叉低价:IF(REF(均线一,1)<REF(今叉价,1),今叉价,0),COLOR00FFFF,NODRAW,PRECIS3;
今死叉高价:IF(REF(均线一,1)>REF(今叉价,1),今叉价,0),COLOR00FF00,NODRAW,PRECIS3;

明日交叉价:(REF(C,N1-1)*N2-REF(C,N2-1)*N1)/(N2-N1)-(MA(C,N1)-MA(C,N2))*N1*N2/(N2-N1),COLORFFAAAA,NODRAW,PRECIS2;
今叉均线一:=REF(MA(C,(N2/N1-1)*N1),N1);
STICKLINE(CROSS(均线一,均线二),今叉均线一,今叉均线一,N1*25,0),COLOR00DDDD,LINETHICK1;
STICKLINE(CROSS(均线二,均线一),今叉均线一,今叉均线一,N1*25,0),COLOR00DD00,LINETHICK1;
STICKLINE(CROSS(BACKSET(ISLASTBAR,N1+1),0.5),均叉左理线,均叉左理线*1.12,1,0),COLORFFFF00,LINETHICK1;
STICKLINE(CROSS(BACKSET(ISLASTBAR,N1+1),0.5),均叉左理线,均叉左理线,200,0),COLORFFFF00,LINETHICK1;
M11:=BARSLAST(CROSS(均线一,均线二))+1;
M12:=BARSLAST(CROSS(均线二,均线一))+1;

M21:=BACKSET(CROSS(均线一,均线二),M11+N1);
M22:=BACKSET(CROSS(均线二,均线一),M12+N1);

STICKLINE(CROSS(M21,0.5),均叉左理线*0.95,均叉左理线*1.05,1,0),COLOR00AAAA,LINETHICK1;
STICKLINE(CROSS(M22,0.5),均叉左理线*0.95,均叉左理线*1.05,1,0),COLOR00AA00,LINETHICK1;
STICKLINE(CROSS(均线一,均线二),今叉均线一*1.1,今叉均线一*0.9,1,0),COLOR00FFFF,LINETHICK1;
STICKLINE(CROSS(均线二,均线一),今叉均线一*1.1,今叉均线一*0.9,1,0),COLOR00FF00,LINETHICK1;