Find the intersection of a line with a plane: Difference between revisions

m
→‎version 2: minor corrections
(→‎{{header|REXX}}: beautification of plane and linedefinition)
m (→‎version 2: minor corrections)
Line 149:
pd=a'*x'
End
pd=pd
pd=pd||mk2('y',b)||mk2('z',c)'='d
pd=pd '+' mk2('y',b)
pd=pd||mk2( 'y+',b)|| mk2('z',c) '=' d
 
Say 'Plane definition:' pd
Line 195 ⟶ 197:
res=res||v1'*t'
Otherwise Do
If res=v'x=' Then Do
If v1vv=1 Then
res=res||'t'
Else
2,300

edits