(%i1) load(draw)$

nekoliko zajedničkih globalnih postavki za crtanje da
ih ne moramo kod svake slike posebno pisati

(%i2) set_draw_defaults(
   grid=true,
   xaxis=true,
   yaxis=true,
   xaxis_width=2,
   yaxis_width=2,
   xaxis_type=solid,
   yaxis_type=solid,
   xlabel="x",
   ylabel="f(x)")$

1 Svojstva funkcija

a)

(%i3) f(x):=2*sqrt(x)/(3-x^2);
(%o3)	f(x):=(2*sqrt(x))/(3-x^2)
(%i4) wxdraw2d(xrange=[-1,5], yrange=[-5,5],
    line_width=3, color=blue, explicit(f(x),x,0,5),
    line_width=2, color=black, line_type=dots,
      parametric(sqrt(3),t,t,-5,5)), wxplot_size=[600,400]$
(%t4)
 (Graphics)
(%i5) draw2d(terminal=wxt,xrange=[-1,5], yrange=[-5,5],
    line_width=3, color=blue, explicit(f(x),x,0,5),
    line_width=2, color=black, line_type=dots,
      parametric(sqrt(3),t,t,-100,100))$

b)

(%i6) f(x):=sqrt(x+5);
(%o6)	f(x):=sqrt(5+x)
(%i7) wxdraw2d(xrange=[-10,50], yrange=[-1,8],
    line_width=3, color=blue, explicit(f(x),x,-5,50)), wxplot_size=[600,400]$
(%t7)
 (Graphics)
(%i8) draw2d(terminal=wxt,xrange=[-10,50], yrange=[-1,8],
    line_width=3, color=blue, explicit(f(x),x,-5,50))$

c)

(%i9) f(x):=4/(x^2+3);
(%o9)	f(x):=4/(3+x^2)
(%i10) wxdraw2d(yrange=[-0.3,1.5],
    line_width=3, color=blue, explicit(f(x),x,-10,10)), wxplot_size=[600,400]$
(%t10)
 (Graphics)
(%i11) draw2d(terminal=wxt,yrange=[-0.3,1.5],
    line_width=3, color=blue, explicit(f(x),x,-10,10))$

d)

(%i12) f(x):=%e^(5-x);
(%o12)	f(x):=%e^(5-x)
(%i13) wxdraw2d(yrange=[-50,680],line_width=3,
  color=blue, explicit(f(x),x,-1.5,4)), wxplot_size=[600,400]$
(%t13)
 (Graphics)
(%i14) draw2d(terminal=wxt,yrange=[-50,680],line_width=3,
  color=blue, explicit(f(x),x,-1.5,4))$

e)

(%i15) f(x):=2*x^2/(3-x^2);
(%o15)	f(x):=(2*x^2)/(3-x^2)
(%i16) wxdraw2d(yrange=[-10,10], line_width=3, ytics=[-10,2,10],xtics=[-4,1,4],
  color=blue, explicit(f(x),x,-5,5),
  color=black, line_type=dots, line_width=2,
  parametric(t,-2,t,-5,5), parametric(-sqrt(3),t,t,-10,10),
  parametric(sqrt(3),t,t,-10,10)), wxplot_size=[600,400]$
(%t16)
 (Graphics)
(%i17) draw2d(terminal=wxt,yrange=[-10,10], line_width=3, ytics=[-100,2,100],xtics=[-4,1,4],
  color=blue, explicit(f(x),x,-5,5),
  color=black, line_type=dots, line_width=2,
  parametric(t,-2,t,-5,5), parametric(-sqrt(3),t,t,-100,100),
  parametric(sqrt(3),t,t,-100,100))$

f)

(%i18) f(x):=(x+5*x^5)^(1/3);
(%o18)	f(x):=(x+5*x^5)^(1/3)
(%i19) wxdraw2d(line_width=3, color=blue,
  explicit(f(x),x,-3,3)), wxplot_size=[600,400]$
