User Portlet
| Discussions |
|---|
| The following works fine: Graphics[Disk[]] Export["image.eps", %]; Import["image.eps"] But if there is some text in the image, its not possible to import anymore (mathematica keeps running and cannont be abortet): ... |
| Hello. I would like to make a Module, the returns a value and additionally it should also show a Button, with some more functionality. My try: test[zahl_] := Module[ {zahlM, zahlL}, zahlM = ToBoxes[zahl]; ... |
| Hello all I would like to extract a substring between two brackets: string1 = "abcde(fgh{ij}k)lmn" pos1 = First[ StringPosition[string1, "e(" ~~ RegularExpression["[^)]*"] ~~ ")"]] StringTake[string1, pos1 + {2, -1}] ... |
| Hello everybody I didnt find a possibilty to search the forum (where is it?), so I'm sorry, if this isn't a new question. I want to make a part of an ellipse as a BSplineCurve, so that I can use it with Arrow and FilledCurve. In the help of... |
| I don't understand the behaviour of the following: test0[x_, y_] := Module[ {}, a = 2*x; Return[y] ]; test1[] := Module[ {}, a ]; Now I run this little programms: ... |
| I would like to combine 2 graphics with different plotranges, but the plotranges for each graphic shoudnt change. As an example: Show[{ Graphics[{Yellow, Rectangle[{-1, -1}, {1, 1}]}, PlotRange -> {{-1, 1}, {-1, 1}}], ... |
| Hello I Have 2 tables with the folloing structure: ![enter image description here][1] To calculate things like correlation, I want to create an new paired table like this: ![enter image description here][2] I tried diffrent things,... |
| > n = 1;x = {Null}; Dynamic[Grid[ Table[With[{i = i}, {i, InputField[ Dynamic[x[[i]], (If[NumericQ[#], x[[i]] = #; AppendTo[x, Null]; n++]) &], ImageSize -> 50]}], {i, n}]]] I'm trying to create a form to input lists.... |
| Hello I would like to create some GIF-animations. But the export doesnt work with the extention "gif". > SetDirectory[NotebookDirectory[]] > Plot[Sin[x], {x, -\[Pi], \[Pi]}] > Export["test.gif", %] I dont get no error-message or so,... |
| Hello I have a list perhaps like this: list = {1, {1, 2, 3}, {{1, 2}, 3}} I search all postions with the Value 1: pos = Position[list, 1] {{1},{2,1},{3,1,1}} I want to replace the 1 at the last position: list[[3, 1,... |