Förberedande kurs i matematik 1

Versionen från 23 mars 2008 kl. 09.32 (redigera) Tek (Diskussion | bidrag) (Ny sida: <noinclude>Detta är en figur som används i teoriavsnitt 4.4 och är ritad i språket [http://en.wikipedia.org/wiki/Metapost Metapost]. Du kan redigera b...) ← Gå till föregående ändring		Nuvarande version (23 mars 2008 kl. 10.27) (redigera) (ogör) Tek (Diskussion | bidrag)
Rad 61:		Rad 61:
	dy := dx; % vertical distance between grid lines		dy := dx; % vertical distance between grid lines
-	Lx_lft := 4*dx+2pt; % Length of the left-hand part of the x-axis	+	Lx_lft := 5*dx+2pt; % Length of the left-hand part of the x-axis
-	Lx_rt := 4*dx+2pt; % Length of the right-hand part of the x-axis	+	Lx_rt := 5*dx+2pt; % Length of the right-hand part of the x-axis
-	Ly_lwr := 4*dy+4pt; % Length of the lower part of the y-axis	+	Ly_lwr := 5*dy+4pt; % Length of the lower part of the y-axis
-	Ly_upr := 4*dy+4pt; % Length of the upper part of the y-axis	+	Ly_upr := 5*dy+4pt; % Length of the upper part of the y-axis
	ahangle := 30; % Angle of the arrow tip		ahangle := 30; % Angle of the arrow tip
Rad 108:		Rad 108:
	% The circle		% The circle
	path p_circle;		path p_circle;
-	R := 3;	+	R := 4;
	p_circle := (0,-R*dy){right}		p_circle := (0,-R*dy){right}
	for theta=-70 step 20 until 250:		for theta=-70 step 20 until 250:
Rad 123:		Rad 123:
	picture p_lab;		picture p_lab;
	p_lab := thelabel.top(btex lutning $\!\sqrt{3}$ etex, origin);		p_lab := thelabel.top(btex lutning $\!\sqrt{3}$ etex, origin);
-	draw p_lab scaled 0.7 shifted ((R+1)*dx*(dir 60)+(4pt,0));	+	draw p_lab scaled 1.0 shifted ((R+1)*dx*(dir 60)+(7pt,0));
	% The radius		% The radius
Rad 135:		Rad 135:
	% The pi/3 angle		% The pi/3 angle
	path p_angle;		path p_angle;
-	r := 0.9;	+	r := 1.2;
	p_angle := (r*dx,0){up}		p_angle := (r*dx,0){up}
	for theta=5 step 5 until 60:		for theta=5 step 5 until 60:
Rad 146:		Rad 146:
	picture p_lab;		picture p_lab;
	p_lab := thelabel.urt(btex $\pi/3$ etex, origin);		p_lab := thelabel.urt(btex $\pi/3$ etex, origin);
-	draw p_lab scaled 0.7 shifted (r*dx,1.5pt);	+	draw p_lab scaled 1.0 shifted (r*dx,1.5pt);
	% Save the image		% Save the image
Rad 156:		Rad 156:
	ahlength := 5bp; % Length of the arrow tip		ahlength := 5bp; % Length of the arrow tip
	pickup pencircle scaled 0.4pt;		pickup pencircle scaled 0.4pt;
-	draw (-Lx_lft,0)--(-0.9dx-1.5pt,0);	+	draw (-Lx_lft,0)--(-1.2dx-1.5pt,0);
-	draw (-0.9dx-1.5pt,0)--(-0.9dx+1.5pt,0) withcolor 0.7[lightgrey,white];	+	draw (-1.2dx-1.5pt,0)--(-1.2dx+1.5pt,0) withcolor 0.7[lightgrey,white];
-	drawarrow (-0.9dx+1.5pt,0)--(Lx_rt,0);	+	drawarrow (-1.2dx+1.5pt,0)--(Lx_rt,0);
	label.rt(btex \small\strut $x$ etex, (Lx_rt,0));		label.rt(btex \small\strut $x$ etex, (Lx_rt,0));
	path p_yaxis;		path p_yaxis;
	p_yaxis := (0,-Ly_lwr)--(0,Ly_upr);		p_yaxis := (0,-Ly_lwr)--(0,Ly_upr);
-	s := xpart (p_yaxis intersectiontimes ((-Lx_lft,1.1dy)--(Lx_rt,1.1dy)));	+	s := xpart (p_yaxis intersectiontimes ((-Lx_lft,1.5dy)--(Lx_rt,1.5dy)));
-	t := xpart (p_yaxis intersectiontimes ((-Lx_lft,1.9dy)--(Lx_rt,1.9dy)));	+	t := xpart (p_yaxis intersectiontimes ((-Lx_lft,2.6dy)--(Lx_rt,2.6dy)));
-	draw (0,-Ly_lwr)--(0,0.9dy-1.5pt);	+	draw (0,-Ly_lwr)--(0,1.2dy-1.5pt);
-	draw (0,0.9dy-1.5pt)--(0,0.9dy+1.5pt) withcolor 0.7[lightgrey,white];	+	draw (0,1.2dy-1.5pt)--(0,1.2dy+1.5pt) withcolor 0.7[lightgrey,white];
-	draw (0,0.9dy+1.5pt)--point s of p_yaxis;	+	draw (0,1.2dy+1.5pt)--point s of p_yaxis;
	draw subpath(s,t) of p_yaxis withcolor 0.7[lightgrey,white];		draw subpath(s,t) of p_yaxis withcolor 0.7[lightgrey,white];
	drawarrow subpath(t,1) of p_yaxis;		drawarrow subpath(t,1) of p_yaxis;
Rad 173:		Rad 173:
	% The circle		% The circle
	path p_circle;		path p_circle;
-	R := 3;	+	R := 4;
	p_circle := (0,-R*dy){right}		p_circle := (0,-R*dy){right}
	for theta=-70 step 20 until 250:		for theta=-70 step 20 until 250:
Rad 185:		Rad 185:
	path p_dashed;		path p_dashed;
	p_dashed := 2pt*(dir 60)--(R+1)*dx*(dir 60);		p_dashed := 2pt*(dir 60)--(R+1)*dx*(dir 60);
-	s := xpart (p_dashed intersectiontimes ((0,0.9dy)--(Lx_rt,0.9dy)));	+	s := xpart (p_dashed intersectiontimes ((0,1.3dy)--(Lx_rt,1.3dy)));
-	t := xpart (p_dashed intersectiontimes ((0,2.1dy)--(Lx_rt,2.1dy)));	+	t := xpart (p_dashed intersectiontimes ((0,2.9dy)--(Lx_rt,2.9dy)));
	pickup pencircle scaled 0.4pt;		pickup pencircle scaled 0.4pt;
-	draw subpath(0,s) of p_dashed dashed evenly scaled 0.5;	+	draw point 0 of p_dashed -- (1.2dx-1.5pt)*(dir 60) dashed evenly scaled 0.5;
		+	draw (1.2dx-1.5pt)*(dir 60)--(1.2dx+1.5pt)*(dir 60)
		+	withcolor 0.7[lightgrey,white] dashed evenly scaled 0.5;
		+	draw (1.2dx+1.5pt)*(dir 60) -- point s of p_dashed dashed evenly scaled 0.5;
	draw subpath(s,t) of p_dashed dashed evenly scaled 0.5		draw subpath(s,t) of p_dashed dashed evenly scaled 0.5
	withcolor 0.7[lightgrey,white];		withcolor 0.7[lightgrey,white];
Rad 196:		Rad 199:
	picture p_lab;		picture p_lab;
	p_lab := thelabel.top(btex lutning $\!\sqrt{3}$ etex, origin);		p_lab := thelabel.top(btex lutning $\!\sqrt{3}$ etex, origin);
-	draw p_lab scaled 0.7 shifted ((R+1)*dx*(dir 60)+(4pt,0));	+	draw p_lab scaled 1.0 shifted ((R+1)*dx*(dir 60)+(7pt,0));
	% The radius		% The radius
Rad 208:		Rad 211:
	% The pi/3 angle		% The pi/3 angle
	path p_angle;		path p_angle;
-	r := 0.9;	+	r := 1.2;
	p_angle := (r*dx,0){up}		p_angle := (r*dx,0){up}
	for theta=5 step 5 until 60+180:		for theta=5 step 5 until 60+180:
Rad 219:		Rad 222:
	picture p_lab;		picture p_lab;
	p_lab := thelabel.top(btex $\pi+\pi/3$ etex, origin);		p_lab := thelabel.top(btex $\pi+\pi/3$ etex, origin);
-	draw p_lab scaled 0.7 shifted (0,r*dx-1.0pt);	+	draw p_lab scaled 1.0 shifted (0,r*dx-1.0pt);
	% Save the image		% Save the image

---

Nuvarande version

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