how to create function for this problem..

1 次查看(过去 30 天)
i want to create a function for Double Spherical isolation bearing but still not able to do that.. can anyone create the function which can simulate this bearing..
This device is used to isolate the superstructre from substructure to reduce the earthquake damage....
thanks in advance
  3 个评论
Habib Muhammad
Habib Muhammad 2016-11-17
编辑:James Tursa 2016-11-17
function [ Nh,Kh,Beff] = isolation(W,D,h)
% Parameters for base isolator
clear all
clc
global Nh W D H R1 R2 h
% Nh is the Horizontal component of the force
W = 50e10; % Vertical load supported by the bearing
D = 0.2; % Lateral displacement between the upper and lower bearing plates
H = 0.3; % Distance between the centers of the two spherical surfaces
R1= 20; % Curvature radius of the sliding spherical surface
R2= 15; % Curvature radius of the rotation spherical surface
h = 25; % Depth of the slider
mu=0.01; % Alpha Angle between the straight line of the spherical centers and
% the vertical direction after lateral displacement appeared
Nh = W*D/H
H = R1 + R2 - h
Dy= diff(D)
F = Nh + mu*W*(Dy)
% mu is the coefficient of friction pairs on the sliding spherical surface
% Dy is the horizontal velocity
Kh = W/H % Lateral stiffness
Beff=2/((D/mu*h)+1)*pi
end
Habib Muhammad
Habib Muhammad 2016-11-17
here is the function i want to develop.. i want to input the W D and h or load it from a txt file and in response i want to get Nh, Kh and Beff...

请先登录,再进行评论。

回答(0 个)

类别

Help CenterFile Exchange 中查找有关 Seismology 的更多信息

Community Treasure Hunt

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!

Translated by