Mathematica https://blog.dnevnik.hr/help

petak, 27.01.2012.

2

neznam al do sad ima ovo

y = Ax + By + C;
T = {X, Y};

sim[y_, T_] :=
Module[{d, a, b, S}, d = Abs[A*X + B*Y + C]/Sqrt[A^2 + B^2]; a = ;
b = ; S = {a, b}; S]

kasnije si zadat y=...pravac
i T točku a točku S bi trebalo izračunati, al nez program napisat, ako skuzim nadodam
i crtež je

slika1 = ListPlot[T, PlotStyle -> Red];
slika2 = ListPlot[S, PlotStyle -> Red];
slika3 = Plot[y, {x, -10, 10}];
Show[slika1,slika2, slika3]

1

to ima za sad
1. zadatak
a1 = 2;
q = 2;
n = 1000;
While[q*a1 < n, a1 = q*a1; Print[a1]]
3. zadatak
n = 10;
x = Table[2*i, {i, 1, n}];
y = Table[2 + 2*i, {i, 1, n}];
Matrica[x_, y_, n_] := Module[{M},
M = Table[0, {i, 1, n}, {j, 1, n}];
For[i = 1, i <= n,
For[j = 1, j <= n,
M[[i, j]] = x[[i]]*E^y[[j]];
j++];
i++];
MatrixForm[M]];
Matrica[x, y, n]

Ovaj blog je ustupljen pod Creative Commons licencom Imenovanje-Dijeli pod istim uvjetima.

Dnevnik.hr
Gol.hr
Zadovoljna.hr
Novaplus.hr
NovaTV.hr
DomaTV.hr
Mojamini.tv

Opis bloga

Linkovi