Community RSS Feed
https://community.wolfram.com
RSS Feed for Wolfram Community showing any discussions in tag Algebra sorted by activeWhy does the memory used keep going up and no output is given?
https://community.wolfram.com/groups/-/m/t/3127782
This actually eventually crashed my hard drive, after memory exceeded several Gigabytes. I wonder if it can be improved?
&[Wolfram Notebook][1]
[1]: https://www.wolframcloud.com/obj/7e88b0dc-72e4-4410-b923-eb5cd54f3edfIuval Clejan2024-02-21T22:30:03ZComplex conjugation and mod of a complex expression
https://community.wolfram.com/groups/-/m/t/3133071
Hello All
I am doing an analytical calculation with a bit longer expression which is complex in nature.
Mp =-(1/((mb + mc) (mB + mDs) q))
Sqrt[1 - ml^2/
q^2] (-2 A0 E^(-I \[Chi]) (mB + mDs) (-((-1 + gA) (mb + mc) ml) +
gP q^2) Sqrt[\[Lambda]Ds] +
16 E^(-I \[Chi])
mB (mb +
mc) mDs (A12 (-1 + gA) (mB + mDs) ml + (gT - gT5) q^2 T23) Cos[
thl] + Sqrt[2]
E^(-2 I \[Chi]) (mb + mc) q (-A1 (-1 + gA) (mB + mDs)^2 ml -
2 (gT - gT5) (mB + mDs) (mB^2 T2 - mDs^2 T2 +
T1 Sqrt[\[Lambda]Ds]) - (1 +
gV) ml V Sqrt[\[Lambda]Ds]) Sin[thl] +
Sqrt[2] (mb + mc) q (-A1 (-1 + gA) (mB + mDs)^2 ml -
2 (gT - gT5) (mB + mDs) (mB^2 T2 - mDs^2 T2 -
T1 Sqrt[\[Lambda]Ds]) + (1 +
gV) ml V Sqrt[\[Lambda]Ds]) Sin[thl])
Then I take the complex conjugate of Mp as
CMp = Conjugate[Mp] // FullSimplify
I want to find the absolute value of the expression Mp. I multiply conjugate of Mp with Mp as
Mp2 = CMp *Mp
which should give me a real expression but it does not give me a real answer and iotas and exponentials are still there. I have tried ComplexExpand and FullSimplify but nothing seems to work properly. If I use ComplexExpand it gives me thousands of terms which ultimately cannot be simplified which is useless expression. What is wrong with my approach and how to correct it? Thank you.Zohaib Aarfi2024-03-01T06:12:54ZError generating graph based on Reduce function result
https://community.wolfram.com/groups/-/m/t/3132522
Hi.
I tried to see whether this equation is positive, and I couldn't find out the best way.
equation: (-2 a (-2+b)^2 (1+b) c+c^2 (2 b^3+8 \[Alpha]-6 b^2 \[Alpha]))/(2 (-4+b^2)^2)
* Question:
What is the correct way to generate a graph with several conditions?
* Condition:
a>c, c>0, 0<b<1, alpha>1
* Attempted Code:
RegionPlot[(c (-a (-2+b)^2 (1+b)+c (b^3+4 \[Alpha]-3 b^2 \[Alpha])))/(-4+b^2)^2 <0,{\[Alpha],1,10},{b,0,1},{c,0,3},{a,4,9},PlotLegends->"Expressions"]
Reduce[-((c (-1+\[Alpha]^2) (a (-2+b)^2 (1+b) \[Alpha]+(-4+3 b^2) c (1+\[Alpha]^2)))/((-4+b^2)^2 \[Alpha]^3))<0&&a>0&&0<b<1&&c<a&&\[Alpha]>1,{\[Alpha]},R]]
Plot[f[\[Alpha]],{\[Alpha],1,10},PlotRange->All]
(FunctionInterpolation[#1,{a,4.,10.},{b,-2.,2.},{c,0.1,3},{\[Alpha],1,10}]&)[-((c (-1+\[Alpha]^2) (a (-2+b)^2 (1+b) \[Alpha]+(-4+3 b^2) c (1+\[Alpha]^2)))/((-4+b^2)^2 \[Alpha]^3))]
I even tried to fix parameters and just want to see how move when alpha is increasing.
but it did not show any result.
Please help me.
Attempted Code:
a = 10;
c = 3;
b = 0.9;
f(\[Alpha]) = (-2 a (-2 + b)^2 (1 + b) c + c^2 (2 b^3 + 8 \[Alpha] - 6 b^2 \[Alpha]))/(2 (-4 + b^2)^2);
Plot[f[\[Alpha]], {\[Alpha], 1, 9},
PlotRange -> All,
Frame -> True,
AxesLabel -> {"\[Alpha]", "f(\[Alpha])"},
LabelStyle -> {FontFamily -> "Arial", FontSize -> 12}]Tchun Jeeyoung2024-02-29T03:39:04Z