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

using System;
! U+ Z0 e8 k# R
using System.Collections.Generic;
/ J6 c, Y! E# I9 f: O1 V1 y
using System.Linq;
) l0 [$ I& {7 r
using System.Text;1 ?" ~5 ?4 X$ U
using System.Runtime.InteropServices;* D; q. V- A+ K& u: a5 {4 P
, _6 X2 R/ t* v, u0 v* q& O. E& d
public class forcal
9 _1 ]2 B3 r2 R: ^: C
{
7 |" P1 \, z3 ~2 i2 _1 d4 h/ l4 [
[DllImport("Forcal32W.dll")]) \6 d/ n, X8 }( ^# z
public static extern bool InitForcal();& ?- R8 C' p0 z9 T1 ?- h
[DllImport("Forcal32W.dll", CharSet = CharSet.Unicode)] //使用Unicode字符集
& z! B1 w- m$ i2 l$ C4 F* p: `
public static extern int RealCom(string ForStr, int nModule, ref int hFor, ref int nPara, ref int Para, ref int ErrBegin, ref int ErrEnd);
5 \; X# t0 X8 m) K1 ]
[DllImport("Forcal32W.dll")]
1 h1 K4 s- f1 m( Q+ G A
public static extern double RealCal(int hFor, double[] d);& E7 g% x8 J2 n6 U
[DllImport("Forcal32W.dll")]
. u8 _4 G' @9 r
public static extern void FreeForcal();; p: g# u% u H. X! s: J" L% w
}
. l& s, X& J9 Q# }. n
3 k; e" V# j- C9 u' i
namespace CsharpForcal
# |, `& y' p( N/ o5 [9 _& T4 W& y, a: x
{
, c6 V6 z: V9 y* g1 j5 D0 E' a+ L
class Program I, u% L6 W6 O3 |5 F+ d/ R/ D. g
{
9 G2 _( U/ m" Y. v6 |, }
static void Main(string[] args)
6 R1 ^3 e4 d3 K9 N: Q l
{
5 r+ Y2 L% B4 Z( G
bool flag = false;9 m b" l# w2 {) T4 N7 [
% @, c H$ f' [! u, F `, B U, E
int code = 0;
. _7 X4 C9 E+ I$ E Y' i! J9 S
int hFor = 0; //必须为0，否则是一个加锁模块的函数指针
) G" J* b* ?% V" M9 m6 [
int nModule = 1;- w. w% H; E1 z4 j+ h( f
int len = 0;
& L( O, A, g: V
int Para = 0;
+ H. d, v' M3 q1 ^
int e1 = 0;6 |. D2 c, T7 j) {) O0 D( C+ Z
int e2 = 0;1 p9 D5 z, k3 }9 C/ X
double[] MyArgs = new double[2] { 2, 3 };% @5 o' a: `6 Q
8 q1 S7 A# Z0 H! ~) L- G
flag = forcal.InitForcal();
) \1 @' |8 {! g) ^0 G
5 x+ L4 E; i4 r. q, P. o( P. ]
string s = "f(x,y)=x+y";
& h# @5 B5 g+ m# G7 s& j' g2 t4 [
code = forcal.RealCom(s, nModule, ref hFor, ref len, ref Para, ref e1, ref e2);- w/ r8 P/ W9 a# K
Console.Write(code);/ J' ^* i7 }4 `+ R: i! L# G, f
3 b# w* s, E, F) w) I* g
if (code == 0)9 }& ^; Y1 J& q# V
{# r; z+ @6 E+ W. i3 v( l
double dd = forcal.RealCal(hFor, MyArgs);8 T; {! h& M( J1 k: `! q; W m
Console.Write("\r\n结果="); \* @2 |7 [- t! t: \2 C* k+ k
Console.Write(dd);) ~$ R4 U* P0 P7 g Z* w
Console.Write("\r\n");
1 d/ q5 ]; y' x7 Q4 E( w! \! Z' s
}
/ X( k |3 Y" y6 @
; r6 a! e- x/ C- g' `; n6 g
forcal.FreeForcal();* I7 S/ w: G) I3 ^; k/ ]& Q- x) b4 l6 L
}
3 L6 R; B2 T" }6 D! {" ^
}
! ?' t5 ^$ [ E
}

复制代码