ClearAll (*befor finding the root for a lower stiffness use NSlove to find , \ then put that value back on the Rootfind and find the beta for \ varying stiffness *) k = 10^12;(*1*10^b;*) a = 1/(4*b^3*(1 + Cosh[b]*Cos[b])); a1 = (Cos[b*x] - Cosh[b*x]); a2 = (Sin[b*x] - Sinh[b*x]); phi1 = (Cos[b] + Cosh[b])*(Sin[b*(1 - i)] + Sinh[b*(1 - i)]); phi2 = (Sin[b] + Sinh[b])*(Cos[b*(1 - i)] + Cosh[b*(1 - i)]); phi3 = (Sin[b] - Sinh[b])*(Sin[b*(1 - i)] + Sinh[b*(1 - i)]); phi4 = (Cos[b] + Cosh[b])*(Cos[b*(1 - i)] + Cosh[b*(1 - i)]); eq = a*((phi1 - phi2)*(a1 /. x -> i) + (phi3 + phi4)*(a2 /. x -> i)); eq1 = 1 + (k*eq); t1 = Table[eq1, {i, 0.01, 0.5, 0.01}]; TableForm[t1]; m = 5; f[x_] := t1[[m]] /. b -> x; p = Plot[{f[x], 0.}, {x, 0.1, 30}, PlotPoints -> 350]; intersections = Graphics`Mesh`FindIntersections[p] // Chop Export["myFile.xls", intersections[[All, 1]]] intersections = Graphics`Mesh`FindIntersections[p] // Chop Labeled[Show[p, Frame -> True, Axes -> False, Epilog -> {PointSize[.025], Red, Point[intersections]}], Style[#, 20] &@Column[N[intersections, 10], Frame -> All], Right]
Right now I am facing a problem where I want to export the output of mathematica to excel, but each time in different column of the excel file. But all i am getting is overwritten in the same column. how to overcome this