Charles梦想家

通过遗传算法，在约束为[-2,2]下，求f(x)的最大值程序代码如下：%主程序clc;clear all;global BitLengthglobal boundsbeginglobal boundsendbounds=[-2 2];%一维自变量的取值范围precision=0.0001; %运算精度boundsbegin=bounds(:,1);boundsend=bounds(:,2);%计算如果满足求解精度至少需要多长的染色体BitLength=ceil(log

function chapter_GridSearchclear allclcformat compact;load shuju.matload shujulabel.matload categories % 画出测试数据的box可视化图figure;boxplot(shuju,'orientation','horizontal','labels',categories);title('gear fault数据的box可视化图','FontSize',12);xlabel('属性值'.

%提取信号特征向量方法clear; seg_motion=[ 60:100:960;90:100:990];index_motion=[];for k=1:size(seg_motion,2) index_motion = [index_motion,seg_motion(1,k):seg_motion(2,k) ]; endseg_rest= seg_motion(:,1:end-1)+50;index_rest=[];.

假设已知X1={X1,X2,X3...},X2={X,1X2,X3...},X3={X1,X2,X3...},Y1={Y1,Y2,Y3...},Y2={Y11,Y22,Y33...}测量数据Y{x1,X11;x2,X22;x3,X33;}其中，Y1与X1~X3有关，Y2也与X1~X3有关，p=[X1;X2;X3]; %输入数据矩阵t=[Y1;Y2]; %目标数据矩阵%利用premnmx函数对数据进行归一化[pn,minp,maxp,tn,mint,maxt]...

function SampEnVal = SampEn_old(data, m, r)%SAMPEN 计算时间序列data的样本熵% data为输入数据序列% m为初始分段，每段的数据长度% r为阈值% $Author: lskyp% $Date: 2010.6.20data = data(:)';N = length(data);% 分段计算距离for k = N - m:-1:1 xm(k, :) = data(k:k +.

1、斐波那契拟序列function fibonacci%(1-10维)k=23-37均匀性好,%(1-20维)k=33-37均匀性好,%(1维-60维)k=71-73均匀性好,73最好k=73;%斐波那契参数:33n=1000;%拟随机数个数s=60;%维数%产生斐波那契拟随机数系列for i=1:s-1 quad=fibonacci_qrn(i,n,k); x=quad'; quad=fibonacci_qrn(i+1

1.glc格雷码随机序列function Glcn=1000;for i=1:n x(i)=glc(i); enddisp(sprintf('%f ',x));%一维Glc拟随机数序列个数分布 figureplot(1:n,x,'.k','MarkerSize',10) xlabel('拟随机数个数');ylabel('拟随机数数值');%GLC拟随机数发生器,产生1个拟随机数function [Prand]=glc(i)x=0.0;..

workspace算法基于运动学和空间运动约束条件下，搜索得到运动空间clc;clear;con=pi/180;a=[180 180 180 180]; b=[120 120 120 120]; dmin12=140;dmax12=340;dmin34=140;dmax34=400;R1_min=60; R1_max=150;R2_min=60; R2_max=150; R3_min=50; R3_max=130; R4_min=50; R4_max=13

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 Leadshine.SMC.IDE.Motion;using System.Threading;using System.Wi.

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 Leadshine.SMC.IDE.Motion;using System.Threading;using System.Dr.

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 Leadshine.SMC.IDE.Motion;using System.Threading;using System.Dr.

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 Leadshine.SMC.IDE.Motion;using System.Threading;using System.Dr.

clc;clear;load position10.mat dv=10*10*10;h1=figure(2);Al=fliplr(sortrows(unique(fliplr(Al),'rows'))); %除去重复行，然后按第三列升序排序v=Al;TV=dv*length(Al)*10^-9; f = convhulln(v); %%v是你得到的离散点v(x,y,z) p...

clc;clear;a=450e-3; b=340e-3; %约束条件dmin=0.8;dmax=1.5;U=120; R=120; i=1;for z=0.84:0.04:1.5; for theta=-45:1.5:45; for psi=-45:1.5:45; % 调用运动学...

function varargout = guiji(varargin)gui_Singleton = 1;gui_State = struct('gui_Name', mfilename, ... 'gui_Singleton', gui_Singleton, ... 'gui_Openi...

clc;clear allsyms a b c x y z rp rb l dmax dmin B Rrp=120;rb=230;l=300;dmin=230;dmax=500;B=60;R=60;i=1;for z=0:30:700;for x=-100:10:100; for y=-100:10:100; b=atan(x/z); ...

并联机器人正解clc;clear;con=pi/180;a=[150 150 150 150]; b=[90 90 90 90]; rang1 = cos(pi / 4); rang2 = 1; d1=180.33;...

包络面绘制程序function [X,Y,Z]=Enveloping_surface_rendering(x,y,z,a,b,A1)s=A1(:,3); b=[find(diff(s));length(s)];c=b-[0;b(1:end-1)];out=mat2cell(A1,c);ct=[]; rd=[]; for k=1:length(out)x=out{k}(...

function [T]=bianjie(a,b)x=a'; y=b';j=1;ind_maxx=find(x==max(x));ind_minx=find(x==min(x));for i=unique(x) %获得x的不同值 if i==min(x) y1=y(ind_minx); %与该 x 对应的y值 T01=...

using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Threading.Tasks;using Sy...

初始化设置模块设计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...

private void skinButton1_Click_4(object sender, EventArgs e) { if (sevon) { open_SF.BaseColor = Color.Green; if (wether_link == 0)...

private void skinButton4_Click(object sender, EventArgs e) { if (wether_link == 0) { MessageBox.Show("请先打开设备!"); return; ...

public 系统界面() { InitializeComponent(); } public static int wether_link = 0; public static double a1, a2, a3; public static doub...

int machine_origin = 0; private void confirm_zero_Click(object sender, EventArgs e) { if (wether_link == 0) { MessageBox.Show("请先打开设备!")...

clc;clear;con=pi/180;rxx2=30;ryy2=10;a=57;b=120;rx=rxx2*con;ry=ryy2*con;xpw=6;ypw=8;zpw=-10;zw=265;et=10;aa=(zpw+zw-et*cos(ry)*cos(rx))*tan(ry)-a*sin(ry)*sin(rx);bb=-1*a*cos(rx)+b;cc=(zp...

private void timer2_Tick(object sender, EventArgs e) {if (wether_link == 0 || machine_origin == 0 || motion_1.Visible == false) return; for (int i = 0; i &...

private void timer1_Tick(object sender, EventArgs e) {if (wether_processing == 1) { datecount = LTSMC.smc_conti_read_current_mark(CardNum, 0);//功能：读取连续插补缓...

private void skinButton7_Click(object sender, EventArgs e) { if (machine_origin == 0) { MessageBox.Show("原点未校准!"); ret...

//连接控制器 public static int wether_link = 0; private void link_button_Click(object sender, EventArgs e) { if (wether_link == 0) { ...

private void open_SF_Click(object sender, EventArgs e) { SF = 1; if (wether_link == 0) { MessageBox.Show("请先打开设备!"); ...

public static double a1, a2, a3; //静平台半径 public static double b1, b2, b3; //动平台半径 public static double l1, l2, l3; //主动臂杆长 public static double q1, q2, q3; /...

public void Pick_Down(double[] pointt1, double[] pointt2, double[] pointt3) { Trajectory_yuanhu.trajectory_s(pointt1, pointt2); int Row; Row = Traject...

//x+private void button5_Click(object sender, EventArgs e) { if (wether_link == 0) { MessageBox.Show("请先打开设备"); return; ...

private void timer1_Tick(object sender, EventArgs e) { if (wether_link == 0 || teaching_Box.Visible == false) { return; } ...

private void teaching_Click(object sender, EventArgs e) { if (machine_origin == 0) { MessageBox.Show("原点未校核！"); return; ...

int wq = 0; private void button18_Click(object sender, EventArgs e) { OpenFileDialog openDlg = new OpenFileDialog(); openDlg.Title = "打开数据文件"; ...

int Row, Col; double[,] Date; int wether_loading_pointa = 0; public static double[] G_X; public static double[] G_Y; public static double[] G_Z; public static double[] posi_mode; ...

#ifndef KINEMATICS_H#define KINEMATICS_H#include<cmath>#include <QSettings>#include<QDebug>class kinematics{public: kinematics(double z0); //config QSetti...

#ifndef READPLCDATA_H#define READPLCDATA_H#include<QDebug>#include "stdafx.h"class ReadPlcData{public: ReadPlcData(AmsAddr* pAddr); ~ReadPlcData(); static doubl...