求解线性规划中的单纯型法的源码(100分)

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #21

解是我的程序（QB）算出来的，我想用我的程序来调你提供的程序，看了提供的帖子，可能问题很多，
我手头的资料是单纯形法的。有时间试试，有结果我通知你。

 

春

春风江南

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #22

如果能把你的qb转成pascal就好了（我不懂basic），我也可以试着再做一下。
我的地址是：lj.ah@163.com
谢谢你的关注！

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #23

http://www.delphibbs.com/delphibbs/dispq.asp?lid=668330
已结贴，tom12345提出的例子，确实有错，我算得结果和提供的答案是一样的，但用
JohnsonGuo的程序运行显示 failed。
但gzpbx多人接受答案了，莫名其妙！

 

春

春风江南

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #24

所以我希望再有一个源程序啊

 

春

春风江南

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #25

linsb
把你的qb贴出来，我来试试翻译吧！如果方便的话。

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #26

我正翻译，源程序用了一些goto语句，麻烦一些。我调好了发给你。留下地址。

 

春

春风江南

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #27

goto语句就是麻烦。
我的email: lj.ah@163.com

 

春

春风江南

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #28

linsb 你翻好了没有啊^_^

 

春

春风江南

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #29

linsb你的email能告诉我吗？

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #30

linsb3031@163.com

 

春

春风江南

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #31

翻译有进展了吗？

 

L

lj.ah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #32

if (a.eq.b) goto 10
...
10 i=1
这种fortran的goto语句怎个翻译？

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #33

label 10;
...

if (a=b) then goto 10;
...
10:i=1;

 

春

春风江南

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #34

do 7 i=2,m+1
...
if (a..eq.b) goto 7
...
7 continue
//是否if a=b，不执行下面的语句，直接continue，然后还要循环？

 

L

lj.ah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #35

do 7 i=2,m+1
...
if (a..eq.b) goto 7
...
7 continue
可以译成这样吗？
label 7;
for i:=2 to m+1 do
begin
...
if(a=b) then goto 7
...
7 end;

 

S

star_survior

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #36

NO PROBLEM

 

春

春风江南

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #37

接受答案了.