Tham khảo tài liệu 'nén ảnh part 7', văn hoá - nghệ thuật, điêu khắc - hội họa phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | for i 0 i N i fprintf fptr f f n d i r i fclose fptr double p double x double prob switch ch case 1 prob exp -x x break case 2 prob break case 3 prob exp fabs x break return prob define EPS ------------------------------------ Calculating the next decision level given values for d i-11 and r i-1 . ----------------------------------- double decision_level double di_1 double ri_1 double delta di fun dfun ff area1 area2 int i if fabs di_1 delta else delta di ri_1 delta i 0 Using Newton-Raphson s method for root finding. while fabs delta EPS i if i 1000 381 printf n no convergence. n return di area1 Romberg di-1 di f1 area2 Romberg di-1 di f2 ff area1 area2 fun ri_1 -ff if fabs area2 printf n A numerical problem was encountered. printf n Restart problem with a different choice. exit 1 dfun -p di di-ff area2 if fabs dfun gotoxy 1 20 printf n derivative f dfun printf n A numerical problem was encountered. printf n Restart problem with a different choice. exit 1 delta -fun dfun di delta return di -------------------------- functions used by numerical integration routine. ---------------------------------- double f1 double y return y p y double f2 double y return p y 382 -------------------------- Numerical integration using Romberg method. ----------------------------- double Romberg double di_1 double di double f double double T 10 10 h x Area int N k kk i j N 9 k 1 h di- di_1 T 0 0 h f di_1 f di for i 1 i N i k 1 h x di_1 - h Area T 0 i T 0 i-1 for j 0 j k-1 j 2 x h Area f x T 0 i Area h kk 1 for j 1 j i j kk 2 T j i kk T j-1 i -T j-1 i-1 float kk-1 return T N N Bài tập 1. Chạy chương trình dùng các lựa chọn sau 3 bit 4 bit 5 bit 6 bit. .
