Pozdrav!
Kako u Mathematici (4.0) dobiti tocan graf funkcije oblika f(x) = 5^ log_5
(sin (2x)) (5 na logaritam po bazi 5 od ...).
Hvala
Sanja
> >
> Sto fali Plot[5^Log[5,Sin[2x]],{x,-3,3}] ? Some things are really
simple...
>
Kad je sin 2x < 0 logaritamska funkcija nije definirana, a gornja naredba
crta graf i na tom podrucju. ( Ustvari gornja naredba nacrta graf sin2x,
sto je istina ali samo za sin2x >0.
Zato me zanima moze li se dobiti tocan graf.
Sanja
> > >Pozdrav!
> > >
> > >Kako u Mathematici (4.0) dobiti tocan graf funkcije oblika f(x) = 5^
> log_5
> > >(sin (2x)) (5 na logaritam po bazi 5 od ...).
> > >
> > >
> > >Hvala
> > >
>
> > >
> > Sto fali Plot[5^Log[5,Sin[2x]],{x,-3,3}] ? Some things are really
> simple...
> >
> Kad je sin 2x < 0 logaritamska funkcija nije definirana, a gornja naredba
> crta graf i na tom podrucju. ( Ustvari gornja naredba nacrta graf sin2x,
> sto je istina ali samo za sin2x >0.
Smijem primijetiti da je 5^log_5 (sin 2x)=sin 2x pa je i graf tocan.
Ako te interesiraju samo tocke za koje je sin2x>0 onda mozes iskoristiti
PlotRange, npr. PlotRange->{{-3,3},{0,1}}
...igor....
--
...pigor@diamond.phy.hr...
Pijem pivu, vani sunce sija.
Rundek
Graf nije tocan jer funkcije 5^log_5 (sin 2x) i sin 2x nemaju istu
domenu. Ne moze postojati graf tamo gdje nije definiran.
> PlotRange, npr. PlotRange->{{-3,3},{0,1}}
Ovo rjesava problem. Puno hvala.
Sanja
realPlot[f_, {x_, min_, max_}, opts___] :=
Plot[f, {x, min, max}, opts,
RegionFunction -> (With[{t = Hold@f /. x -> #},
ReleaseHold@Rest@Flatten@Trace@ReleaseHold@t ~Element~
Reals] &)]
SetAttributes[realPlot, HoldFirst]
realPlot[5^Log[5, Sin[2 x]], {x, -3, 3}]