點接觸彈性變形求解的案例
07-通過多重積分法求解點接觸彈性變形Fortran和MATLAB程序 ￥19.89
07-通過多重積分法求解點接觸彈性變形Fortran和MATLAB程序，程序請見下文附件及百度網盤鏈接
點接觸彈性變形數值計算
contact_deformation.m
main.m
S.m
SUBAK.m
untitled.jpg
最近又做了個案例，是關于點接觸彈性變形數值計算，具體描述參考《彈性流體動壓潤滑數值計算方法》P23-29，黃平著。以下為一個算例的matlab實現方法(原書為FORTRAN語言)，與大家交流，請大家多提意見。
04-點接觸彈性變形Fortran和MATLAB程序 ￥19.89
04-點接觸彈性變形Fortran和MATLAB程序，程序請見下文附件及百度網盤鏈接
06-通過多重積分法求解線接觸彈性變形Fortran和MATLAB程序 ￥19.89
06-通過多重積分法求解線接觸彈性變形Fortran和MATLAB程序，程序請見下文附件及百度網盤鏈接
線接觸彈性變形計算
最近做了個案例，具體描述參考《彈性流體動壓潤滑數值計算方法》，黃平著。以下為一個算例的matlab實現方法，與大家交流。
內容：給定一個圓柱線接觸曲線h=x^2/2,接觸區壓力分布為拋物線，pi=ph*sqrt(1-xi^2),計算其彈性變形。
主程序：
clear
clc
N=200;
X1=1.4;
X0=-4.0;
DX=(X1-X0)/(N-1.0);
X(1:N)=0;
H0(1:N)=0;
H(1:N)=0;
P(1:N)=0;
for I=1:N
X(I)=-4.0+(I-1)*DX;
H0(I)=0.5*X(I)^2;
H(I)=H0(I);
if X(I)>=-1 && X(I)<=1
P(I)=sqrt(1-X(I)^2);
end
end
global AK
AK=SUBAK(N);
V=elastic_deformation(N,DX,P,0);
for I=1:N
H(I)=H(I)+V(I);
end
figure(1) %% 圖片
plot(X,V,'-','LineWidth',1.5,'Color',[0 1 1])
hold on
plot(X,P,'-.'
展開 05-橢圓接觸彈性變形Fortran和MATLAB程序 ￥19.89
05-橢圓接觸彈性變形Fortran和MATLAB程序，程序請見下文附件及百度網盤鏈接
03-線接觸彈性變形Fortran和MATLAB程序 ￥19.89
<p><span style="color: rgb(24, 25, 28);">03-線接觸彈性變形Fortran和MATLAB程序，程序請見下文附件及百度網盤鏈接</span></p><div contenteditable="false" width="100%" class="ql-align-center"><jsk id="C_Play608ae0c3c70271f0be504531958d0102" videoid="608ae0c3c70271f0be504531958d0102" duration="16秒"><img src="https://img.jishulink.com/static/web/youku-case.png"></jsk></div><p class="ql-align-center"><br></p><figure style="text-align: center;" class="ql-align-center">
<figure class="figure-image" contenteditable="false" data-img="https://img.jishulink.com/202511/attachment/14991c8788664884bc0328fd5f81e840.png" style="display: inline-block;" data-regular="true">
<img src="https://img.jishulink.com/202511/attachment/14991c8788664884bc0328fd5f81e840.png" data-mobile-src="https://img.jishulink.com/202511/attachment/14991c8788664884bc0328fd5f81e840
展開 