# How do I get output with simple numbers with just one power of 10

GROUPS:
 For some reason I can't paste the code into the Mathematica box.Or even pasted here, so I have attached my whole file.PS. managed something below but it looks messy.Look at the section 'Let us approximate some variables and create a simple Universe' and you will understand what I mean.Sorry for the mess, my first post, gone wrong. Andrew¹d = 6.6300 Quantity[Superscript[10,-34],"Meters"]; (* Primary ¹diameter 6.63 10^-34 m *)¹c = (¹d) Pi; (* Primary ¹circumference *)¹r = (¹c)/(2 Pi); (* Primary ¹radius *)¹L = 6.6300 Quantity[Superscript[10,-2],"Meters"]; (* "Primary ¹Length" 6.63 10^-2 m *)¹S¹A = 2 Pi (¹r) (¹L); (* "Primary ¹Surface¹Area" *)¹V = Pi (¹r)^2 (¹L); (* Primary Volume of one 'APE' the coil itself \ 2.29 10^-68 ((m)^3) *)\.b2C = (¹L); (* "Secondary \.b2Circumference" 6.63 10^-2 m *)\.b2R = (\.b2C)/(2 Pi); (* "Secondary \.b2Radius" *)\.b2D = (\.b2C)/Pi; (* "Secondary \.b2Diameter" *)\.b2V = (4/3) Pi (\.b2R)^3; (* "Secondary \.b2Volume" 2.29 10^-68 ((m)^3) *)\¹\ = 4.1400 Quantity[Superscript[10,38],"Kilograms"]/Quantity[1,("Meters")^3]; Estimate Maximum Primary ¹Density of the \Universe 4.14 10^38 kg/1 ((m)^3) *)¹m = (¹\) (¹V); (* Mass of one 'APE' 4.49 10^-31 kg *)\.b2\ = (¹m)/(\.b2V); (* Secondary Density of 'APE' *)¹primeNumber = 5.2800 10^84; (* 252097800623 Prime Number of 'APE's in the known \Universe 5.28 10^84 *)mknownUniverse = (¹primeNumber)(¹m);minVU = ¹primeNumber (¹V); (* minimum Volume of the known Universe \1.08 10^16 ((m)^3) *) Attachments:
4 years ago
8 Replies
 So when I output the answers withN[Column[{"Primary ¹diameter =" ¹d, "Primary ¹circumference =" ¹c, "Primary ¹radius =" ¹r, "Primary ¹Length = " ¹L, "Primary ¹Surface¹Area =" ¹S¹A, "Primary ¹Volume =" ¹V, "Primary ¹\density =" ¹\ , "Secondary \.b2Circumference =" \.b2C, "Secondary \.b2Radius =" \.b2R, "Secondary \.b2Diameter =" \.b2D, "Secondary \.b2Volume \.b2V=" \.b2V, "¹mass of 'APE' ¹m=" ¹m , "Secondary Density of 'APE' \.b2\ =" \.b2\, "Mass of known Universe = " mknownUniverse, "minimumVolumeUniverse =" minVU}]]I get multiple factor of 10.It is only me trying to improve the layout. AndrewPS I tried pasting the output but I can not get it to display what I see!
4 years ago
 Use the formatting tools at the top of the composition area.  in partidular use the Mathemaica icon for entering code.
4 years ago
 Bill Simpson 1 Vote You have been "desktop published."This means that you have used enough of the available tools to make your input look publishedthat you are now unable to do many kinds of calculations with your input.In[1]:= ¹d = Quantity[6.6300*Superscript[10,-34], "Meters"];¹L = Quantity[6.6300*Superscript[10,-2], "Meters"];,¹\[Rho] = Quantity[4.1400*Superscript[10,38],"Kilograms"*"Meters"^-3];FullForm[¹d ¹L]Out[4]//FullForm= Quantity[43.9569*Superscript[10,-34]*Superscript[10,-2],"Meters"^2]]
4 years ago
 Hi BillI am new to Mathematica, but I do not understand what you mean by 'desktop published' ?Are you saying after you have done a certain amount of calculations or processing you can not do any more?I just want a simple answer like density = 1.92549 x 10^-70 Kg/metre^3          and not unresovled mess like the following"Secondary Density of 'APE' \.b2\ =" (Quantity[(192.549 (Superscript[10.,-34])^2 Superscript[10.,38])/(Superscript[10.,-2])^2, ("Kilograms")/("Meters")^3])Are you saying Mathematica can't do that?RegardsAndrew Pepes
4 years ago
 I tried the Mathematica symbol and tried to paste my code into the box but it did not work!Could it be because I am still using the trial version? Or am I doing something else wrong?Also when I type my responce it looks like normal text but when I post it, it comes out messy.AndrewPS this time it worked! but still not able to paste into Mathematica code.