So I made a code:
Subscript[m, F] = 18.0009380 u;
Subscript[m, O] = 15.999 u;
\[EmptyUpTriangle]m = Subscript[m, F] - Subscript[m, O];
\[EmptyUpTriangle]mc^2 = 1872.65710876;
Subscript[m, SuperPlus[e]] c^2 = 0.510998928;
Subscript[m, \[Upsilon]] c^2 = 0;
S = Sqrt[\[EmptyUpTriangle]mc^2 -
E - (Subscript[m, \[Upsilon]] c^2)^2]*(\[EmptyUpTriangle]mc^2 -
E)*Sqrt[E - (Subscript[m, SuperPlus[e]] c^2)^2]*E
Plot[{S, 0, 1}, {E, 0, 1}]
But it gives the error " Set::write: "Tag Power in ... is Protected." for [EmptyUpTriangle]mc^2 ; c^2 Subscript[m, e^+] and c^2 Subscript[m, [Upsilon]].
I simplified the code and I think I got it right. But it's just not "pretty":
a = 1872.65710876;
b = 0.510998928;
c = 0;
y = Sqrt[a - x - (c)^2]*(a - x)*Sqrt[E - (b)^2]*x
Plot[y, {x, 0, 2100}]
How can I change this last code to write ?m(c^2) instead of a and the other two variables instead of b and c?
Thank you.
Attachments: