【灌水】fepg的缺点

soaringbird

个人认为，今天才发现，
好像它的调试错误的功能差了点
有么？

billget

如果你用网络版，如果你的FEPG需填写的文件如pde等有问题，你用系统命令编译成源程序时会出错。

soaringbird

您的意思是说在用test命令的时候吗？
我运行test命令的时候没有错误，可是。。。。
后来运行.bat的时候就有问题了

billget

将那个output框里的信息打出来让我看看？？？？

soaringbird

我重新用test命令，做了一下
发现这次与上次又不同了
信息如下：
  
C:\IFEPG\temp6>fegen.bat
  
C:\IFEPG\temp6>fl32 /W0 /nologo /c npq4g2.for
npq4g2.for
npq4g2.for(119): error FOR3852: syntax error
  
C:\IFEPG\temp6>fl32 /W0 /nologo /c npll2g2.for
npll2g2.for
  
C:\IFEPG\temp6>fl32 /W0 /nologo /c npgl2g2.FOR
npgl2g2.FOR
  
C:\IFEPG\temp6>fl32 /W0 /nologo enpar.FOR @npar.lin c:\ifepg\nfe\fepg.lib
enpar.FOR
Microsoft (R) 32-Bit Incremental Linker Version 3.00.5270
Copyright (C) Microsoft Corp 1992-1995. All rights reserved.
  
LINK : fatal error LNK1181: cannot open input file "npq4g2.obj"
  
C:\IFEPG\temp6>if not exist usub.for FL32 /W0 /nologo  unpar.for
unpar.for
Microsoft (R) 32-Bit Incremental Linker Version 3.00.5270
Copyright (C) Microsoft Corp 1992-1995. All rights reserved.
画线部分是提示我语法错误吗？
那里的语法呢？
别的地方呢？

seeksilence

npq4g2.for(119):  
npq4g2.for文件的119行

soaringbird

还有:?)
(1)LINK : fatal error LNK1181: cannot open input file "npq4g2.obj"
这句怎么解释阿
  
我把pde,pre文件贴出来了
在我别的贴子上了，帮忙看看吧

soaringbird

我改了一下119行的错误，test的信息如下
怎么没有什么复制的信息呢？
我记得，再作其他的时候，都会看到复制了。。。文件之类的
而且也没有让我，按任意键继续阿，直接就结束了
C:\IFEPG\temp6>fegen.bat
  
C:\IFEPG\temp6>fl32 /W0 /nologo /c npq4g2.for
npq4g2.for
  
C:\IFEPG\temp6>fl32 /W0 /nologo /c npll2g2.for
npll2g2.for
  
C:\IFEPG\temp6>fl32 /W0 /nologo /c npgl2g2.FOR
npgl2g2.FOR
  
C:\IFEPG\temp6>fl32 /W0 /nologo enpar.FOR @npar.lin c:\ifepg\nfe\fepg.lib
enpar.FOR
Microsoft (R) 32-Bit Incremental Linker Version 3.00.5270
Copyright (C) Microsoft Corp 1992-1995. All rights reserved.
  
C:\IFEPG\temp6>if not exist usub.for FL32 /W0 /nologo  unpar.for
unpar.for
Microsoft (R) 32-Bit Incremental Linker Version 3.00.5270
Copyright (C) Microsoft Corp 1992-1995. All rights reserved.

soaringbird

呵呵，现在我运行.bat,得到如下的
信息：（屏幕总是在滚动，好像进入了死循环吧，后面的信息都是重复的）
您瞧瞧吧，我考了一部分
  
C:\IFEPG\temp6>if not exist end goto 2
  
C:\IFEPG\temp6>enpar disp0 time nv coor0 bfd einform estiff elem0 f mass sys
MMATE =          2 NMATE =          3
EMATE =
  .25E-01  .00E+00  .00E+00  .00E+00  .00E+00  .00E+00
MMATE =          2 NMATE =          2
EMATE =
  .14E-01  .20E+02  .00E+00  .00E+00
  
C:\IFEPG\temp6>solv sys f einform estiff u
NUMEL,NEQ =        650         650         651
NIN_SOLVER .... MAXA =      16779
run-time error M6101: MATH
- floating-point error: invalid
  
C:\IFEPG\temp6>unpar disp0 time sys bfd nv u displace end
KNODE,KDGOF,KVAR =
    676      1    676
run-time error F6416: OPEN(u)
- file not found
  
C:\IFEPG\temp6>if not exist end goto 2
  
C:\IFEPG\temp6>enpar disp0 time nv coor0 bfd einform estiff elem0 f mass sys
MMATE =          2 NMATE =          3
EMATE =
  .25E-01  .00E+00  .00E+00  .00E+00  .00E+00  .00E+00
MMATE =          2 NMATE =          2
EMATE =
  .14E-01  .20E+02  .00E+00  .00E+00
  
C:\IFEPG\temp6>solv sys f einform estiff u
NUMEL,NEQ =        650         650         651
NIN_SOLVER .... MAXA =      16779
run-time error M6101: MATH
- floating-point error: invalid
  
C:\IFEPG\temp6>unpar disp0 time sys bfd nv u displace end
KNODE,KDGOF,KVAR =
    676      1    676
run-time error F6416: OPEN(u)
- file not found
  
C:\IFEPG\temp6>if not exist end goto 2
  
C:\IFEPG\temp6>enpar disp0 time nv coor0 bfd einform estiff elem0 f mass sys
MMATE =          2 NMATE =          3
EMATE =
  .25E-01  .00E+00  .00E+00  .00E+00  .00E+00  .00E+00
MMATE =          2 NMATE =          2
EMATE =
  .14E-01  .20E+02  .00E+00  .00E+00
  
C:\IFEPG\temp6>solv sys f einform estiff u
NUMEL,NEQ =        650         650         651
NIN_SOLVER .... MAXA =      16779
run-time error M6101: MATH
- floating-point error: invalid

seeksilence

run-time error M6101: MATH  
- floating-point error: invalid

soaringbird

是啊，这个信息我也看到了
可是怎么改阿
怎么设置时间啊
说得在明白一点好吗？
你在你那里运行了吗？

billget

前处理你需要重做，重添那些边界条件和其他的。
看看《初级教程》吧.

soaringbird

好的，我先研究一下。。。
谢谢哦

soaringbird

您的前处理是指建模吗？我已经重新画了图，用condition添了边界条件等等，我那些工作已将作了阿
只是还有问题阿
还是：
C:\IFEPG\temp7>bft disp0 time coor0 nv bfdt stop
  
C:\IFEPG\temp7>if exist end del end
  
C:\IFEPG\temp7>enpar disp0 time nv coor0 bfd einform estiff elem0 f mass sys
MMATE =          2 NMATE =          3
EMATE =
  .25E-01  .00E+00  .00E+00  .00E+00  .00E+00  .00E+00
MMATE =          2 NMATE =          2
EMATE =
  .14E-01  .20E+02  .00E+00  .00E+00
  
C:\IFEPG\temp7>solv sys f einform estiff u
NUMEL,NEQ =        650         650         651
NIN_SOLVER .... MAXA =      16779
run-time error M6101: MATH
- floating-point error: invalid
  
C:\IFEPG\temp7>unpar disp0 time sys bfd nv u displace end
KNODE,KDGOF,KVAR =
    676      1    676
run-time error F6416: OPEN(u)
- file not found:?):?):?):?):?)

seeksilence

run-time error M6101: MATH  
- floating-point error: invalid  
可能是除零错误，你改的程序有问题

soaringbird

您指的是我改的fort那部分有问题吗？
您能帮我看看吗？