Fichier:Kt arbre epaule traction.svg

De testwiki
Aller à la navigation Aller à la recherche
Fichier d’origine (Fichier SVG, nominalement de 637 × 751 pixels, taille : 194 kio)

Ce fichier provient de Wikimedia Commons et peut être utilisé par d'autres projets. Sa description sur sa page de description est affichée ci-dessous.

Description

Description
Français : Abaque de facteurs de concentration de contrainte (Kt) dans le cas d'un arbre épaulé en traction.
English: Stress concentration factors (Kt) chart for a shaft with shoulder fillet in traction.
Date
Source Travail personnel, from Pilkey, Walter D., Peterson's Stress Concentration Factors 2nd ed., Wiley & sons (1997), ISBN 97-0-471-53849-3, p. 156
Auteur Cdang
 Cette image vectorielle SVG non W3C-spécifiée a été créée avec Inkscape .
Calculation
t is the fillet height, t = (D - d)/2
Coefficient for the calculation of Kt
β = t/r 0,1 ≤ β ≤ 2,0 2,0 ≤ β ≤ 20
C1
C2
C3
C4

Scilab source

// ********************
// Initialisation
// ********************

clear;
clc;

// ********************
// Fonctions
// ********************

// Saisie des paramètres géométriques

function [A]=param_geo()
    A(1) = input("grand diamètre : D = ");
    A(2) = input("petit diamètre : d = ");
    A(3) = input("rayon : r = ");
endfunction

// Calcul en traction

function [Kt] = Kt_traction(Alpha, Beta)
    drapeau = Beta <= 2;
    select drapeau
    case %t then
        coefs = [0.926, 1.157, -0.099;
            0.012, -3.036, 0.961;
            -0.302, 3.977, -1.744;
            0.365, -2.098, 0.878];
    case %f then
        coefs = [1.200, 0.860, -0.022;
            -1.805, -0.346, -0.038;
            2.198, -0.486, 0.165;
            -0.593, -0.028, -0.106];
    end
    C = coefs(:,1) + coefs(:,2)*sqrt(Beta) + coefs(:,3)*Beta;
    polynome = poly(C', "x", "c") ;
    Kt = horner(polynome, Alpha);
endfunction

// ********************
// Programme principal
// ********************

// Accueil

disp("Facteurs de concentration de contrainte d''un arbre épaulé")

// A(1) = D ; A(2) = d ; A(3) = r

A = param_geo();
t = 0.5*(A(1) - A(2)); // hauteur de filet
Beta = t/A(3); // t/r
Alpha = 2*t/A(1);

Kt_tr = Kt_traction(Alpha, Beta);

if (Beta < 0.1) | (Beta > 20) then
    disp("Attention, valeur extrapolée");
end
disp('Kt traction = '+string(Kt_tr));

Conditions d’utilisation

Moi, en tant que détenteur des droits d’auteur sur cette œuvre, je la publie sous la licence suivante :
Creative Commons CC-Zero Ce fichier est dans le domaine public selon les termes de la licence Creative Commons CC0 1.0 Universel.
La personne qui a associé une œuvre avec cet acte l’a placée dans le domaine public en renonçant mondialement à tous ses droits sur cette œuvre en vertu des lois relatives au droit d’auteur, ainsi qu’à tous les droits juridiques connexes et voisins qu’elle possédait sur l’œuvre, sans autre limite que celles imposées par la loi. Vous pouvez copier, modifier, distribuer et utiliser cette œuvre, y compris à des fins commerciales, sans qu’il soit nécessaire d’en demander la permission.

Légendes

Ajoutez en une ligne la description de ce que représente ce fichier

Éléments décrits dans ce fichier

dépeint

Historique du fichier

Cliquer sur une date et heure pour voir le fichier tel qu'il était à ce moment-là.

Date et heureVignetteDimensionsUtilisateurCommentaire
actuel24 avril 2013 à 07:54Vignette pour la version du 24 avril 2013 à 07:54637 × 751 (194 kio)wikimediacommons>CdangMissing edges on the sketch

La page suivante utilise ce fichier :