User Portlet
Discussions |
---|
Thank you Rohit and Richard, both solutions were ideal and solved my problem. |
Gianluca, Thank you, that does indeed find another point, it is unfortunate that the point is co-linear with 2 of the lines and would be an invalid solution to my problem, but I am sure I can adapt. Thanks again. |
Thank you Daniel, very interesting indeed, and I do like coincidences, however if you don't mind I am finding it difficult to use your code to alter the initial 4 numbers, as that is my intention and what part/s of the code would need to be changed... |
It's interesting that FindInstance only finds 1 solution, when there are many solutions, these are just the first few 62616840 , {{y->62616840,z->62616840}} 62616826 , {{y->131915080,z->10050766},{y->131915080,z->52566060}} ... |
Yes Daniel I realise it's not the way, a slight variation of the program above was written to solve a combination type problem, it was because it was behaving like it was testing the primality of numbers that made me think a little. It wasn't until... |
Amendment I have managed to solve my problem with the following code. I am however always open to suggestions or tips on how to streamline things lst = CharacterRange["a", "e"]; lenl = Length[lst]; bl = Join[lst, lst]; tbl = ... |
That's perfect Henrik, works a treat, thank you. I had forgotten about the MapIndexed function. |
There is usually more than one way to solve problems, this is another. Cases[Table[{Sqrt[1 + 5 k^2], Sqrt[k^2]}, {k, 0, 500}], {a_, b_} /; IntegerQ[a]] |
Try shift+enter instead |
lets say I have the following table. gs = 7; ts = Table[{i, j}, {j, 1, gs}, {i, 1, gs}];ts//Grid and I wish to swap parts of columns with another part of a column and the same with rows, then the following works if the spanning part is the... |