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

using System;4 b7 s$ D7 N* n9 g
using System.Collections.Generic;
: \( p& |) R& c. j/ }
using System.Linq; M" q) L2 _# d' }( ?5 }
using System.Text;& M3 y# Z2 u& f* m
using System.Runtime.InteropServices;
% ^2 N$ j; k# F3 p6 u
( @; e6 I U+ U. R
public class forcal/ ^8 c" r$ G4 `
{
$ S! ?, X# N7 h$ M ^
[DllImport("Forcal32W.dll")]
6 U. B- Z7 n" s1 S B3 [+ [9 `* ]
public static extern bool InitForcal();" ]$ O% g3 v2 }0 `, p% t: J1 j. F: Z
[DllImport("Forcal32W.dll", CharSet = CharSet.Unicode)] //使用Unicode字符集; d" ? Y" a$ V/ {* ]5 @
public static extern int RealCom(string ForStr, int nModule, ref int hFor, ref int nPara, ref int Para, ref int ErrBegin, ref int ErrEnd);
D7 H% w" y1 a0 J. d
[DllImport("Forcal32W.dll")]
! {: b; ?/ w7 j
public static extern double RealCal(int hFor, double[] d);
; C: y" v* H3 P
[DllImport("Forcal32W.dll")]
( F2 J8 j# f6 C9 J7 k
public static extern void FreeForcal();: p, @% L+ j5 O: l, F5 r
}2 S. g* q; r, Y- Y& ^( w
! ]) r7 f1 v; J2 G7 g# c! n" P
namespace CsharpForcal& j( H# V$ |9 _6 w8 R# r6 m w
{
1 k3 C9 `8 G) D: N6 d+ y" p
class Program
- Q! j. A$ x- x- i" D$ k; E
{
' l* `: y8 i1 P; {
static void Main(string[] args); Z' l0 Y9 [% s/ }; y
{
) B, d% O1 N! K' `7 v: t R: E
bool flag = false;. ^2 F8 I2 P" ^# K, S' e
8 q. P" O8 \6 k( F: z; ^, r/ I" c
int code = 0;
! O0 U1 h2 M& K0 ]8 q
int hFor = 0; //必须为0，否则是一个加锁模块的函数指针
* e0 G5 q& S1 j1 ~
int nModule = 1;6 [4 U6 x- a& \: V4 g6 {
int len = 0;
* `2 Z% h" I. a& @) s' Y9 S
int Para = 0;
; o5 P6 j' F" r9 Z2 w2 F1 s2 X
int e1 = 0;
% n* I/ O% E" z5 E
int e2 = 0;* R: ~4 T0 w- w# R& f* c6 f
double[] MyArgs = new double[2] { 2, 3 };
' I5 q# w2 [: z
# W' o4 [' k, e! b' g2 Q% h
flag = forcal.InitForcal();
9 w0 a3 C; }2 E$ }. _$ P
# s V4 \; k J
string s = "f(x,y)=x+y";
$ X4 r) K8 e* u% `; O: N
code = forcal.RealCom(s, nModule, ref hFor, ref len, ref Para, ref e1, ref e2);5 W8 D' i4 E. N/ [/ d* P* }6 c
Console.Write(code);
: c3 I3 T. p3 C3 }, L8 [' f Y; M
0 H% Y$ q+ L2 |2 m
if (code == 0)
) u7 V* Y- j# f' ?0 C. V! m0 B
{9 e: I) w& J9 s- z7 P3 n
double dd = forcal.RealCal(hFor, MyArgs);8 m1 L! v& S' A/ K: i
Console.Write("\r\n结果=");! \# n- Q, r0 v0 m
Console.Write(dd);% |0 g9 r6 \: ^
Console.Write("\r\n");' A; K* W$ \1 [& n3 a
}
0 D5 x1 i# |) y, R
9 d/ T6 ?/ b* d/ i0 b$ b! X) r& G
forcal.FreeForcal();" M- j) E7 g9 i v K3 ~; B
}, H" d3 w* J7 {) W4 g
}1 y2 c4 p0 H# j0 C
}

复制代码