how to create function for this problem..

Habib Muhammad

2016 11 14

0 个回答

1 次查看（30 天）

0 个投票

Study on the seismic performance of a double spherical seismic isolation bearing .pdf

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 个评论
显示 1更早的评论隐藏 1更早的评论

Habib Muhammad 2016-11-17

编辑：James Tursa 2016-11-17

在 MATLAB Online 中打开

isolation.m

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