基本信息
源码名称:CreateContour等值线生成(基于C#的等值线生成算法)
源码大小:0.19M
文件格式:.zip
开发语言:C#
更新时间:2019-04-15
友情提示:(无需注册或充值,赞助后即可获取资源下载链接)
嘿,亲!知识可是无价之宝呢,但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下,绝对物超所值哦!如有下载和支付问题,请联系我们QQ(微信同号):78630559
本次赞助数额为: 2 元×
微信扫码支付:2 元
×
请留下您的邮箱,我们将在2小时内将文件发到您的邮箱
源码介绍
基于C#的等值线生成算法,包括界面程序,测试程序
基于C#的等值线生成算法,包括界面程序,测试程序
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.CodeDom.Compiler;
using Microsoft.CSharp;
using System.Reflection;
using CreateContour;
namespace ContourGui
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
//double DeJongX_max = 6, DeJongX_min = -6;
//double RosenbrockX_max = 2, RosenbrockX_min = -2;
//double RastriginX_max = 4, RastriginX_min = -4;
//double SchwefelX_max = 100, SchwefelX_min = -100;
//double GriewangkX_max = 10, GriewangkX_min = -10;
//double MichalewiczX_max = 4, MichalewiczX_min = 0;
//double EasomX_max = 20, EasomX_min = -20;
//double DropWaveX_max = 1, DropWaveX_min = -1;
//double SchubertX_max = 4, SchubertX_min = -4;
if (MaxBoxX.Text.Equals(""))
MaxBoxX.Text = "100";
if (MinBoxX.Text.Equals(""))
MinBoxX.Text = "-100";
if (MaxBoxY.Text.Equals(""))
MaxBoxY.Text = "100";
if (MinBoxY.Text.Equals(""))
MinBoxY.Text = "-100";
double maxX_v = double.Parse(MaxBoxX.Text);
double minX_v = double.Parse(MinBoxX.Text);
double maxY_v = double.Parse(MaxBoxY.Text);
double minY_v = double.Parse(MinBoxY.Text);
if (maxX_v == minX_v)
maxX_v = minX_v 100;
if (maxX_v < minX_v)
{
double temp = maxX_v;
maxX_v = minX_v;
minX_v = temp;
}
if (maxY_v == minY_v)
maxY_v = minY_v 100;
if (maxY_v < minY_v)
{
double temp = maxY_v;
maxY_v = minY_v;
minY_v = temp;
}
Contour this_contour = new Contour(maxX_v, minX_v, maxY_v, minY_v, 500, 500);
//De Jong 1
//Rosenbrock's Valley
//Rastrigin's Function
//Schwefel's Function
//Griewangk's Function
//Michalewicz's Function
//Easom's Function
//Drop Wave Function
//Schubert's Function
//User Entered
switch(defaultFunctions.SelectedIndex)
{
case 0:
this_contour.create_contour(Program.DeJong);
break;
case 1:
this_contour.create_contour(Program.Rosenbrock);
break;
case 2:
this_contour.create_contour(Program.Rastrigin);
break;
case 3:
this_contour.create_contour(Program.Schwefel);
break;
case 4:
this_contour.create_contour(Program.Griewangk);
break;
case 5:
this_contour.create_contour(Program.Michalewicz);
break;
case 6:
this_contour.create_contour(Program.Easom);
break;
case 7:
this_contour.create_contour(Program.DropWave);
break;
case 8:
this_contour.create_contour(Program.Schubert);
break;
case 9:
CodeDomProvider codeProvider = CodeDomProvider.CreateProvider("CSharp");
CompilerParameters parameters = new CompilerParameters();
parameters.GenerateInMemory = true;
string SourceString = SourceCode.Text;
CompilerResults results = codeProvider.CompileAssemblyFromSource(parameters, SourceString);
string error_string = "";
if (results.Errors.Count > 0)
{
foreach (CompilerError CompErr in results.Errors)
{
error_string = String.Format("{0} \n Line number " CompErr.Line ", Error Number: " CompErr.ErrorNumber ", '" CompErr.ErrorText ";", error_string);
}
ErrorText.Text = error_string;
return;
}
Assembly mAssembly = results.CompiledAssembly;
#region error checking
MethodInfo[] user_meth = mAssembly.GetType("userclass").GetMethods(BindingFlags.InvokeMethod | BindingFlags.Public | BindingFlags.Static);
if (user_meth.Length != 1)
{
ErrorText.Text = "Either no class: \"userclass\" or no functions were defined.";
return;
}
string func_name = user_meth[0].Name;
ParameterInfo[] param = user_meth[0].GetParameters();
if (param.Length != 2)
{
ErrorText.Text = "Function has an incorrect number of parameters: Should be 2.";
return;
}
if (param[0].ParameterType != Type.GetType("System.Double") || param[1].ParameterType != Type.GetType("System.Double"))
{
ErrorText.Text = "Function requires parameters of type double.";
return;
}
if (user_meth[0].ReturnType != Type.GetType("System.Double"))
{
ErrorText.Text = "Function returns an incorrect data type: Should be double.";
return;
}
if (user_meth[0].ReturnType != Type.GetType("System.Double"))
{
ErrorText.Text = "Function returns an incorrect data type: Should be double.";
return;
}
#endregion
Type script = mAssembly.GetType("userclass");
this_contour.create_contour(ref script, ref func_name);
break;
default:
ErrorText.Text = "Nothing Selected.";
break;
}
ContourBox.Image = this_contour.contour_bmp;
}
}
}