639 reputation
410
bio website archaeogeophysics.info
location Ludwigsburg, Germany
age
visits member for 2 years, 8 months
seen Aug 7 at 9:14

May
24
comment non-linear trend reduction using thresholds
Thanks a lot for your help. If you are interested, you can get the raw data via: dropbox.com/s/r7wnjb1nhx9drbz/ois.xyz - Harald. P.S.: z = 99999 are dummy values
Apr
21
comment How can I extract the points from a ListSurfacePlot3D?
This was indeed my intention: extracting a two-dimensional trend. Because I have some dozens of such data files, I thought I could do it in this way...
Apr
21
comment How can I extract the points from a ListSurfacePlot3D?
yes, I did it. By the way: The data are not generated, they are the results of a resistivity survey within an 20 m by 20 m grid
Apr
21
comment How can I extract the points from a ListSurfacePlot3D?
I need the z-values of Flatten[Cases[Normal[p], Line[x__] :> x, ∞],1] at grid-positions at (0, 0), (0, 0.5),...(0, 19.5), (0.5, 0), (0.5, 0.5), (0.5, 1),..., (19.5, 19.5). So I wonder wether it would be possible to extract the data at these positions. Again, thanks for your effort, Harald
Apr
21
comment How can I extract the points from a ListSurfacePlot3D?
May I ask an additional question?
Apr
19
comment How can I extract the points from a ListSurfacePlot3D?
yes, this is exactly I was looking for. Thanks a lot, Harald
Nov
4
comment Graphics legend: How do I split tables into parts?
thanks a lot for your answer and for your code. It is of great help for me!!!
Nov
3
comment Graphics legend: How do I split tables into parts?
thanks a lot, I will have a deeper look at your code tomorrow morning, now (at 1 a.m.) I should finish my work...
Nov
3
comment Graphics legend: How do I split tables into parts?
you are right. "end" is defined as: end = Overlay[{Show[g, plot1a], legendMaker[textLabels, PlotStyle -> manualPlotstyles, PlotMarkers -> manualMarkers, Background -> Directive[Opacity[.5], Black], "LegendLineAspectRatio" -> .3, "LegendGridOptions" -> {Alignment -> Left, Spacings -> {0.7, .25}, Background -> {{GrayLevel[.8], None}, None}}]}, Alignment -> {-.55, -.620}]; and "gedreht" is defined as r = RotationTransform[grad, {x1, y1}]; r[ungedreht]; gedreht = r[ungedreht]; within a larger code. I just used Jen's code as a part of my code
Sep
19
comment Changing the contents of a TextCell according to the user input of another TextCell
Thanks a lot, apart from being more or less a beginner with Mathematica, I would have never found a solution for that...
Sep
19
comment Changing the contents of a TextCell according to the user input of another TextCell
Hi, one TextCell is not exactly working correct. The code is: {Dynamic[TextCell["measurement starts at " <> direction <> " =", FontSize -> 16, TextAlignment -> Right]]. But it should show just the opposite direction chosen in the other TextCell, not the same... How can this be managed?
Sep
19
comment Changing the contents of a TextCell according to the user input of another TextCell
Thanks a lot, this is it!! And also for your great idea adding a popupmenu. Fantastic.
Sep
12
comment How to arrange elements of a list
thanks, you were right, Partition does the job
Sep
12
comment How to arrange elements of a list
ah, Partition is the key... Thanks a lot
Sep
12
comment How to change specific values in a List
@b.gatessucks Thanks again. Meanwhile I changed my code, using Clip ...
Sep
12
comment How to change specific values in a List
Thanks a lot, with Min[#, 255] & /@ lst it works fine
Sep
12
comment How to change specific values in a List
Thanks a lot!! Searching Wolfram's reference I didn't find that feature... So, thanks again for your hint
Sep
4
comment How To Span Table Headings?
I agree. I changed it and I hope it is now more or less ok
Sep
4
comment How To Span Table Headings?
@Klett: Of course, I can do it. But don't you think, that the link to the first question of this topic will do it?
Sep
3
comment How To Span Table Headings?
Verde: Thanks a lot!!