Recent content by jtassilo

Great, thanks for the tip! And I have another question concerning loop commands: I want to import several files (c1, c2...) Is there a command that allows to import c1, c2.. at once like: Do[Import["ci.txt"], {i, imin, imax, di}]? I've been trying several loop commands but couldn't get it to...

hm I couldn't get it to work... Lets say I want a list or table with x and y values for the function y=sinx. Is there any way to do that?

Hey, here's another question: Is there a way to export the graph I made not as a bitmap or pdf, but as a set of points (x, y) with a predefined grid/accuracy? (Of course not a dynamic graph, but a normal graph)

I am certain now that the $Aborted message has to do with the calculating capacity. When I change the number of input rows from 29 to for example 1400, the error message is displayed even for simple equations

Also note please that if the beginning of the input (Thread[1.097455759580536*10^-5 is replaced by a smaller number such as Thread[1.097455759580536*10^-105, the whole script does not work anymore, and the Gauss-function is approximated by a triangle. I think that it has something to do with the...

Here is the input: My other input is named data={{a1, b1, c1, d1,e1, f1}, {a2,..}} Panel[Column[{Row[{Slider[Dynamic[T], {1, 350, 1}], Dynamic[T]}], Dynamic[Plot[ Apply[Plus, Thread[1.097455759580536*10^-5/ data[[All, 1]]*(1879421 - data[[All, 1]])^3/(1...

Ok, this here is hopefully my last question: I'm doing a dynamic plot using a rather complex equation (The problem does not occur with simple equations). When I hit shift enter, only the slider is returned as output and below it says "&Aborted". The strange thing is that when I use the slider...

Yes it works great, it does however not work when I try to use Map: Plot[Apply[Plus, Thread[Map[{ #[[2]]...} &, data]]], {x, 0, 1200}] Any suggestions why Plot [Apply[Plus, Thread...] does not work with Map? The normal Plot[Map[{ #[[2]]...} &, data]]], {x, 0, 1200}] command works.

It worked, thanks! I have one last question: I am trying to plot several Gauss function. My input is: g= {a1, a2, a3,...} Plot[Exp[-0.5*((x - g)/2)^2], {x, 0, 1200}] This plots multiple gauss functions. The gauss functions overlap though and i want to add all the gauss functions together...

First of all thanks for you help and patience! My input is an excel file consisiting of 4 columns and 29 rows) {{a1, b1, c1, d1}, {a2, b2, c2, d2},... When I typed the commands, I got {1, 29, 4} False False I would now like to 1. plot the first column versus the second (plot a vs b) 2...

Hi, I want to multiply two lists of the format {a1,b1,c1...}*{a2,b2,c2...} to obtain the list {a1*a2,b1*b2,c1*c2,...}. I tried using . to multiply the two lists but that didn't work. What command do I have to use to obtain the desired result? Thanks

Hm, I am getting the following message after typing ListPlot[data[[All, {1, 2}]]]: {x1, y1, z1, b1}, {x2, y2, z2, b2} is not a list of numbers or pairs of numbers. (of course x1 is a specific number, which I abbreviate here with x1)

let me rephrase my first question: Is it possible to plot in mathematica only x vs y if your input file consisits of (x, y, z, a), and you don't want to reformat your input file. If the input file is of the format (x,y) you can use the command ListPlot[input]; what is the command if your input...

Hi, I want to use mathemiatica to predict the spectrum of compounds with different conformers. The input consists of 4 values: frequency (of each vibration and every conformer), Intensity, Polarizability and total energy (of the conformer). I now want to plot the frequency vs the Intensity. 1...