Forcal程序设计基础教程 - 数学建模社区-数学中国

using System;
& E, N+ [6 C4 h' d( P6 ~
using System.Collections.Generic;" F* E( M! f3 r) T! D& p
using System.Linq;+ q/ Z. ?- h1 l
using System.Text;+ \/ A6 d: t0 d
using System.Runtime.InteropServices;1 H7 W! g Z H S4 L% P! a
9 U# T, G/ L& A) N6 p1 B( U. R( T4 m
public class forcal" A& [. |& Q {- E. L0 W1 z
{# [, M( {1 R7 e% b
[DllImport("Forcal32W.dll")]
, I5 h+ s$ C0 K" A# `
public static extern bool InitForcal();; i7 L# L" }) t! U" x
[DllImport("Forcal32W.dll", CharSet = CharSet.Unicode)] //使用Unicode字符集
: k3 |" D7 R5 |. b
public static extern int RealCom(string ForStr, int nModule, ref int hFor, ref int nPara, ref int Para, ref int ErrBegin, ref int ErrEnd);0 O6 y( @5 U0 T. |8 _& W
[DllImport("Forcal32W.dll")]
+ F+ e9 g3 e+ e4 P9 w
public static extern double RealCal(int hFor, double[] d);- d% u* r# s$ R1 Q9 p: O$ U, s
[DllImport("Forcal32W.dll")]
5 ^) E1 [6 i% s3 R8 g6 e9 [; ?/ l6 r
public static extern void FreeForcal();
! k" |/ z3 ]9 e2 O8 i# T
}
5 w/ V: ?+ [4 \; l- m
5 w+ }6 w+ x& Y1 Q- B6 N3 X
namespace CsharpForcal1 p/ f/ z h! _. g- y: H* w* a
{
( X" j1 q6 l: c: \$ P% c
class Program. J# c7 B! l7 r7 v" |. c5 `& `' Q* z
{
! C4 {: @- G- D" q, |* l/ t- c& J
static void Main(string[] args)
; }7 |- x6 a1 U- {7 F- L& U5 G* z
{% d1 g+ p0 @6 L" a7 d4 p' V
bool flag = false;( W m& t2 b. o$ h, Z
2 r+ u8 m( X' V- `8 v) A
int code = 0;- E8 ?& ]* _6 d, {0 e0 E v* n
int hFor = 0; //必须为0，否则是一个加锁模块的函数指针. n! ]% j6 R( } c! [' S1 |
int nModule = 1;& `7 W% E( }6 d
int len = 0;7 D) N* K2 w+ i
int Para = 0;6 T' p& [3 Z7 l! [* X7 @' V P0 v
int e1 = 0;
" g% z8 j$ m) _
int e2 = 0;
; u! v& z8 g2 p% p/ O; }
double[] MyArgs = new double[2] { 2, 3 };& D; s& a& x& S+ `
, R6 n. Q& a+ H& C" q1 M* X
flag = forcal.InitForcal();
p+ R9 L& x `) o. m# I
7 u) W) ]* _3 J! @& _9 }2 w
string s = "f(x,y)=x+y";
9 u" e* |% p% G& h
code = forcal.RealCom(s, nModule, ref hFor, ref len, ref Para, ref e1, ref e2);
8 H% P c, N/ u7 m
Console.Write(code);: Z% `0 [# q/ B( g7 D$ A
5 ?! H8 @5 z2 v& E
if (code == 0)( q, p8 s# y- M6 ?" P) `
{5 U: Q/ l; V$ V. a* H/ B
double dd = forcal.RealCal(hFor, MyArgs);
1 R4 f$ X i' Z: y0 p. S
Console.Write("\r\n结果=");" g1 U- x" }5 x/ I% Y; a( S( S
Console.Write(dd);9 @0 M: ^$ U+ o' L! ^' }. M- _# g
Console.Write("\r\n");
) \- I. }& r* t* P: a3 ~
}& w( w; U" M0 ~% b: @# H
3 z/ y% A& o: S0 ~
forcal.FreeForcal();
" G9 U4 e& R8 T" E6 U" I4 c! T ]/ u
}. }, }+ p% r# T1 }9 R+ ~/ K9 i$ s
}
8 k. ~6 ~9 J) }6 M7 e
}

复制代码