(%t19)
 (Graphics)
(%i20) draw2d(terminal=wxt,line_width=3, color=blue,
  explicit(f(x),x,-3,3))$

g) trebamo biti oprezni

(%i21) f(x):=log((3+2*x)/(3-2*x))/log(4);
(%o21)	f(x):=log((2*x+3)/(3-2*x))/log(4)

mogli bismo dobiti krivi dojam da je funkcija omeđena

(%i22) wxdraw2d(xrange=[-3,3], yrange=[-5,5], xtics=[-3,0.5,3], ytics=[-5,1,5],
  line_width=3, color=blue, explicit(f(x),x,-3/2,3/2)), wxplot_size=[600,400]$
(%t22)
 (Graphics)

stavimo li decimalne brojeve -1.499 i 1.499 da se čim više približimo rubovima -3/2 i 3/2

(%i23) wxdraw2d(xrange=[-3,3], yrange=[-7,7], xtics=[-3,1,3], ytics=[-7,1,7],
  line_width=3, color=blue, explicit(f(x),x,-1.499,1.499),
  line_width=2, color=black, line_type=dots,
  parametric(-3/2,t,t,-7,7), parametric(3/2,t,t,-7,7)), wxplot_size=[600,400]$
(%t23)
 (Graphics)
(%i24) draw2d(terminal=wxt,xrange=[-3,3], xtics=[-3,1,3],
  line_width=3, color=blue, explicit(f(x),x,-1.4999,1.4999),
  line_width=2, color=black, line_type=dots,
  parametric(-3/2,t,t,-7,7), parametric(3/2,t,t,-7,7))$

možemo izračunati i limese

(%i25) limit(f(x),x,3/2,minus);
(%o25)	inf
(%i26) limit(f(x),x,-3/2,plus);
(%o26)	-inf

h)

(%i27) f(x):=%e^(x^2-4*x+3)-1;
(%o27)	f(x):=%e^(x^2-4*x+3)-1
(%i28) wxdraw2d(yrange=[-5,70], xrange=[-1,4.5],
  line_width=3, color=blue, explicit(f(x),x,-0.3,4.3)), wxplot_size=[400,600]$
(%t28)
 (Graphics)
(%i29) draw2d(terminal=wxt,yrange=[-5,70], xrange=[-1,4.5],
  line_width=3, color=blue, explicit(f(x),x,-0.3,4.3))$

i)

(%i30) f(x):=sin(2*x)*cos(3*x);
(%o30)	f(x):=sin(2*x)*cos(3*x)
(%i31) wxdraw2d(yrange=[-1,1], xrange=[-11,11],
  line_width=3, color=blue, explicit(f(x),x,-10,10)), wxplot_size=[600,400]$
(%t31)
 (Graphics)
(%i32) draw2d(terminal=wxt,yrange=[-1,1], xrange=[-11,11],
  line_width=3, color=blue, explicit(f(x),x,-10,10))$

j)

(%i33) f(x):=sin(1/x);
(%o33)	f(x):=sin(1/x)
(%i34) wxdraw2d(yrange=[-1.2,1.2],
  line_width=3, color=blue, explicit(f(x),x,-3,3)), wxplot_size=[600,400]$
(%t34)
 (Graphics)
(%i35) draw2d(terminal=wxt,yrange=[-1.2,1.2],
  line_width=3, color=blue, explicit(f(x),x,-3,3))$

2 Injekcija, surjekcija, bijekcija

a)

(%i36) f(x):=log(4*x^2)/log(2);
(%o36)	f(x):=log(4*x^2)/log(2)
(%i37) wxdraw2d(yrange=[-7,7], nticks=200,
  line_width=3, color=blue, explicit(f(x),x,-5,5)), wxplot_size=[600,400]$
(%t37)
 (Graphics)
