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

using System;
" v* n$ Y6 }0 c7 C+ P a0 E @
using System.Collections.Generic;
/ R+ k4 E5 O3 i o Q9 D* y
using System.Linq;! p% ?8 o2 }9 C- |: P0 \
using System.Text;
4 M# P& W. L( x/ k" ^: m
using System.Runtime.InteropServices;
* `/ S8 X% R8 H: A
$ S9 H+ L% d$ M% u O8 b; }8 P
public class forcal/ c; ^ s' B) Q$ P ^
{
) ?0 [& Y+ d/ I$ S& b8 H0 J
[DllImport("Forcal32W.dll")]
[; z4 B( X% e4 W* E! ~
public static extern bool InitForcal();
0 I9 @% j' @9 W. |
[DllImport("Forcal32W.dll", CharSet = CharSet.Unicode)] //使用Unicode字符集9 M- Y s# w/ o) F4 M; A' q
public static extern int RealCom(string ForStr, int nModule, ref int hFor, ref int nPara, ref int Para, ref int ErrBegin, ref int ErrEnd);
! H7 B4 t. ?0 E( z- d" u
[DllImport("Forcal32W.dll")]/ V& L! I% z5 B/ \' f/ [# {
public static extern double RealCal(int hFor, double[] d);2 V, ^% {9 O/ @$ R/ N. L2 H2 Z
[DllImport("Forcal32W.dll")]% K( a# y2 ]5 Y Y
public static extern void FreeForcal();
; {$ ?& a# P+ P A! K2 t. e1 d& \" n
}
( ?" k1 V3 d; n* R
& ]2 K1 Y' x& g9 \
namespace CsharpForcal$ f' ?4 m: t3 H# M8 A3 G1 j
{
6 q @, C7 P J. Y7 w, `& u
class Program
9 D- |( W/ Z7 D
{4 k& X8 ^; [6 P3 p8 ]; H! Q2 |
static void Main(string[] args)
5 V. G4 m2 S4 M C4 n- x A
{
9 B, g6 F& Z, @/ m
bool flag = false;5 H# D: n* r5 _0 H a9 ]# @7 ]" Z$ P
. h: Y3 a5 h+ A6 d8 O9 e$ P
int code = 0;/ Y9 ?9 }9 ]) ?& T- @; e
int hFor = 0; //必须为0，否则是一个加锁模块的函数指针% I$ |- X0 ]0 O
int nModule = 1;+ y }" z2 j2 P5 r2 T1 a8 O0 o. d% Z3 x; x
int len = 0;; p( `: _* p& [
int Para = 0;- V1 ^6 Z+ W5 P$ O* r$ ^, _
int e1 = 0;
* {, G7 U6 R& ?0 l
int e2 = 0;, z7 ?1 \* K8 I( G! U% u
double[] MyArgs = new double[2] { 2, 3 };
2 C3 b. l. u. A+ P9 J
- g4 e: v; W ?. _$ e- ~. s
flag = forcal.InitForcal();% T) C7 T8 o$ O8 W* V
8 l2 o5 v% S: l) c3 P' a1 G6 I# ~
string s = "f(x,y)=x+y";$ v) Y; u, G$ M" ^) \! Z5 w5 \$ K
code = forcal.RealCom(s, nModule, ref hFor, ref len, ref Para, ref e1, ref e2);
+ J' d, o, F; U$ R! p2 a
Console.Write(code);
& c. E9 n: o' U8 t5 M" e* f9 S/ G1 r8 K
/ u' T# F8 F9 m3 C( T
if (code == 0)
( g: R# U2 a+ @5 `+ ~- y
{
+ E! q) T4 m v# k( j/ ], w! I
double dd = forcal.RealCal(hFor, MyArgs);
( V; K w6 G( \4 Q7 R- l
Console.Write("\r\n结果=");. z) w u) \) @" P. D4 C) \
Console.Write(dd);+ {" K4 [) P% `; b7 r7 {
Console.Write("\r\n");- Y. F* f6 I6 N3 G7 X
} z0 @1 _9 e5 n! @
# c3 e+ p3 ^7 F+ Q1 H5 T9 O! f
forcal.FreeForcal();! N7 O- w9 c% e' H, | A2 D
}
5 J$ t9 s3 @4 U1 Q" x+ N
}
( d. m. V3 a# ~! A( ?
}

复制代码