föstudagur, júlí 14, 2006

Eru ekki allir farnir að sakna matlab?

tékkið á þessu:

x = 0:1; y = 0:4; h = 1/4; o2 = 1/sqrt(2); s = 2; ss = 4;v(3,:,:) = h*[0, -1, -o2, 0, o2, 1, 0;0, 1, o2, 0, -o2, -1, 0];v(2,:,:) = [ss, 0, s-h*o2, 0, -s-h*o2, 0, ss;... ss, 0, s+h*o2, 0,-s+h*o2, 0, ss];v(1,:,:) = s*[0, 1, 0, -1+h, 0, 1, 0; 0, 1, 0, -1-h, 0, 1, 0];cs = csape({x,y},v,{'variational','clamped'});fnplt(cs), axis([-2 2 -2.5 2.5 -.5 .5]), shading interpaxis off, hold onvalues = squeeze(fnval(cs,{1,linspace(y(1),y(end),51)}));plot3(values(1,:), values(2,:), values(3,:),'k','linew',2)view(-149,28), hold off

það er svo gaman að vera til :)

Engin ummæli: