Software for Press Brakes

by

 

This software is make things for using Press Brakes.

Projem.m
%%HDROLK ABKANT PRESLER
%Balkesir niversitesi Mhendislik-Mimarlk Fakltesi
%Makine Mhendislii
%Proje        : Hidrolik Abkant Pres Tasarm
%Proje Sahibi : .Gkhan GLTEKN
%E-posta      : gokhangultekin07@hotmail.com
%Cep no       : +90 5543646532
%Proje Teslim : Yrd.Do.Ali Oral
%erik       : Hidrolik Abkant Pres Hesaplar

%%Ana malzeme seimi
disp(' ')
disp('  Malzeme seimi: ')
disp(' ')
disp('1.Alminyum alamlar: ')
disp('2.Paslanmaz elik alamlar: ')

%%Malzeme seiliyor...
disp(' ')
Malzeme = input('Bkmek istediiniz sacn malzemesini giriniz(1,2): ');

sigma = 0;

switch Malzeme
    case 1
%%Alminyum alam aac
disp(' ')
disp('Alminyum alamlar: ')
disp(' ')

disp('1- 1100-H14 ')
disp(' ')
disp('Elastisite modl: 0.0689 Mpa ')
disp('ekme mukavemeti:124 Mpa: ')
disp('Akma mukavemeti:117 Mpa: ')
disp(' ')

disp('2- 3003-H14 ')
disp(' ')
disp('Elastisite modl: 0.0689 Mpa ')
disp('ekme mukavemeti: 152 Mpa ')
disp('Akma mukavemeti: 145 Mpa ')
disp(' ')

disp('3- 5052-H32 ')
disp(' ')
disp('Elastisite modl: 0.0689 Mpa ')
disp('ekme mukavemeti: 228 Mpa ')
disp('Akma mukavemeti: 193 Mpa ')
disp(' ')

disp('4- 6061-T6  ')
disp(' ')
disp('Elastisite modl: 0.0689 Mpa ')
disp('ekme mukavemeti: 310 Mpa')
disp('Akma mukavemeti: 276 Mpa')
disp(' ')

Al = input('Alam serisini seiniz(1,2,3,4): ');
       disp(' ')
switch Al
    case 1 
disp('#1100-H14# ')
Eal = 0.0689;
sigmaAlC1 = 124;
sigmaAlA1 = 117;
sigma = sigmaAlC1;
     case 2
disp('#3003-H14# ')
Eal = 0.0689;
sigmaAlC2 = 152;
sigmaAlA2 = 145;
sigma = sigmaAlC2;
    case 3
disp('#5052-H32# ')
Eal = 0.0689;
sigmaAlC3 = 228;
sigmaAlA3 = 193;
sigma = sigmaAlC3;
    case 4
disp('#6061-T6#  ')
Eal = 0.0689;
sigmaAlC4 = 310;
sigmaAlA4 = 276;
sigma = sigmaAlC4;
end


    case 2
%%Paslanmaz elik alam aac
disp('1- 303')
disp(' ')
disp('        * Elastisite modl: 0.193 Mpa ')
disp('        * ekme mukavemeti: 620 Mpa ')
disp('        * Akma mukavemeti: 240 Mpa ')
disp(' ')

disp('2- 304')
disp(' ')
disp('        * Elastisite modl: 0.193 Mpa ')
disp('        * ekme mukavemeti: 505 Mpa ')
disp('        * Akma mukavemeti: 215 Mpa ')
disp(' ')

disp('3- 316')
disp(' ')
disp('        * Elastisite modl: 0.193 Mpa ')
disp('        * ekme mukavemeti: 580 Mpa ')
disp('        * Akma mukavemeti: 290 Mpa ')
disp(' ')

disp('4- 410')
disp(' ')
disp('        * Elastisite modl: 0.193 Mpa ')
disp('        * ekme mukavemeti:1525 Mpa ')
disp('        * Akma mukavemeti: 1225 Mpa')
disp(' ')

Celik = input('Paslanmaz elik serisini seiniz(1,2,3,4): '); 
switch Celik
    case 1
disp('#303# ')
Ecel = 0.193;
sigmaCelC1 = 620;
sigma = sigmaCelC1;
sigmaCelA1 = 240;
sigma = sigmaCelC1;
    case 2
disp('#304# ')
Ecel = 0.193;
sigmaCelC2 = 505;
sigmaCelA2 = 215;
sigma = sigmaCelC2;
    case 3
disp('#316# ')
Ecel = 0.193;
sigmaCelC3 = 580;
sigmaCelA3 = 290;
sigma = sigmaCelC3;
    case 4
disp('#410# ')
Ecel = 0.193;
sigmaCelC4 = 1525;
sigmaCelA4 = 1225;
sigma = sigmaCelC4;

end
end  

%% Bkme Hesaplar

s = input('Bkeceiniz sacn kalnln mm biriminden giriniz: ');
b = input('Bkeceiniz sacn geniliiniz mm biriminden giriniz: ');
W = input('Kalbn ene akln mm biriminden giriniz: ');

c = 4.3;
FN = (c * b * s^2 * sigma) / W;
F = FN / 10^4;     
%% F  ... [ton]
%% FN ... [N]
disp(' ')
disp(['Gerekli bkme kuvveti (F)= ',num2str(F),' ton'])

%% Silindir Emniyet hesaplar

disp('Silindir Malzemesi St-70 seildi ') 

SigmaAkSt70 = 700;
S = 1.25;
SigmaEmSilindir = (SigmaAkSt70 / S);

A = (FN / 2) / SigmaEmSilindir ;
D = sqrt((4 * A) / pi);
disp(['1.5 kat emniyetle hesaplanan silindir i ap(D)= ',num2str(D),' mm'])

%%Silindir i alan emniyetli olarak 100 mm seildi. Alan sabit kabul
%%edildi ve hesaplar bu alan deeri zerinden yaplacak...

disp(['Pompann basaca maksimum basn deeri =',num2str(SigmaEmSilindir),'Mpa'])

PpBar = SigmaEmSilindir * 10;
Dsilindir = 100;
Asilindir = (pi * Dsilindir^2) / 4;
PpToplam = (FN) / Asilindir;

disp(['Pompann basaca basn deeri =',num2str(PpToplam),'Mpa'])
PpToplamBar = PpToplam * 10;

%% Gerekli Motor Gc hesab

Guc = (PpToplamBar * 15.3) / (600 * 0.85); 

disp(['Gerekli motor gc =',num2str(Guc),'kW'])



Contact us