kosciel
Kierownik Budowy
Dołączył: 11 Gru 2006
Posty: 352
Przeczytał: 0 tematów
Pomógł: 18 razy Ostrzeżeń: 0/5 Skąd: Straconka
|
Wysłany: Pon 9:34, 03 Gru 2007 Temat postu: prostokaty prawe |
|
|
function y=f(x)
y=x
end
function s=g(a,b,n)
dx=(abs(b-a))/n
for i=1:n+1
x(i)=b-(i-1)*dx
y(i)=f(x(i))
end
s=0
for i=1:n
s=s+dx*y(i)
plot([x(i)-dx,x(i)-dx,x(i),x(i)],[0,y(i),y(i),0],'b')
end
end
a=-10
b=10
n=10
x=a:n:b
y=f(x)
plot(x,y)
hold on
plot([a,b],[0,0])
s=g(a,b,n)
pause()
Post został pochwalony 0 razy
|
|