Archive for August, 2007

06
Aug

Stereonet

Wulff (Equal-Angle) Net, Schmidt (Equal-Area) Net, Schmidt Polar (Equal-Area) Net, Kalsbeek Counting Net.
Semua berdiameter 15 cm. Ketelitian 2 derajat. Digambar dengan CorelDraw 12. Dengan perhitungan koordinat (presisi 1 mikrometer) menggunakan MS-Excel 2003. Pokoknya bagus, tetapi untuk diprint, tentunya tergantung pada kualitas printer yang digunakan.
Kegunaan untuk analisis struktur dalam bidang geologi.
Format JPG, Resolusi 300 dpi, Grayscale.
Format CDR, kalau ada yang butuh silakan minta lewat e-mail. Gratis.
Digambar karena ‘gak punya Stereonet yang ukurannya sama semua dan bagus. Yang dibawa dari almamater tidak bagus karena ukuran beda-beda dan agak elips bentuknya.

Wulff Net:
Wulff

Koordinat Pusat Lingkaran: (105, 148.5)
Lingkaran Besar:
(Xp, Yp) = (105 + 75 * tan θ, 148.5)
D = 2 * ((Xp - 105)^2 + 75^2)^0.5

Lingkaran Kecil:
(Xp, Yp) = (105, 148.5 + 75 / cos θ)
(Xb, Yb) = (105 - 75 * sin θ, 148.5 + 75 * cos θ)
D = 2 * ((Xp - Xb)^2 + (Yp - Yb)^2 )^0.5

Schmidt Net:
Schmidt

Koordinat Pusat Lingkaran: (105, 148.5)
Lingkaran Besar:
(Xp, Yp) = ((105^2-(30+|θ|*75/45)^2+75^2)/(105-(30+|θ|*75/45))/2, 148.5)
D = 2 * (Xp - (30+|θ|*75/45))

Lingkaran Kecil:
(Xa, Ya) = (105, 223.5-|θ|*75/45)
(Xb, Yb) = (105 - 75 * sin θ, 148.5 + 75 * cos θ)
(Xp, Yp) = (105, (Xb^2 + Xp^2 - 2XpXb + Yb^2 - Ya^2) / 2 / (Yb - Ya))
D = 2 * (Yp - Ya)

Nah, Wulff Net ini ß ‘gak tahu persamaan benarnya, seharusnya adalah persamaan pangkat 4, tetapi untuk praktisnya pakai corel, ya seperti ini. Silakan dicoba aja, kalau hasilnya buruk, mungkin diperbaiki, kalau mau diskusi tentang persamaannya, ada masukan, dll. Silakan hubungi lewat e-mail ajah.

Polar Net:
Polar_1

Kalsbeek Net:
Kalsbeek

05
Aug

Logo UNIPA

Dibikin pake CorelDraw 12 bajakan. Resolusi 300 dpi. Versi color dan grayscale. Format JPG.
ß ‘gak bisa upload format CDR-nya di Friendster Blog.

Logo_unipa_1
Logo_unipa_grayscale