1. 本程序将所选文件夹中所有*.xls和*.xlsx文件的前三列数据读入本文件的Sheet1中,并分别求出第二列和第三列的极值;
import csv or excel data, and find the maximum value. (2018-02-10, VBScript, 94KB, 下载1次)
Boundary element method
function [index,g,h,a,unb,x,u,un,uin]=bemlabecom(n,c,index,in,cin)
[index,g,h,a,unb,x,u,un,uin]=bemlabecom(16,[0 0 0.25 0 0.5 0 0.75 0 1 0 1 0.25 1 0.5 1 0.75 1 1 0.75 1 0.5 1 0.25 1 0 1 0 0.75 0 0.5 0 0.25 0 0],[1 0 1 0 1 0 1 0 0 200 0 200 0 200 0 200 1 0 1 0 1 0 1 0 0 100 0 100 0 100 0 100],9,[0.25 0.25 0.50 0.25 0.75 0.25 0.25 0.50 0.50 0.50 0.75 0.50 0.25 0.75 0.50 0.75 0.75 0.75])
in bemlabecom2 we change a & unb to : a1 a2,unb1 unb2
n=number of nodes=number of element=number of point
c=matrix that determine the coordinate of point
m=coordinate of nodes in global coordinates
index: determine u or un for boundary nodes
in:number of internal nodes
cin: coordinate of internal nodes
Boundary element method
function [index,g,h,a,unb,x,u,un,uin]=bemlabecom(n,c,index,in,cin)
[index,g,h,a,unb,x,u,un,uin]=bemlabecom(16,[0 0 0.25 0 0.5 0 0.75 0 1 0 1 0.25 1 0.5 1 0.75 1 1 0.75 1 0.5 1 0.25 1 0 1 0 0.75 0 0.5 0 0.25 0 0],[1 0 1 0 1 0 1 0 0 200 0 200 0 200 0 200 1 0 1 0 1 0 1 0 0 100 0 100 0 100 0 100],9,[0.25 0.25 0.50 0.25 0.75 0.25 0.25 0.50 0.50 0.50 0.75 0.50 0.25 0.75 0.50 0.75 0.75 0.75])
in bemlabecom2 we change a & unb to : a1 a2,unb1 unb2
n=number of nodes=number of element=number of point
c=matrix that determine the coordinate of point
m=coordinate of nodes in global coordinates
index: determine u or un for boundary nodes
in:number of internal nodes
cin: coordinate of internal nodes (2012-01-29, VBScript, 1KB, 下载4次)
网上客房预订系统Online hotel booking system(转载)参考学习
Online hotel booking system (2009-05-22, VBScript, 4626KB, 下载7次)