Desain Injeksi Mold untuk Plastik

Pembuatan cetakan plastik selain harus mampu mengintegrasikan mulai dari konsep aliran fluida saat proses injeksi sampai dengan proses manufacture dilaksanakan, CAD berperan besar dalam menuangkan imaginasi menjadi visualisasi yang mudah dipahami dan dilakukan pengecekan sebelum proses CAM dan manufacture dijalankan. melalui satu-teknik.blogspot.com, saya menerima jasa desain, analisa aliran, hingga pembuatan injeksi mold dengan harga jauh lebih murah daripada pabrikan.

CFD Application : Air Flow and Temperature Distribution

Gambar ini memperlihatkan suhu sebuah ruangan data center, atau ruang server komputer pada sebuah perusahaan, perbedaan panas jelas terlihat, melalui CFD desain ruangan dapat menentukan letak exhaust, input fan yang tepat, sekaligus dapat memperkirakan besar aliran udara yang terjadi, sehingga ukuran fan pun bisa sesuai dengan kapasitas yang diperlukan.

CAE on Polymer Technology

Metode numerik khusus untuk aliran polymer telah dikembangkan, meliputi proses solidifikasi, proses perpindahan panas antar material, hingga perpindahan panas antara mesin injeksi dan lingkungan sekitar. metode tersebut sangat membantu desainer mold untuk merancang cetakan, memperkirakan arah aliran, menjaga balancing runner, balancing aliran, hingga meminimalisir defect yang akan terjadi.

Integrated CAD-CFD

Untuk mempermudah proses pre processor, saat ini sudah banyak software yang mengabungkan fitur CAD dan CFD menjadi satu bagian, misalnya Unigraphics dengan Fluent dan Nastran.

CFD Application : wind turbine blade

Aplikasi CFD paling bermanfaat terhadap aliran panas, perpindahan panas dan aliran fluida, seperti udara, turbing angin, desain sayap pesawat, kapal laut sangat banyak menggunakan CFD untuk mempercepat proses analisa.

Showing posts with label akar persamaan. Show all posts
Showing posts with label akar persamaan. Show all posts

Friday, 16 March 2012

menghitung akar-akar persamaan kuadrat dengan visual basic (VBA)

03:02  hasnan  8 comments

berikut saya upload code untuk menghitung akar-akar persamaan kuadrat
AX2+BX+C = 0
proses perhitungan dimulai dengan menghitung determinan, dalam kode berikut di set dalam variabel D, sedangkan untuk memasukkan nilai digunakan variable a,b,c
bila determinan < 0 maka nilai akarnya adalah imaginer, untuk itu diberikan pesan msg box " akar-akarnya adalah imaginer" sedangkan bila determinan sama dengan nol atau lebih besar dari nol, maka dapat dihitung dengan (-b + SQR D)/2a, hasilnya ditampilkan dalam label
untuk mempermudah dalam caption dari label ditambahi tulisan "akar 1="
Private Sub CommandButton1_Click()
Dim a, b, c, D, r1, r2 As Double
' baca input

a = txta.Text
b = txtb.Text
c = txtc.Text

' hitung determinant
D = (b * b) - (4 * a * c)

'untuk akar imaginer
If D < 0 Then
MsgBox " Akar - akarnya imaginer !"

Else
' kedua akar real
r1 = (-b + Sqr(D)) / (2 * a)
r2 = (-b - Sqr(D)) / (2 * a)

End If
'tulis hasil
lblr1.Caption = "Akar 1=" & r1
lblr2.Caption = "Akar 2=" & r2

End Sub
tampilan dari program ini di visual basic adalah

tampilan ketika akar-akarnya imaginer adalah

Read More