(%i38) draw2d(terminal=wxt,yrange=[-7,7], nticks=200,
  line_width=3, color=blue, explicit(f(x),x,-5,5))$

b)

(%i39) f(x):=2^(x+3);
(%o39)	f(x):=2^(x+3)
(%i40) wxdraw2d(yrange=[-10,70],nticks=200,
  line_width=3, color=blue, explicit(f(x),x,-3,3)), wxplot_size=[600,400]$
(%t40)
 (Graphics)
(%i41) draw2d(terminal=wxt,yrange=[-10,70],nticks=200,
  line_width=3, color=blue, explicit(f(x),x,-3,3))$

c)

(%i42) f(x):=3/(3*x^2+1);
(%o42)	f(x):=3/(1+3*x^2)
(%i43) wxdraw2d(yrange=[-0.5,3.5],
  line_width=3, color=blue, explicit(f(x),x,-5,5)), wxplot_size=[600,400]$
(%t43)
 (Graphics)
(%i44) draw2d(terminal=wxt,yrange=[-0.5,3.5],
  line_width=3, color=blue, explicit(f(x),x,-5,5))$

d)

(%i45) f(x):=x/(4-2*x);
(%o45)	f(x):=x/(4-2*x)
(%i46) wxdraw2d(yrange=[-5,5], ytics=[-5,1,5],
  line_width=3, color=blue, explicit(f(x),x,-5,5),
  line_width=2, color=black, line_type=dots,
  parametric(t,-1/2,t,-5,5),parametric(2,t,t,-5,5)), wxplot_size=[600,400]$
(%t46)
 (Graphics)
(%i47) draw2d(terminal=wxt,yrange=[-5,5], ytics=[-100,1,100],
  line_width=3, color=blue, explicit(f(x),x,-5,5),
  line_width=2, color=black, line_type=dots,
  parametric(t,-1/2,t,-5,5),parametric(2,t,t,-100,100))$

3 Inverzna funkcija

a)

(%i48) f(x):=(2*x-1)/(1-x);
(%o48)	f(x):=(2*x-1)/(1-x)

inverzna funkcija

(%i49) solve(y=(2*x-1)/(1-x),x);
(%o49)	[x=(1+y)/(y+2)]
(%i50) g(x):=(x+1)/(x+2);
(%o50)	g(x):=(1+x)/(2+x)
(%i51) wxdraw2d(yrange=[-5,5], xtics=[-5,1,5], ytics=[-5,1,5], proportional_axes=xy,
  line_width=3, color=blue, explicit(f(x),x,-5,5),
  color=red, explicit(g(x),x,-5,5),
  color=green,line_width=2,explicit(x,x,-5,5)), wxplot_size=[500,500]$
(%t51)
 (Graphics)
(%i52) draw2d(terminal=wxt,yrange=[-5,5], xtics=[-100,1,100], ytics=[-100,1,100], proportional_axes=xy,
  line_width=3, color=blue, explicit(f(x),x,-5,5),
  color=red, explicit(g(x),x,-5,5),
  color=green,line_width=2,explicit(x,x,-5,5))$

b)

(%i53) f(x):=5^(1-x/3);
(%o53)	f(x):=5^(1-x/3)

inverzna funkcija

(%i54) solve(y=5^(1-x/3),x);
(%o54)	[x=-(3*log(y)-3*log(5))/log(5)]
(%i55) expand(%);
(%o55)	[x=3-(3*log(y))/log(5)]
(%i56) g(x):=3-3*log(x)/log(5);
(%o56)	g(x):=3-(3*log(x))/log(5)
(%i57) wxdraw2d(yrange=[-2,10], xtics=[-5,1,10], ytics=[-1,1,10], proportional_axes=xy,
  line_width=3, color=blue, explicit(f(x),x,-5,10),
  color=red, explicit(g(x),x,0.01,10),
  color=green,line_width=2,explicit(x,x,-5,10)), wxplot_size=[600,500]$
