丁浩轩prolog教学实习报告(3)

来源：网络收集时间：2019-04-01 下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:或QQ：处理（尽可能给您提供完整文档），感谢您的支持与谅解。

derive(Rest,S).

derive([X|Rest],[X|S]):-derive(Rest,S).

mv(Win,P1,Facing,f(_),P2,Facing):-!, pos(Displacement,_Turn), P1=pnt(X1,Y1),

X2=round(X1+Displacement*cos(Facing)), Y2=round(Y1+Displacement*sin(Facing)), P2=pnt(X2,Y2), drawline(Win,P1,P2).

mv(_Win,P1,Facing,m,P2,Facing):-!, pos(Displacement,_Turn), P1=pnt(X1,Y1),

X2=round(X1+Displacement*cos(Facing)), Y2=round(Y1+Displacement*sin(Facing)), P2=pnt(X2,Y2).

mv(_Win,P1,Facing,r(Direction),P1,F):-!, pos(_Displacement,Turn), F=Facing+Direction*Turn. mv(Win,P1,Facing,t(B),P1,Facing):- move(Win,P1,Facing,B).

move(_Win,_P1,_Facing,[]):-!. move(Win,P1,Facing,[X|Rest]):- mv(Win,P1,Facing,X,P,F), move(Win,P,F,Rest).

tree(Win):- grammar(Commands), iter(5,Commands,C), Facing=-pi/2, Point=pnt(100,250),

move(Win,Point,Facing,C). end implement draw canvas.pro predicates

onPaint:drawWindow::paintResponder. clauses

onPaint(S,_Rectangle,_GDIObject):- draw::tree(S:getVPIWindow()). 3.4.4 结果截图

4 总结与体会

通过本次开发实践，加深了对prolog程序编程的熟练程度，对prolog语言有了深一步的了解。对所学专业知识进一步消化、理解并系统化，锻炼和提高综合运用所学知识解决实际问题的能力。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库丁浩轩prolog教学实习报告(3)在线全文阅读。

丁浩轩prolog教学实习报告(3).doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印下载失败或者文档不完整，请联系客服人员解决！

本文链接：https://www.77cn.com.cn/wenku/zonghe/560760.html（转载请注明文章来源）