Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

Printing only integer values for some equation using MATHEMATICA.

  1. Sep 27, 2012 #1
    Hello every one, I need help on some mathematica run program.

    Suppose the following:

    1) 2=<t=<1000
    2) r=3+2Sqrt[2]
    3) k=(r^t+r^(-t)-20)/4
    4) n=2k+4
    5) x=n/2-(r^t-r^(-t))/2Sqrt[2]

    I need to run the program For[t=2,t=<1000,t++
    and only print if it found any integer values of (k,n,x)

    please help, thanks
     
  2. jcsd
  3. Sep 29, 2012 #2
    r = 3 + 2Sqrt[2];
    For[t = 2, t <= 1000, t++,
    k = (r^t + r^(-t) - 20)/4;
    If[IntegerQ[k], Print["k=", k]];
    n = 2k + 4;
    If[IntegerQ[n], Print["n=", n]];
    x = n/2 - (r^t - r^(-t))/2Sqrt[2];
    If[IntegerQ[x], Print["x=", x]];
    ]

    And this prints nothing because every value has high powers of 3+2 Sqrt[2]
     
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook




Similar Discussions: Printing only integer values for some equation using MATHEMATICA.
Loading...