(%t57)
 (Graphics)
(%i58) draw2d(terminal=wxt,yrange=[-2,10], xtics=[-5,1,10], ytics=[-1,1,10], proportional_axes=xy,
  line_width=3, color=blue, explicit(f(x),x,-5,10),
  color=red, explicit(g(x),x,0.001,10),
  color=green,line_width=2,explicit(x,x,-5,10))$

c)

(%i59) f(x):=log(x)/log(3)+2;
(%o59)	f(x):=2+log(x)/log(3)

inverzna funkcija

(%i60) solve(y=f(x),x);
(%o60)	[x=%e^(log(3)*y)/9]
(%i61) radcan(%);
(%o61)	[x=3^(y-2)]
(%i62) g(x):=3^(x-2);
(%o62)	g(x):=3^(x-2)
(%i63) wxdraw2d(yrange=[-2,10], xtics=[-3,1,10], ytics=[-1,1,10], proportional_axes=xy,
  line_width=3, color=blue, explicit(f(x),x,0.01,10),
  color=red, explicit(g(x),x,-2,10),
  color=green,line_width=2,explicit(x,x,-2,10)), wxplot_size=[500,500]$
(%t63)
 (Graphics)
(%i64) draw2d(terminal=wxt,yrange=[-2,10], xtics=[-3,1,10], ytics=[-1,1,10], proportional_axes=xy,
  line_width=3, color=blue, explicit(f(x),x,0.01,10),
  color=red, explicit(g(x),x,-2,10),
  color=green,line_width=2,explicit(x,x,-2,10))$

d)

(%i65) f(x):=log(x+2)/log(3);
(%o65)	f(x):=log(2+x)/log(3)

inverzna funkcija

(%i66) solve(y=f(x),x);
(%o66)	[x=%e^(log(3)*y)-2]
(%i67) radcan(%);
(%o67)	[x=3^y-2]
(%i68) g(x):=3^x-2;
(%o68)	g(x):=3^x-2
(%i69) wxdraw2d(yrange=[-4,10], xtics=[-3,1,10], ytics=[-4,1,10], proportional_axes=xy,
  line_width=3, color=blue, explicit(f(x),x,-1.99,10),
  color=red, explicit(g(x),x,-4,10),
  color=green,line_width=2,explicit(x,x,-4,10)), wxplot_size=[500,500]$
(%t69)
 (Graphics)
(%i70) draw2d(terminal=wxt,yrange=[-4,10], xtics=[-3,1,10], ytics=[-4,1,10], proportional_axes=xy,
  line_width=3, color=blue, explicit(f(x),x,-1.99,10),
  color=red, explicit(g(x),x,-4,10),
  color=green,line_width=2,explicit(x,x,-4,10))$

e)

(%i71) f(x):=sqrt(x+1);
(%o71)	f(x):=sqrt(1+x)

inverzna funkcija

(%i73) solve(y=f(x),x);p;
"Is "y" positive, negative or zero?"p;
(%o72)	[x=y^2-1]
(%o73)	p
(%i74) g(x):=x^2-1;
(%o74)	g(x):=x^2-1
(%i75) wxdraw2d(yrange=[-4,10], xtics=[-3,1,10], ytics=[-4,1,10], proportional_axes=xy,
  line_width=3, color=blue, explicit(f(x),x,-1,10),
  color=red, explicit(g(x),x,0,10),
  color=green,line_width=2,explicit(x,x,-4,10)), wxplot_size=[500,500]$
(%t75)
 (Graphics)
(%i76) draw2d(terminal=wxt,yrange=[-4,10], xtics=[-3,1,10], ytics=[-4,1,10], proportional_axes=xy,
  line_width=3, color=blue, explicit(f(x),x,-1,10),
  color=red, explicit(g(x),x,0,10),
  color=green,line_width=2,explicit(x,x,-4,10))$

Created with wxMaxima.