玫瑰线轨迹模型及其仿真实验
们在Mathematica7.0环境下编写了模型仿真函数roseLineTrajectory，函数roseLineTrajectory输出动点Q的运动轨迹。源代码如下：roseLineTrajectory[a_， k_， Dynamic[t_]] ：=DynamicModule[{angleCalc， p， q， tt， g}，g[] ：= （p = RotationMatrix[t].{a/2， 0}；（*点P在t时刻位置*）q=RotationMatrix[k t].{a/2， 0}；（*点Q在t时刻相对于P点的偏移量
<<上一页 下一页>>
广州市越秀区图书馆版权所有。
联系电话：020-87673002
本站访问人数：