Förberedande kurs i matematik 1

Versionen från 19 mars 2008 kl. 14.55 (redigera) Tek (Diskussion | bidrag) (Ny sida: <noinclude>Detta är en figur som används i teoriavsnitt 2.2 och är ritad i språket [http://en.wikipedia.org/wiki/Metapost Metapost]. Du kan redigera bilden geno...) ← Gå till föregående ändring		Nuvarande version (30 juni 2008 kl. 11.15) (redigera) (ogör) Tek (Diskussion | bidrag) (Fixat till felaktig lutning (som uppstod p.g.a. dx istället för 2dx på några ställen))
Rad 90:		Rad 90:
	vardef solve_lftx(expr y) = (2/3)*(1-y/(2dy)) enddef;		vardef solve_lftx(expr y) = (2/3)*(1-y/(2dy)) enddef;
	vardef solve_rtx(expr y) = 4/3-(2/3)*y/(2dy) enddef;		vardef solve_rtx(expr y) = 4/3-(2/3)*y/(2dy) enddef;
-	p_solid := (solve_lftx(-Ly_lwr+2bp/sqrt(2))*dx,-Ly_lwr+2bp/sqrt(2))	+	p_solid := (solve_lftx(-Ly_lwr+2bp/sqrt(2))*2dx,-Ly_lwr+2bp/sqrt(2))
-	-- (solve_rtx(-Ly_lwr+2bp/sqrt(2))*dx,-Ly_lwr+2bp/sqrt(2))	+	-- (solve_rtx(-Ly_lwr+2bp/sqrt(2))*2dx,-Ly_lwr+2bp/sqrt(2))
-	-- (solve_rtx(Ly_upr-2bp/sqrt(2))*dx,Ly_upr-2bp/sqrt(2))	+	-- (solve_rtx(Ly_upr-2bp/sqrt(2))*2dx,Ly_upr-2bp/sqrt(2))
-	-- (solve_lftx(Ly_upr-2bp/sqrt(2))*dx,Ly_upr-2bp/sqrt(2))	+	-- (solve_lftx(Ly_upr-2bp/sqrt(2))*2dx,Ly_upr-2bp/sqrt(2))
	-- cycle;		-- cycle;
	pickup nullpen;		pickup nullpen;
Rad 145:		Rad 145:
	% The straight line		% The straight line
	path p_line[];		path p_line[];
-	p_line1 := (solve_lftx(-Ly_lwr)*dx,-Ly_lwr)	+	p_line1 := (solve_lftx(-Ly_lwr)*2dx,-Ly_lwr)
-	--(solve_lftx(Ly_upr)*dx,Ly_upr);	+	--(solve_lftx(Ly_upr)*2dx,Ly_upr);
-	p_line2 := (solve_rtx(-Ly_lwr)*dx,-Ly_lwr)	+	p_line2 := (solve_rtx(-Ly_lwr)*2dx,-Ly_lwr)
-	--(solve_rtx(Ly_upr)*dx,Ly_upr);	+	--(solve_rtx(Ly_upr)*2dx,Ly_upr);
	drawoptions(withcolor lightblue withpen pencircle scaled 0.6pt);		drawoptions(withcolor lightblue withpen pencircle scaled 0.6pt);
	linecap:=butt;		linecap:=butt;

---

Nuvarande version

Detta är en figur som används i teoriavsnitt 2.2 och är ritad i språket Metapost. Du kan redigera bilden genom att klicka på redigera-fliken.