Curve that touches three points: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
(added RPL) |
||
Line 1,632: | Line 1,632: | ||
}</syntaxhighlight> |
}</syntaxhighlight> |
||
See [https://github.com/thundergnat/rc/blob/master/img/Curve-3-points-perl6.png Curve-3-points-perl6.png] (offsite .png image) |
See [https://github.com/thundergnat/rc/blob/master/img/Curve-3-points-perl6.png Curve-3-points-perl6.png] (offsite .png image) |
||
=={{header|RPL}}== |
|||
HP-49+ RPL has a built-in function named <code>LAGRANGE</code> that returns the curve equation from the 3 points, but let's consider it as belonging to a library. |
|||
{{works with|HP|48G}} |
|||
[[File:Parabol.png|thumb|right|alt=HP-48G emulator screenshot|HP-48G emulator screenshot]] |
|||
« → a b c |
|||
« { 0 0 0 } |
|||
c a - C→R SWAP / c b - RE / |
|||
b a - C→R SWAP / c b - RE / - |
|||
1 SWAP PUT |
|||
b a - C→R SWAP / OVER 1 GET b a + RE * - |
|||
2 SWAP PUT |
|||
a IM OVER 1 GET a RE SQ * - OVER 2 GET a RE * - |
|||
3 SWAP PUT |
|||
{ 'X^2' 'X' 1 } * ∑LIST |
|||
» » '<span style="color:blue">PAREQ</span>' STO |
|||
« # 131d # 64d PDIM 0 210 DUP2 XRNG YRNG |
|||
FUNCTION |
|||
(10,10) (100,200) (200,10) |
|||
3 DUPN <span style="color:blue">PAREQ</span> STEQ |
|||
ERASE DRAW |
|||
1 3 '''START''' PIXOFF '''NEXT''' <span style="color:grey">''@ switch off the 3 points on the curve''</span> |
|||
{ } PVIEW |
|||
{ PPAR EQ } PURGE |
|||
» '<span style="color:blue">TASK</span>' STO |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |