3
Here is one option using text manipulations.
data = Import["test.dat", "Text"]
"{x1,x2, x3, x4,
x5, x6, x7,x8}
{y1,y2, y3, y4,
y5, y6, y7,y8}"
data2 = "{" <> StringReplace[StringReplace[data, WhitespaceCharacter -> ""],
"}{" -> "},{"] <> "}"
"{{x1,x2,x3,x4,x5,x6,x7,x8},{y1,y2,y3,y4,y5,y6,y7,y8}}"
Export["test.txt", ...
3
How do we correct this? How would I turn this into a gif?
One question at a time please. For the first part, your code is not that easy to follow. Below I will only make it work, without rewriting completely (no time).
First, you need to set the constant of integration correctly. Also fix Manipulate to make it work right. This below does that
ClearAll[y, ...
3
You may use the NDSolve Components and Data Structures tutorial to control the memory usage and save down the state of intermediate runs.
Initialise the NDSolve`StateData for the complete range you need to create solutions. Below is done for 0 <= t <= 30 and I will iterate in chunks of 10.
ndsStateData = First@NDSolve`ProcessEquations[
{
D[u[...
3
Not a complete answer, just some thoughts as a way to go ...
First, I would get a list of all Imported files:
files=(Flatten@Import[fullpath <> "S__"<>StringTake["_"<>ToString[mic],-2]<>"_Take01_M24.wav", "Data"] &) /@ Range[82];
This is your command Import and your mic changed to Slot going from 1 to 82. Next, cutting ranges:
...
2
Simply right-click the plot and choose Save Graphics As... Do not select its cell bracket and use Save Selection As...! Just right click the plot itself without selecting anything.
If the plot has a legend, select both the plot and the legend with the mouse, as if they were text. Make sure that the cell bracket is not selected. Now right-click and use Save ...
2
I experienced the same issue using mathematic 11.1.1. By changing the BaseStyle of the plot to bold, I get normal fonts by exporting as pdf. For example:
BaseStyle -> {FontFamily -> "Latin Modern Roman", FontSize -> 9, Bold}
2
The following throws some inconsistency warnings, but appears to work (i.e., no obvious discontinuities at the seam). Also, I did not change the boundary condition, but I fed the final condition of the first solution to the "initial" condition of the second solution.
uif1 = NDSolveValue[{D[u[t, x], t] == D[u[t, x], x, x], u[0, x] == 0,
u[t, 0] == Sin[...
1
Without having any code of yours, I could imagine that a prior export as *.pdf could help, which is imported in a 2nd step again and then you export it as *.eps file.
Export["Folder\\2ndExport.eps",Import[Export["Folder\\1stExport.pdf", YourContourPlot, ImageSize-> {N[GoldenRatio] 550, 550}, ImageResolution -> 600]],ImageResolution -> 600];
1
Use the option ImageResolution in Export:
plot = Plot[{Sin[x], Cos[x]}, {x, 0, 2 Pi}, Filling -> Axis];
Compare the two files:
Export["plot20.eps", plot, ImageResolution -> 20]
Export["plot100.eps", plot, ImageResolution -> 100]
Only top voted, non community-wiki answers of a minimum length are eligible
