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

using System;
2 c6 L+ X4 {; S. Y L
using System.Collections.Generic;# e# d* D, }9 f9 ]# [) T7 Q) ?
using System.Linq;0 o6 [. U; K; K4 S1 u5 w# x/ B
using System.Text;/ ?* D# e9 }+ g5 h1 {8 @
using System.Runtime.InteropServices;
- Q& I& V( R% K) R6 r) z5 D. T- o
/ c) A, K3 K; G, f# `
public class forcal
; s9 W1 Z) {6 f. D: \
{
) H# n$ _- Q4 D& z' C1 s
[DllImport("Forcal32W.dll")]4 }2 q% d1 C- k! d+ s- A. g
public static extern bool InitForcal();
C% G6 m& m' k/ ?6 M# G; \6 H0 E$ n
[DllImport("Forcal32W.dll", CharSet = CharSet.Unicode)] //使用Unicode字符集1 {0 f2 v' t$ c; S+ g, c8 ^! _+ \" }0 [
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 h1 a) b: @. k# f
[DllImport("Forcal32W.dll")]
$ H! N$ \) y' E( Q9 K+ ~0 v: l
public static extern double RealCal(int hFor, double[] d);
. |. l- z. q1 I- N/ C7 u+ M
[DllImport("Forcal32W.dll")]
" p& b) ?/ M9 {
public static extern void FreeForcal();
( e& _1 t% c( ?& \% x. X" I2 d* z
}
; t R" I- K+ ?. w! \
( Z2 V+ ]- `* y8 g: v
namespace CsharpForcal
1 e6 F! T4 I: t' j/ }3 g" L( U
{
3 A8 G# y; w5 k0 H2 }% z! r- ?
class Program
! r+ N' i( d5 Q1 x# R0 Q3 D; K/ j
{. C* c6 C! E l4 |
static void Main(string[] args)
r Z# ?+ F, S- j5 o1 k2 x4 C
{1 t" g6 t1 O E
bool flag = false;
4 J, {' O6 x; h
7 Q" ~- }* O5 K% O
int code = 0;( Z% j* _" C0 K1 ?8 `4 N! D* @3 x
int hFor = 0; //必须为0，否则是一个加锁模块的函数指针
8 `" ]6 V' _: X: ]1 I9 ?/ f
int nModule = 1;) B/ B2 M, j+ U# N+ \0 U0 S
int len = 0;
. D6 v2 v a6 m" I, C, @& R
int Para = 0;
7 H1 c% V9 [, Z! e, I
int e1 = 0;: n! {. B# w& w: t z$ D/ z
int e2 = 0;
6 q* b0 z" T" S6 T7 O
double[] MyArgs = new double[2] { 2, 3 };
' ]' u J* i2 `
% m; s9 r. N+ M* o/ w
flag = forcal.InitForcal();! c) p5 s( ~0 F$ m( \+ N: j. D
$ E. k( o2 m/ ~. _9 J
string s = "f(x,y)=x+y";
. D( w) B( }( m4 Z$ [7 C/ C$ [9 s+ l
code = forcal.RealCom(s, nModule, ref hFor, ref len, ref Para, ref e1, ref e2);
% T( I) H1 y: J( q4 |6 D; q
Console.Write(code);. v+ t, v/ @: |) | {; f
! H, s* W, U5 m' |8 S6 c
if (code == 0)
9 |% o8 N1 e& A0 Y& h
{# O8 j1 k! C& x1 _- e5 ~% G3 ?
double dd = forcal.RealCal(hFor, MyArgs);
9 r6 A; h, Z& w1 j* ~+ {
Console.Write("\r\n结果=");. b# ]1 v# S4 q1 _$ L$ _1 A
Console.Write(dd);
! n7 b* e* p# l$ r3 l
Console.Write("\r\n");
2 w% C! B; \, ~: Y e% F
}- `5 A- R x' a4 f' |5 C- W9 ]( l* B
" l$ ~ m' ~1 y M
forcal.FreeForcal();) P. Z6 _, k# {" C0 G5 b
}
3 H0 l$ z } d* E3 J2 ]
}7 U! p* f8 j& k5 e6 E* y" l# E8 |/ E
}

复制代码