计算抛物线上一点的坐标

<TITLE>作者：金海龙</TITLE> <center> <pre> <center><H1>警告</h1></center><B> 本计算机程序和文章受著作权法和国际公约的保护，未经授权擅自 复制或散布本程序的部分或全部，将承受严厉的民事和刑事处罚， 对已知的违反者将给予法律范围内的全面制裁。 </B></pre> </center> <pre> <center><h1>几何课件</h1></center> 讲解主题:画抛物线参数方程的图像 <hr> 使用方法：按下Ctrl键，把鼠标移到某个点上，就可以看到抛物线参数方程的图像； 或者用鼠标左键拖动A,C中任意一个点。 <hr> 辅助分析：在Form1中，蓝色和黄色的线是抛物线，黑色的矩形是以A、C为对顶点的矩 形，两条互相垂直的线代表<B>以AC中点O为原点的平面直角坐标系</B>。 CalPaoWuXianPoint()是本课件的核心函数，它所运用的数学原理请阅读： 计算机图形学(上册) 3.6节 参数方程 之抛物线的参数方程 你可以按照如下步骤去分析DrawGeometry函数： 1.擦除画布 2.用A1,C1代表A,C两点 3.计算AC中点坐标 4.设置画刷和画笔 5.计算矩形的长宽 6.设置画抛物线的函数所需的参数 7.计算抛物线上的点 8.用平滑的曲线连接抛物线上的点 9.绘画坐标轴和矩形AC <hr> <B>重要函数：</B> <OL> <LI>Function CalPaoWuXianPoint(O:TPoint;p,begint,endt:Extended;stepi:extended=1;UP1:Boolean=false;UP2:Boolean=false):TPoints; 说明：计算抛物线上的每一个点的坐标; <LI>Function GetPaoWuXianPoint(O:TPoint;p,t:Extended):TPoint; 说明：计算抛物线上的一点的坐标; </OL> <hr> <b title="读完程序以后要求理解如下要点">读后要求：</b> <ol> <li>复习DrawLine()、DrawAPoint()、GetCenterXY()、ClearCanvas()等函数的 使用方法； <li>理解函数CalPaoWuXianPoint()和GetPaoWuXianPoint()的数学原理； <li>掌握运用CalPaoWuXianPoint()函数计算抛物线上的所有点坐标的技术； <li>能够使用GetPaoWuXianPoint()计算抛物线上某一点的坐标。 </ol> <marquee scrollamount=5 width=700 bgcolor=#efffef>所有函数的数学原理都已经在金海龙先生编著的《计算机图形学》上册,相应的章节中讲过了，不再重复讲解，请阅读相关章节。</marquee><BR> <div style="clear:both;float:right;"> <a href="http://bigengineer.blog.163.com" target=_blank>作者：金海龙(天主教)</a> <a href="http://download.enet.com.cn/blog/index.php?userid=myhotdog" target=_blank>个人博客</a> <a href="http://bigengineer.blog.ccidnet.com" target=_blank>更多课件...</a> </div> </pre>