- 积分
- 0
- 注册时间
- 2014-7-26
- 仿真币
-
- 最后登录
- 1970-1-1
|
各位大神:
我最近使用vfriction的子程序做一个摩擦生热的例子。使用的是explicit中的vfriction子程序,发现这个根本无法生成摩擦力。
u = props(1)
c
do k = 1, nBlock
fn = fNormal(k)
fs = fStickForce(k)
ft = min ( u*fn, fs )
fTangential(1,k) = -ft
fTangential(2,k) = zero
end do
其中倒数第三句 fTangential(1,k) = -ft,我在子程序中输出它的值,发现输出的全都是*****(全是星号)
请问这个是什么情况? 然后我尝试仿真了所有的explicit的子程序,发现当输出fTangential(1,k)时,还是全都是星号(*****),同时因为没有摩擦力,所有也没用输出摩擦功。
我的子程序计算全部失败,
所加的输出语句很简单,
open(1200,file='D:\work\u.txt', status='unknown',position='append')
write(1200,1010) rData(2),u,rData(4),fn,fTangential(1,k) |
|