Splineex1 (1) -...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
xc=[0.678521892909602,7.45231337114920,12.4540799133736,12.4590732839752,12.8959679 422977,14.1195168943734,14.3970624809883,16.1334568115068,17.7458717073935,18.23035 61014652,20,20.6048240811710,20.8772564219919,21.8455038434811,23.2525470684197,25. 2615367142569,26.0248901211564,33.2017438365405,33.4148756723726,35.6456987382186,3 8.0542189279287]; yc=[3.74868390700009e-33,2.11129890895746e-14,1.13285780855632e- 05,1.15005563294476e-05,4.13493318358001e- 05,0.000991772996427967,0.00187605939511595,0.0502858654821442,0.361960976784167,0.
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: 534551123624377,1,0.929449843662914,0.857344235516967,0.506021111992005,0.120535316 445424,0.00393929415934811,0.000703206340917884,7.27288771742132e-16,2.33867288860475e-16,5.47008548591754e-22,4.87443147585269e-29]; 1 plot(xc,yc,'o'); hold on p xf=linspace(0,40,200); x yf=spline(xc,yc,xf); y plot(xf,yf) p n=length(xf); n h=(xf(n)-xf(1))/(n-1); h I=(h/2)*(yf(1)+yf(n)); I for i=2:n-1 I=I+h*yf(i); end e I...
View Full Document

Ask a homework question - tutors are online