demo-12c

# filename: demo-12c.m
# writer: won sunggyu
# date: 2025-04-22
# language: octave
# description: 주파수 응답 함수 그려보기 (1자유도)

#------------------------------------------------------------------------------
# 초기화
#------------------------------------------------------------------------------

run("startup.m");
printf(fmt("{mfilename}\n", "#FF5733"));

#------------------------------------------------------------------------------
# 데이터 준비
#------------------------------------------------------------------------------

M = 1;
C = 10;
K = 10000;
F = 1;
omr = sqrt(K/M);
# ze = C/2/sqrt(K*M);  # 0.05
xref = 1;

#------------------------------------------------------------------------------
# 데이터 연산
#------------------------------------------------------------------------------

# M a + C v + K x = f
# X = F / (K - om^2 * M + 1j*om * C)
# Xp = X / F/K = 1 / (1^2 - be^2 + 2*ze*1j*be)

db = 0.01;
Bn = 5;
nn = floor(Bn/db);

ze_arr = 0.1:0.1:1.0;  # 감쇠비
bb = 0:db:db*(nn-1);  # 무차원 주파수축

Xp = zeros(length(ze_arr), length(bb));  # 무차원 변위응답
Xd = zeros(length(ze_arr), length(bb));  # 무차원 변위응답 (dB)

for i=1:length(ze_arr)
    ze = ze_arr(i);
    Xp(i, :) = 1 ./ (1 - bb.^2 + 2*1j*ze*bb);
    Xd(i, :) = 20 * log10(abs(Xp(i, :)) / xref);
end

#------------------------------------------------------------------------------
# 그래프 그리기
#------------------------------------------------------------------------------

# 그래프
figured("Size", [960, 960], "Move", [-1280, 0], "Name", mfilename);
ax1 = subplots(2, 1);

# 데이터를 미리 준비하고 그리기
for i=1:length(ze_arr)
    plot(ax1(1), bb, abs(Xp(i, :)))
    plot(ax1(2), bb, Xd(i, :))
end