ファイル:Kt arbre epaule traction.svg

提供: testwiki
ナビゲーションに移動 検索に移動
元のファイル (SVG ファイル、637 × 751 ピクセル、ファイルサイズ: 194キロバイト)

このファイルはウィキメディア・コモンズのものであり、他のプロジェクトで使用されている可能性があります。 ウィキメディア・コモンズでのファイル解説ページにある説明を以下に示します。

概要

解説
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.
日付
原典 投稿者自身による著作物, from Pilkey, Walter D., Peterson's Stress Concentration Factors 2nd ed., Wiley & sons (1997), ISBN 97-0-471-53849-3, p. 156
作者 Cdang
 このW3C-unspecified ベクター画像は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

Scilab source
Scilab source
 This media was created with Scilab, a free open-source software.

Here is a listing of the Scilab source used to create this file. 

// ********************
// 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));

ライセンス

この作品の著作権者である私は、この作品を以下のライセンスで提供します。
Creative Commons CC-Zero このファイルはクリエイティブ・コモンズ CC0 1.0 全世界 パブリック・ドメイン提供のもとで利用可能にされています。
ある作品に本コモンズ証を関連づけた者は、その作品について世界全地域において著作権法上認められる、その者が持つすべての権利（その作品に関する権利や隣接する権利を含む。）を、法令上認められる最大限の範囲で放棄して、パブリック・ドメインに提供しています。

この作品は、たとえ営利目的であっても、許可を得ずに複製、改変・翻案、配布、上演・演奏することが出来ます。

キャプション

このファイルの内容を1行で記述してください

このファイルに描写されている項目

題材

成立日

23 4 2013

ファイルの履歴

過去の版のファイルを表示するには、その版の日時をクリックしてください。

日時サムネイル寸法利用者コメント
現在の版2013年4月24日 (水) 07:542013年4月24日 (水) 07:54時点における版のサムネイル637 × 751 (194キロバイト)wikimediacommons>CdangMissing edges on the sketch

以下のページがこのファイルを使用しています:

「https://ja.wiki.beta.math.wmflabs.org/wiki/ファイル:Kt_arbre_epaule_traction.svg」から取得