clc; clear;
% ==== Données ====
N = 2500; % Effort axial (N)
M = 300; % Moment de flexion (N.m)
Re = 360e6; % Limite élastique (Pa)
gamma_s = 3; % Coefficient de sécurité
% ==== Constantes ====
A = 4 * N; % Numérateur traction
B = 32 * M; % Numérateur flexion
D = pi * (Re / gamma_s); % Terme constant côté droit
% ==== Paramètres Newton-Raphson ====
d = 0.02; % Valeur initiale (m)
tol = 1e-6; % Tolérance de convergence
max_iter = 100; % Nombre max d'itérations
% ==== Méthode de Newton-Raphson ====
for i = 1:max_iter
f = A / d^2 + B / d^3 - D;
df = -2*A / d^3 - 3*B / d^4; % Dérivée de f par
rapport à d
d_new = d - f / df;
if abs(d_new - d) < tol
fprintf('Convergence atteinte après %d
itérations.\n', i);
break;
end
d = d_new;
end
% ==== Résultat ====
fprintf('Diamètre minimal requis : %.6f m\n', d);