Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- format short;
- fun1 = @(x) cos(x)*cos(x)*cos(x) + 0.7*cos(x*x);
- n = 10;
- N = 2^n;
- % uzmemo neki gusti interval
- interval = 0:2*pi/(3*N):2*pi-2*pi/N;
- for k = 1:N
- x(k) = (2*(k-1)*pi) / N;
- f(k) = fun1( x(k) );
- end
- s = prir_kub_splajn(x, f);
- for i = 1 : length(interval)
- [y, ~, ~] = vrij_kub_splajna( interval(i), x, f, s);
- vrij(i) = y;
- end
- % racunamo gresku
- for j = 1 : N
- [ y, ~, ~ ] = vrij_kub_splajna( x(j), x, f, s );
- greska( j ) = abs( f(j) - y );
- end
- maks_greska = max( greska );
- whitebg('black');
- fplot( fun1, [0 max(interval)], 'r');
- hold on
- plot( interval, vrij, 'w');
- hold off
- legend('funkcija', 'aproksimacija splajnom');
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement