01 / مقدماتی

اصول اولیه

پیش از حل‌گر، مدل فیزیکی را بنویسید: مرز سامانه، فرض‌ها، واحدها و مجهول‌ها.

Solve برای حل نمادین، FindRoot برای یافتن ریشه عددی از حدس اولیه و NDSolve برای انتگرال‌گیری معادلات دیفرانسیل است. خروجی NDSolve قواعد جایگزینی برای تابع درون‌یاب دارد. در زبان Wolfram، == معادله و = انتساب است و نام توابع داخلی با حرف بزرگ شروع می‌شود. هنگام استفاده دوباره از دفترچه، تعریف‌های قدیمی را پاک کنید. کد زیر اندازه عددی را با واحدهای تصریح‌شده به کار می‌برد و از Quantity استفاده نمی‌کند؛ ترکیب واحدها مدل را بی‌صدا تغییر می‌دهد.

غلظت CA (mol/L)زمان t (min)CA = 2 exp(−0.2 t)t = 10; CA ≈ 0.271

02 / کاربردی

مثال حل‌شده

دو جریان با کسر جرمی حل‌شونده ۰٫۲۰ و ۰٫۵۰ مخلوط می‌شوند تا ۱۰۰ کیلوگرم بر ساعت با کسر ۰٫۳۵ تولید شود. موازنه کل و جزء، هر دو خوراک را ۵۰ کیلوگرم بر ساعت می‌دهد. در مثال جداگانه ناپیوسته، حجم و دما ثابت و واکنش مرتبه اول است؛ k برابر ۰٫۲۰ بر دقیقه و CA0 برابر ۲ مول بر لیتر است.

FindRoot زمان تبدیل ۸۰ درصد را از exp(−kt)=0.20 می‌یابد.

NDSolve مسیر غلظت را تا ۲۰ دقیقه و Plot نمودار را تولید می‌کند. حل تحلیلی مستقل، زمان ۸٫۰۴۷۱۸۹۵۶۲ دقیقه و CA در دقیقه ۱۰ برابر ۰٫۲۷۰۶۷۰۵۶۶۵ مول بر لیتر می‌دهد. این اعداد با محاسبه مستقل و حل نمایی بررسی شدند؛ اجرای واقعی Mathematica برای این مقاله انجام نشده است.

Mixer: F1 + F2 = Fout; F1 x1 + F2 x2 = Fout xout
Batch: dCA/dt = −k CA; CA(t) = CA0 exp(−kt)
CA(10 min) = 0.2706705665 mol/L; t80% = 8.047189562 min
پارامترمقدارواحد
f150kg/h
f250kg/h
t (X = 0.80)8.047189562min
CA (t = 10 min)0.2706705665mol/L
ClearAll["Global`*"];
(* Flows: kg/h; mass fractions dimensionless *)
Solve[{f1 + f2 == 100, 0.20 f1 + 0.50 f2 == 35}, {f1, f2}]
(* k: 1/min; t: min; concentration: mol/L *)
k = 0.20; ca0 = 2.0;
FindRoot[Exp[-k t] == 0.20, {t, 8}]
sol = NDSolve[{ca'[t] == -k ca[t], ca[0] == ca0}, ca, {t, 0, 20}];
ca[10] /. First[sol]
Plot[Evaluate[ca[t] /. First[sol]], {t, 0, 20},
 AxesLabel -> {"t (min)", "CA (mol/L)"}, PlotRange -> All]

03 / پیشرفته

تصمیم‌های مهندسی

پس از حل، باقیمانده معادلات و امکان‌پذیری فیزیکی را بررسی کنید: دبی مثبت، تبدیل بین صفر و یک، بقای جرم و واحد سازگار. برای ریشه غیرخطی چند حدس اولیه و نمودار را امتحان کنید؛ موفقیت یک FindRoot یکتایی ریشه را ثابت نمی‌کند. در معادلات همزمان انرژی و سینتیک، سختی و مقیاس‌بندی مهم‌اند؛ دقت را تغییر دهید و جواب‌ها را مقایسه کنید. مسیر عددی ناپیوسته را با حل نمایی بسنجید و پارامترها را کنار نمودار ثبت کنید. این کد نمونه آموزشی است و مدل ایمنی یا بهره‌برداری تجهیز نیست.

منابع

  1. Wolfram · Solve ↗
  2. Wolfram · FindRoot ↗
  3. Wolfram · NDSolve ↗
پرسیدن درباره این مقاله ↗