Mavzu: Chiziqli masalasi. Masala matematik modeli, iqtisodiy tahlili

Download 139,18 Kb. Sana 21.04.2022 Hajmi 139,18 Kb. #569914

Bu sahifa navigatsiya:

• Masalani iqtisodiy tahlil qilish Iqtisodiy masalalarni dasturlashtirish
• Yechish.
• Maqsad funksiya topish

7-LABORATORIYA ISHI Mavzu: Chiziqli masalasi. Masala matematik modeli, iqtisodiy tahlili. Ishdan maqsad: Masalaning matematik modeli Masalani iqtisodiy tahlil qilish Iqtisodiy masalalarni dasturlashtirish Quyidagini masala uchun maqsad funksiya va chegaraviy shartlarni aniqlang. Korxonada ikki tur buyum ishlab chiqarishuch xil xomashyo ishlataladi. Birinchi tur buyum ishlab chiqarish uchun birinchi xil xomashyodan 6 kg, ikkinchi xil xomashyodan 3 kg, uchinchi xil xomashyodan 4 kg ishlatiladi. Agar korxona birinchi xomashyodan 600 kg, ikkinchi xil xomashyodan 520 kg, uchinchi xil xomashyodan 600 kg ta’minlangan va birinchi xil buyumni sotganda har bir donasidan 6 so'm , ikkinchi xil buyumni sotganda esa 3 so'm foyda olganda, korxona ishlab chiqarishini shunday rejalashtirinki, olingan daromad maksimal bo'lsin. Yechish. Faraz qilaylik, birinchi tur buyumdan x1, dona, ikkinchi tur buyumdan x2 dona ishlab chiqarilsin. Masalaning shartini x1, va x2 o'zgaruvchilami o'z ichiga olgan quyidagi tengsizliklar sistemasi ko'rinishida yozish mumkin: Laborotorya ishini bajarish uchun topshiriqlar Tablica 13 Resurs Resurs xajmi Iste'mol normalari A B C 1 200 2 4 5 2 180 1 2 6 3 300 8 3 4 Mahsulot bahosi 13 5 2 Maqsad funksiya topish 2*x1+4*x2+5*x3≤200 x1+2*x2+6*x3≤180 8*x1+3*x2+4*x3≤300 13*x1+5*x2+2*x3 max funksiya Dastur kodi #include #include using namespace std int main(){ int i,j,n; double c,c1; cout<<"Zeydel usulida hisoblash\nTenglamalar sonini kiriting\n n="; cin>>n; float a[n+1][n+1],b[n+1],x[n+1],x1[n+1],l[n+1],z=0; for(i=1;i<=n;i++) for(j=1;j<=n;j++){ cout<<"a["<>a[i][j]; }for(i=1;i<=n;i++) { cout<<"b["<>b[i]; }cout<<"maqsad funksiyadagi noma`lumlarning oldidagi koeffitsiyentlarni kiriting."; for(i=1;i<=n;i++) { cout<<"l["<>l[i]; }for(i=1;i<=n;i++){ c=a[i][i]; for(j=1;j<=n;j++) a[i][j]=a[i][j]/c; b[i]=b[i]/c; x[i]=b[i]; }L1: for(i=1;i<=n;i++) a[i][i]=0; for(i=1;i<=n;i++) {c1=0; for(j=1;j<=n;j++) c1+=a[i][j]*x[j]; x1[i]=b[i]-c1; }for(i=1;i<=n;i++) if(fabs(x[i]-x1[i])>0.01) goto L2; goto L3; L2: for(i=1;i<=n;i++) x[i]=x1[i]; goto L1; L3: cout<<"tenglamalar sistemasining yechimlari\n"; for(i=1;i<=n;i++){ cout<Download 139,18 Kb. Do'stlaringiz bilan baham: