# Exponential Eq.

Posted 9 years ago
2877 Views
|
|
0 Total Likes
|
 I'm trying to solve this , but my computer gives no results ...NSolve is not able to solve this system?..Thanks ClearAll["Global*"]; t1 = Quantity[750 + 273, "Kelvin"] t2 = Quantity[1000 + 273, "Kelvin"]; t3 = Quantity[1250 + 273, "Kelvin"] [Rho]1 = Quantity[5.50 , "grams/cu Centimeter"] [Rho]2 = Quantity[5.44 , "grams/cu Centimeter"]; [Rho]3 = Quantity[5.37, "grams/cu Centimeter"] ns1 = Quantity[9.21 10^19 , "Meter^-3"] ns3 = Quantity[5 10^22, "Meter^-3"] Subscript[A, O] = Quantity[16, "grams/Mole"] navogadro = Quantity[6.022 10^23 , "Mole^-1"] k = Quantity[8.6173324 10^-5, "ElectronVolts/Kelvin"] NSolve[{ns1 == ((navogadro [Rho]1 )/( Subscript[A, M ] + Subscript[A, O])) Exp[-(Qs/(2 k t1))], ns3 == ((navogadro [Rho]3 )/( Subscript[A, M ] + Subscript[A, O])) Exp[-(Qs/( 2 k t3))]}, {Subscript[A, M], Qs}] `
Sort By:
Posted 9 years ago
 Might do better with FindRoot for this. The equations are transcendental and NSolve will not always do well with those.
Community posts can be styled and formatted using the Markdown syntax.