Recent content by Haitham

I don't think my question made complete sense. It certainley needed better clarity. What I am trying to achieve is to pick some region or pixel in a mathematica displayed image and have mathematica tell the coordinates of that image. Thanks!

I would like to use the pointer in an image displayed by mathematica and have the software tell me the corrdinates of that pixel in the image. I am diaplying the image using the following command: ims = Table[showSlice[data, i, AspectRatio -> Automatic, ImageSize -> 100...

I am not very well informed on Kerr black holes. Why don't they have point singularities? And even if they don't I still expect the angular momentum to increase as they collapse. Can someone elaborate? Thanks!

Yes its all resolved and working fine now. Thanks so much for your help, this was great!

I think it is solved now, this is what I am using at the moment: corr = {{83, 225}, {91, 200}, {95, 175}, {94, 150}, {86, 115}, {80, 121}, {85, 150}, {85, 175}, {83, 200}}; label = {1, 2, 3, 4, 5, 6, 7, 8, 9}; Needs["Graphics`Colors`"]; n = Length[label]; Show[temp...

Thanks! This is working very well. Getting the default black text to change to white is not working at the moment. I tried the following and it works well independently: Show[Graphics[{Black, Text["Point", {0, 025}, {0, 0}, TextStyle -> {FontFamily -> "Times", FontSize ->20, FontWeight ->...

That worked pretty good! It overlays specified text at a certain coordinates entered! temp = ListDensityPlot[E^Chop[dwi[[2]][[4]]],PlotRange -> All, Mesh -> False]; Show[temp, Graphics[{Text[{p}, {80, 90}]}]] I now just need to change the text to a different color so I may easily view...

Great! Thanks! In my mathematica program I am plotting some images but need to be able to point on the image and somehow display the cartesian coordinates at specific locations. I am using the ListDensityPlot command to plot my image. Any idea how I can go about this one?

What I understand is that this command is defined so that it turn the point of a polygon into the lines within the polygon: polyLines[p_] := Table[{p[[n]], p[[Mod[n, Length[p]] + 1]]}, {n,1, Length[p]}] But what values do I need to pass to this command and be able to excute it?

You all are great! I have learned something new from each and every post here. Thanks!

I am trying to understand this part of a mathematica code, can anyone help explain what that part does? Thanks!

Great I will try this! Thanks the help!

Thanks Alex, That is wonderful! Actually I have 128 arrays with 21 element in each. I was thinking along the lines of using one simple preexisting function or two in Mathematica.

I don't think so. There must be some universal gravitational equilibrium for our solar system to exist especially at the edge of a spiral galaxy. Some of these star may not exist but I think the majority do.

I am trying to find which function would average an output that is a set of arrays and compute each element in each array in the average? I guess another option is that I could convert the set of arrays to one large array then average that. While I am looking online here maybe someone can...