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**

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**