Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Very simple question
Replies: 4   Last Post: Apr 11, 2014 2:11 AM

 Messages: [ Previous | Next ]
 Bob Hanlon Posts: 906 Registered: 10/29/11
Re: Very simple question
Posted: Apr 10, 2014 3:07 AM

There is a problem with your entry of the argument to fx. If it is
re-entered, the function works partially. It works only partially because
pt2 and pt3 are undefined. Presumably you meant to use pt1 throughout.
Doing that causes fx and fy to return the same results.

fx[pt1_]:=Module[{x1,y1,x2,y2,x3,y3},

Print[pt1];

x1=pt1[[1,1]];y1=pt1[[1,2]];

x2=pt1[[2,1]];y2=pt1[[2,2]];

x3=pt1[[3,1]];y3=pt1[[3,2]];

Print[x1,y1,x2,y2,x3,y3];]

fx[{{1,2},{3,5},{4,7}}]

{{1,2},{3,5},{4,7}}

123547

fy[pt1_]:=Module[{zz,x1,y1,x2,y2,x3,y3},

zz=pt1;

Print[zz];

x1=zz[[1,1]];y1=zz[[1,2]];

x2=zz[[2,1]];y2=zz[[2,2]];

x3=zz[[3,1]];y3=zz[[3,2]];

Print[x1,y1,x2,y2,x3,y3]]

fy[{{1,2},{3,5},{4,7}}]

{{1,2},{3,5},{4,7}}

123547

All of these assignments are unnecessary.

Print@@Flatten@{{1,2},{3,5},{4,7}}

123547

Bob Hanlon

Date Subject Author
4/9/14 W. Craig Carter
4/10/14 Bob Hanlon