GraphicsRow[{result, 
      ListLogLinearPlot[FirstGraphPlotPoints1, Joined -> True, 
       Frame -> True, GridLines -> Automatic, 
       PlotRange -> {{Automatic, Automatic}, {-90, 50}}, 
       FrameTicks -> {{Automatic, 
          Automatic}, {Table[{10^i, Superscript[10, i]}, {i, -3, 6}], 
          None}}], 
      Show[result, 
       ListLogLinearPlot[FirstGraphPlotPoints1, Joined -> True]]}]

Now,

h = TransferFunctionModel[1/s, s]
result = 
 BodePlot[h[I*2*\[Pi]*freq], {freq, 10^-3, 10^6}, 
  PlotRange -> {{-90, 60}}, PlotLayout -> "Magnitude", 
  ScalingFunctions -> {"Log10", "dB"}, 
  FrameLabel -> {HoldForm[Text[Frequency[Hz]]], 
    HoldForm[Text[Magnitude[dB]]]}, GridLines -> Automatic, 
  PlotStyle -> Thickness[0.005], 
  FrameTicks -> {{Automatic, 
     Automatic}, {Table[{10^i, Superscript[10, i]}, {i, -3, 5}], 
     None}}]

ListLogLinearPlot[test[[1]], Joined -> True]

Show[result, ListLogLinearPlot[test[[1]], Joined -> True]]

Why aren't the 2 graphs placed on top of each other? (i.e. should they be the same? - this is how the 2 graphs should be, the same)

Each graph taken separately looks the same, but when I put them together it doesn't look the same...

Attachments:

Untitled-16.nb

Hans Milton Thankkk you!!!!

I don't know how to do that without the additional information extracted from the BodePlot. Perhaps you could export ticks, plotRange, axesOrigin to a file. You can import it and the x, y values and recreate the plot.

The idea is that in this case of importing we can't use ticks, plotrange, axes origin because we do not know the expression of the function h like when we exported (because when we exported we knew the expression of the function h). In this case, when we import, in principle the expression of the function h is not known by us, we only have that excel with the points for the x-axis and the y-axis and we know that it is a Bode diagram, and we need to plot those points, and finally to look like a Bode plot these points plotted on plot (meaning, Magnitude Plot (FirstGraphPlot) to have on y axis dB, and on x axis Log10 scale, and Phase Plot (SecondGraphPlot) to have on y axis degree, and on x axis Log10 scale).

We import because we do not know the function h from the beginning, and we want to reconstruct the Bode diagram corresponding to the function h with those points given in excel, so we can't use ticks, plotrange, axes origin, since we only have that excel with those points and nothing else. Those points from excel file they can come from a simulation for example, in which we do not have the mathematical expression of the simulation result at least at the beginning.

In this case we know the expression of the function h (because it's just an example now), but in general we don't know the expression of h when importing.

Since the other software you are working with can export to Excel, maybe you could import data exported from the other software into Mathematica rather than the other way around? That might be a better option.

Well, also in the case of other software when I export a plot, then the export will also be in the form of an excel file (or something like this) with the points for the x-axis and y-axis (as above example FirstGraphPlot.xlsx). So, even if I export the graph from another software, in Mathematica I still have to import an excel file, so I will still have some points to plot. The problem in Mathematica is how with those points and using ListLinePlot or other functions I can reconstruct the Bode diagram. The problem in Mathematica is related to the x-axis, which must be specified in the plot as a logarithmic axis. As far as I saw, when I plot in Mathematica with ListLinePlot, the x-axis is a linear axis, and I don't know how it can be changed to a logarithmic axis (Log10). In other software (eg Mathcad), I have an option where I can specify whether the x-axis/y-axis is logarithmic or linear, regardless of the x-axis point values ​​I provide (as long as those points are positive, sub-unit or super-unit (it doesn't matter this thing))

Rohit Namjoshi

Let's say that now I would like to import an excel file into Mathematica, and then to plot the Bode diagrams from data from that excel (let's say we know that in that excel file there are points that allow us to build Bode diagrams)). For example, let's take one of the exported files: FirstGraphPlot

test = Import["C:\\Desktop\\FirstGraphPlot.xlsx"]

Normally, the above Bode plot should look like this:

or (better)

The idea is that in the first image, the x-axis is not logarithmic... And the problem is this: with those imported points (where {x, y} - x represents the points on the x-axis, and y represents the points on the y-axis), how can I make a Bode plot similar to one of the 2 above graphs? How can I make the x-axis the logarithmic axis for the x-axis points with ListLinePlot or any other function, and having available only those imported points from excel (which represent 100% the points of the 2 Bode diagrams (which are actually one and the same graph) shown above)?

Mathematica 13.2 Notebook file attached. FirstGraphPlot excel file (.xlsx) attached.

Thank you.

Attachments:

FirstGraphPlot.xlsx

Untitled-15.nb

As I mentioned in my answer, BodePlot adjusts the ticks, plot range, origin and other aspects of the plot. I am not sure why it does this rather than generating the exact values that need to be plotted. The plot can be reproduced from the points by extracting the options BodePlot uses

ticks = Ticks /. Options[result[[1, 1, 1]]]
plotRange = PlotRange[result[[1, 1, 1]]]
axesOrigin = AxesOrigin /. Options[result[[1, 1, 1]]]

ListPlot[points[[1]],
 PlotRange -> plotRange,
 Ticks -> ticks,
 AxesOrigin -> axesOrigin]

If you want to reproduce the plot in Excel you will have to replicate this.

Hello Carl Verdon, Ctrs Disease Control & Prevention,

Your version imports only the image into Excel, but I want numerical data so that I can redo the graphics back into Excel.

i want something like this:

In this way, with these data (so not with image), I can plot graphically y=f(x). And so I can redo the graphs from Mathematica in excel too, or I can further import that excel elsewhere, in other software (because the software I use lets me import/export excel files, but not Mathematica files, that's why I need to be able to import/export from Mathematica to excel and vice-versa if needed).

Thank you.

Exporting an expression to XLSX exports the InputForm of the expression. For Plot it is a Graphics expression which Excel knows nothing about. If you want to export the points corresponding to the plots you need to extract them from the Graphics (or capture them using EvaluationMonitor). To extract them

h = TransferFunctionModel[1/s, s]
result = 
 BodePlot[h[I*2*\[Pi]*freq], {freq, 10^-3, 10^6}, PlotRange -> {{-90, 60}, {-180, 0}}]

points = Cases[result, Line[data_] :> data, Infinity]

Check that the points reproduce the plots

ListPlot /@ points

Note that the BodePlot eliminates negative x values and places tick marks on a log scale.

Export to CSV

forExport = points // Map[(Prepend[#, {"x", "y"}]) &]
MapThread[Export[#1, #2] &, {{"plot1.csv", "plot2.csv"}, forExport}]

Is there a reason for regenerating the plots in Excel?