inputs:	


	factor(100),


	manuell(false);				//Factor fuer MarketPivot und R/S


								//ES,Bund=100, DAX,CAC40,Z,ER2 =10, ESTX50,YM=1, EURUSD=10000;





vars:   oMP(0),oR1(0),oR2(0),oS1(0),oS2(0),factor1(0);


if manuell=true then factor1=factor else factor1=pricescale;


if date<>date[ 1 ] then 


		begin


		value1=MPPIVandRS(factor1,oMP,oR1,oR2,oS1,oS2);


	end;





value2=oMP;


value3=oR1;


value4=oR2;


value5=oS1;


value6=oS2;








plot1(value2, "MarketPivot");


plot2(value3, "R1");


plot3(value4, "R2");


plot4(value5, "S1");


plot5(value6, "S2");





//if lastbaronchart then print (factor1);

input: 	Factor (Numericsimple),


		oMP(numericref),


		oR1(numericref),


		oR2(numericref),


		oS1(numericref),


		oS2(numericref);


vars: j(0), lw(0), hg(0), s1(0), s2(0), r1(0), r2(0), sm(0), app(1), area(0),


o1(0), o2(0), o3(0), o4(0), o5(0),


h1(0), h2(0), h3(0), h4(0), h5(0),


l1(0), l2(0), l3(0), l4(0), l5(0),


c1(0), c2(0), c3(0), c4(0), c5(0),counter(0);





	


if date[ 0 ] <> date[ 1 ] then begin


	


	o5 = o4; o4 = o3; o3 = o2; o2 = o1;


	h5 = h4; h4 = h3; h3 = h2; h2 = h1;


	l5 = l4; l4 = l3; l3 = l2; l2 = l1;


	c5 = c4; c4 = c3; c3 = c2; c2 = c1;


end;


o1 = absvalue (factor*opend(1)); h1 = absvalue (factor*highd(1));


l1 = absvalue (factor*lowd(1)); c1 = absvalue (factor*closed(1));











	hg = maxlist(h1,h2,h3,h4,h5);


	lw = minlist(l1,l2,l3,l4,l5);


	


	area = 0;app = 0;


	app = app + ((h1-l1+1) + absvalue(c1-o1)+1);


	area = area + ((h1+l1)/2*(h1-l1+1) + absvalue(c1+o1)/2*(absvalue(c1-o1)+1));


	app = app + ((h2-l2+1) + absvalue(c2-o2)+1);


	area = area + ((h2+l2)/2*(h2-l2+1) + absvalue(c2+o2)/2*(absvalue(c2-o2)+1));


	app = app + ((h3-l3+1) + absvalue(c3-o3)+1);


	area = area + ((h3+l3)/2*(h3-l3+1) + absvalue(c3+o3)/2*(absvalue(c3-o3)+1));


	app = app + ((h4-l4+1) + absvalue(c4-o4)+1);


	area = area + ((h4+l4)/2*(h4-l4+1) + absvalue(c4+o4)/2*(absvalue(c4-o4)+1));


	app = app + ((h5-l5+1) + absvalue(c5-o5)+1);


	area = area + ((h5+l5)/2*(h5-l5+1) + absvalue(c5+o5)/2*(absvalue(c5-o5)+1));








	sm = 0;


	for j = hg downto lw  begin


		if (h1>=j) and (l1<=j) then sm = sm+j;


		if ((c1<=j) and (o1>=j)) or ((c1>=j) and (o1<=j)) then sm = sm+j;


		if (h2>=j) and (l2<=j) then sm = sm+j;


		if ((c2<=j) and (o2>=j)) or ((c2>=j) and (o2<=j)) then sm = sm+j;


		if (h3>=j) and (l3<=j) then sm = sm+j;


		if ((c3<=j) and (o3>=j)) or ((c3>=j) and (o3<=j)) then sm = sm+j;


		if (h4>=j) and (l4<=j) then sm = sm+j;


		if ((c4<=j) and (o4>=j)) or ((c4>=j) and (o4<=j)) then sm = sm+j;


		if (h5>=j) and (l5<=j) then sm = sm+j;


		if ((c5<=j) and (o5>=j)) or ((c5>=j) and (o5<=j)) then sm = sm+j;


		if sm < area*0.2 then r1 = j;


		if sm < area*0.8 then s1 = j;


		if sm < area*0.05 then r2 = j;


		if sm < area*0.95 then s2 = j;


	end;





	oMP=area/app/factor;


	oR1= (r1/factor);


	oR2= (r2/factor);


	oS1= (s1/factor);


	oS2= (s2/factor);





MPPIVandRS=0;