Wolfram Mathematica

« first day (1634 days earlier) ← previous day next day → last day (3148 days later) »

kirma

06:05

@JasonB Thanks, looks very much like what I was thinking about.

1 hour later…

Wjx

07:15

@Szabolcs Hi, @Jens told me in this questions' comment that If I want to know more about Handler, I should communicate directly with you~

I'm just wondering if it's convenient for you to teach me a bit about that here?

Thanks!

and maybe there's some others who know about this? any help will be appreciated :D

kirma

07:29

Yet another pointless rendition... :)

J. M.

@kirma "pointless" - well if you didn't use coordinates at all, I'd be hella surprised. :P

kirma

07:49

3 hours later…

J. M.

10:50

@Szabolcs belisarius says hi. He will be back; not soon, but he'll be back.

7 hours later…

Meta

18:05

Q: Why my description will result so many misunderstanding?

This is my question today.The original intention is I want to get the picture of certain answer or question by it share link,then I can conveniently distribute it to my friends stumped in Great Firewall.From this this comment,I get a relative link by .Then I know the useful function dotNetBrowser...

discussion

Szabolcs

18:59

@Wjx I also don't know more about it than what can be easily guessed from ?Internal`*Handler*.

Szabolcs

19:29

@Wjx Actually I didn't even remember some of the stuff I wrote in that answer. We could have a question on this and figure out the details together

hhh

19:45

{1, 2, 3, 4, 5, 6} ????? {1, 0, 0, 1, 0, 0} -----> {1,4}

I want to get {1,4}, is there any index command or something for this?

Pickett

@hhh Look up "Pick"

hhh

Pick[{1, 2, 3, 4, 5, 6}, {True, 0, 0, True, 0, 0}], nice thank you!

Pickett

@hhh Well, either that or

Pick[{1, 2, 3, 4, 5, 6} , {1, 0, 0, 1, 0, 0} , 1]

hhh

20:00

SetProperty[VertexDelete[g, #],
VertexCoordinates -> Delete[GraphEmbedding[g], #]] & @@ {1,4,5}

I am only getting the head of the list deleted i.e. the element 1, what was the command to apply this to the whole list?

I could loop this with Table but there was someway to do it with &@@ and # things.

hhh

20:14

Q: Deleting vertices from a Graph and preserving structure

My goal is to remove vertices from graphs (and the edges from them) and then take GraphComplement to find out cut sets in graphs with sink and source such as here. So How can I delete vertices from a graph and preserve the earlier structure? Trials Trial 1. Failures in trying to remove verti...

graphs-and-networks table setproperty

Q: Finding all minimal paths in site percolation?

I want to find all minimal site percolation paths from the left side to the right side, small demo grid. A related question is here on finding bond percolation paths instead of minimal site percolation paths. A site is a neighbour to other site vertically or horizontally but not diagonally. I...

programming algorithm

I need to learn to delete many vertices from a graph: dirty while loop?

SeedRandom[10801];
dimension = 5;
coDimension = 10;
percProbability = 0.7;
deleteMe =
Pick[Table[i, {i, 1, 30}], Table[RandomReal[] > 0.5, {i, 30}]]

G = GridGraph[{dimension, coDimension}, VertexLabels -> "Name",
ImagePadding -> 30]
(*H=SetProperty[VertexDelete[g,#],VertexCoordinates\[Rule]Delete[\
GraphEmbedding[g],#]]&@@deleteMe*)
n = 1; H = G;
While[n < Length[deleteMe], H = VertexDelete[H, deleteMe[n]]; n++]
H = SetProperty[H, VertexCoordinates -> GraphEmbedding[G]]

How can I delete many vertices from a graph and preserve the structure?

This is super confusing because the examples in the manual preserves the structure but my example not

@Pickett can you understand what I am trying to do?

hhh

20:43

Q: How can you delete a list of vertices from a GridGraph?

Given a grid graph and delete the vertices {3, 4, 5, 11, 14, 15, 16, 17, 18, 19, 21, 23, 26, 27, 30} and preserve the structure. There is the VertexDelete command but I am unable to get it working while preserving the structure. SeedRandom[10801]; dimension = 5; coDimension = 10; percProbabil...

graphs-and-networks

Simplified the question to more easily understandable.

hhh

20:53

SOlved finally :)

A: How can you delete a list of vertices from a GridGraph?

Big Thank You to Szalbocs! SeedRandom[10801]; dimension = 5; coDimension = 10; percProbability = 0.7; deleteMe = Pick[Table[i, {i, 1, 30}], Table[RandomReal[] > 0.5, {i, 30}]]; G = GridGraph[{dimension, coDimension}, VertexLabels -> "Name", ImagePadding -> 30] G = SetProperty[G, VertexCo...

2 hours later…

hhh

22:52

a = {{1, 2}, {0, 1}}
{{True, True}, {False, True}}

How can I get this boolean matrix from a?

Q: Command to return Boolean matrix about a matrix?

I want to check that each entry is positive and not zero a = {{1, 2}, {0, 1}} {{True, True}, {False, True}} where I would loop this with two Tables but I find to find something more succint. How can I get the boolean matrix out of a?

code-request

this should be super trivial but forgotten...

a = {{1, 2}, {0, 1}} // Positive

actually realised it faster :)