Matematické Fórum

↑ frenkiss:
Když ti dám kód v C-čku dokážeš to přepsat do pascalu?

↑ frenkiss:
Ne myslím C. (ale to je jedno zákad je stejný)
A když to zkusím tedy přepsat do pascalu, tak ti to pomůže? (Teda já jsem se pascal nikdy neučila, takže na tom ty určitě budeš lépe). Je to to jen pár for-cyklů, jeden if a práce s polem - nic složitého. Všechno to je stejné jen je trochu jiná syntaxe, ale ta se dá najít (např. V C se používají složené závorky, v Pascalu begin-end apod.).

Samozřejmně, že bych to mohla zkusit napsat rovnou pro matlab, ale to by bylo vůči ostatním nespravedlivé, kdyby jsi získala zápočet zadarmo, nemyslíš? Nejlepší bude když něco zkusíš a dáš to sem ke zkontrolování.

Tak napiš jestli to mam přepsat nebo zkus vůbec nejdřív hledat na googlu, určitě toho najdeš hromadu.

↑ frenkiss:
Účel toho fóra nebudu radší řešit, ale určitě to není vypracování celé úlohy (to je i uvedeno v pravidlech), ale to neznamená, že ti nepomůžu.
Nenapsala jsi jestli ti pomůžu ten zápis v pascalu. Abych se s tím nedělala zbytečně.

Už nebudu moralizovat a dám ti to rovnou v tom matlabu (jsem líná to přepisovat). Někde výš jsi psala, že máš vypočítat kořeny, to tedy zvládneš? Jestli ne tak jsem ti psala zde.
Jestli má být pravá strana nulová, tak prostě umažeš poslední řádek a sloupek a upravíš čísla v proměnných N,M.

format compact
% matice musí být čtvercová, jinak to počítá špatně
% Nulový řádek při výpočtu kořenů tedy ignoruj
% Poslední sloupek je pravá strana soustavy (1,2,3,4)
A=[5 2 3 4 1;  1 14 5 16 2; 3 6 7 8 3; 1 10 5 12 4; 0 0 0 0 0;];
A %výpis původní matice
max=0;
pom=0;
N=5;
M=5;

for i=1:(N)
    for j=(i+1):(N)
       if (abs(A(j,i))>abs(A(i,i)))
           max=j;
       end
       for k=i:M
           pom=A(i,k);
           A(i,k)=pom;
       end
       for l=(i+1):(N)
           for o=N:-1:i 
               A(l,o)=A(l,o)-A(i,o)*A(l,i)/A(i,i);
           end
       end
    end
end
%Výpis upravené matice
A

Úplně poslední řádek je samotné A (který ti vypíše tu matici) jsi si ho asi nezkopírovala. Tak ho tam napiš.

Uvedený matlab skript si je také možné spustit na webové verzi MATLAB na adrese

www.matlab-online.com

funguje tam asi všechno kromě grafiky a zvuku..