Hy Guys(adsbygoogle = window.adsbygoogle || []).push({});

I want to create some lines. That lines should be created by the solution of an equation. This equation has in my limits 1 or 2 solutions. The first euation is a circle.

The second is a line.

lineslope, radius, lineshift1, lineshift2 is defined before.

This code only creates only points? Why? can anybody help me?Code (Text):sol = Table[

NSolve[{radius^2 == (x - radius)^2 + (y - radius)^2,

y == lineslope*x + i}, {x, y}]

, {i, lineshift1, lineshift2, 20}]

Show[Graphics[Line[{{x, y}, {x, y}}]] /. sol]

Greets

Jens

**Physics Forums | Science Articles, Homework Help, Discussion**

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Mathematica 7 lines, solution

**Physics Forums | Science Articles, Homework Help, Discussion**