New answers tagged

3

Here is a trick to make it infinite: mark all existing new lines convert to text remove marks and not marked new lines ToInfWidthInputText[boxes_] := Module[ {tagged, mark = "ORYGINALMARK", iNL = FromCharacterCode@{62371}} , tagged = boxes /. (n : "\n" | iNL) :> mark <> n; tagged = First @ FrontEndExecute @ FrontEnd`ExportPacket[tagged, "...


1

Something like this may do it: editLine = "a * Sinc[ b*t + c*u ]"; noEdit = "# COMMENT"; text = {noEdit, noEdit, editLine, editLine, noEdit, editLine}; count = 0; newText = StringReplace[text, { "[" -> "(", "]" -> ")", "t" :> ("m.lammda" <> ToString[++count] <> "[i]*180/np.pi"), "u" :> ("m.phi" <> ToString[count] &...


0

Use Join @@ data instead of Flatten /@ data: Export["result.txt", Join @@ data, "Table"] to get three columns. Compare Dimensions[Join @@ data] {11, 33} with Dimensions[Flatten /@ data] {121, 3}


0

I am not quite sure that I correctly understand what are you after. I think you want this: results =Table[{r,1/norm*NIntegrate[chi[1675.58, q, 5, 0.0004489, 7.6, 8.19*10^(-11)]*SphericalBesselJ[0, q*r]*q^2, {q, 0.001, 100},Method -> {"GlobalAdaptive", Method -> "GaussKronrodRule"}, PrecisionGoal -> 4]}, {r, 0, 30}]. As a minor correction, "...


Top 50 recent answers are included