Modelisasi Tugu dengan Kurva Bezier
Modelisasi Tugu dengan Kurva Bezier
Digital Repository
Repository Universitas
Universitas Jember
Jember
SKRIPSI
Oleh:
Meidita Henmi Emeralda
NIM 141810101029
JURUSAN MATEMATIKA
FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM
UNIVERSITAS JEMBER
2018
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
SKRIPSI
disusun guna melengkapi tugas akhir dan memenuhi salah satu syarat
untuk menyelesaikan Program Studi Matematika (S1)
dan untuk mencapai gelar Sarjana Sains
Oleh
Meidita Henmi Emeralda
NIM 141810101029
JURUSAN MATEMATIKA
FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM
UNIVERSITAS JEMBER
2018
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
PERSEMBAHAN
Alhamdulillah, dengan menyebut nama Allah S.W.T yang Maha Esa dan tak
lupa sholawat serta salam selalu tercurahkan kepada Nabi Muhammad S.A.W,
penulis persembahkan skripsi ini sebagai ungkapan kebahagiaan dan rasa terima
kasih kepada:
1. Ibunda tercinta Umi Setiawati, Ayahanda tercinta Henfry Santoso dan Adik
tersayang [Link] Alfa Rossi yang telah memberikan dukungan baik moril
maupun materi, memberikan doa, dan kasih sayang serta pengorbanan yang
luar biasa untuk saya.
2. Bapak Bagus Juliyanto, [Link].,[Link] dan Bapak Ahmad Kamsyakawuni,
[Link].,[Link] yang dengan sabar dan tulus ikhlas membimbing sehingga
penulisan skripsi ini dapat terselesaikan.
3. Bapak dan Ibu guru yang telah memberikan saya ilmu pengetahuan dan
membimbing dengan penuh kesabaran sejak TK hingga Perguruan Tinggi.
4. Almamater Tercinta jurusan Matematika FMIPA Universitas Jember, SMAN 2
Probolinggo, SMPN 4 Probolinggo, SDN Sukoharjo 1 Probolinggo dan TK
Tunas Bakti Probolinggo.
ii
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
MOTTO
“Bermimpilah seakan kau akan hidup selamanya. Hiduplah seakan kau akan
mati hari ini.”
(James Dean)
PERNYATAAN
iii
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
Meidita Henmi E
NIM 141810101029
iv
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
SKRIPSI
Oleh
Meidita Henmi Emeralda
NIM 141810101029
Pembimbing
v
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
PENGESAHAN
hari :
tanggal :
Tim Penguji :
Ketua, Anggota I,
Mengesahkan
Dekan,
Mengesahkan
[Link],
RINGKASAN Ph.D.
NIP 19610204 198711 1 001
RINGKASAN
vi
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
RINGKASAN
vii
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
berdasarkan titik kontrol, (f)interpolasi setiap titik. Pada bagian puncak tugu
dilakukan prosedur sebagai berikut, (a) memotong limas dengan ukuran yang
ditetapkan menjadi alas puncak dan atas puncak. (b) menetapkan titik kontrol, (c)
membentuk pola dengan kurva bezier kuadratik, (d) interpolasi setiap titik. Kedua
merangkai komponen menjadi satu kesatuan dengan mengisi setiap segmen pada
sumbu pusat yang sejajar dengan sumbu Z .
viii
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
PRAKATA
ix
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
Penulis juga menerima segala kritik dan saran dari semua pihak demi
kesempurnaan skripsi ini. Akhirnya penulis berharap, semoga skripsi ini dapat
bermanfaat bagi semua pihak.
x
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
DAFTAR ISI
Halaman
PERSEMBAHAN ........................................................................................... ii
PERNYATAAN .............................................................................................. iv
PENGESAHAN .............................................................................................. vi
PRAKATA ...................................................................................................... ix
BAB 1. PENDAHULUAN.....................................................................................1
xi
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
xii
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
LAMPIRAN ......................................................................................................... 59
xiii
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
DAFTAR TABEL
Halaman
xiv
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
DAFTAR GAMBAR
Halaman
2.6 Penyajian limas tegak segi empat T-ABCD dan bagian-bagiannya ............ 11
2.9 Contoh kasus khusus interpolasi linier dua segmen garis ........................... 14
xv
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
4.19 Visualisasi Hasil Deformasi Limas Pola Bantal Pada Maple13 .................. 35
xvi
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
4.24 Hasil Deformasi Prisma Segmen Luar dengan Program Maple13 .............. 38
4.26 Hasil Deformasi Prisma Segmen Dalam dengan Program Maple13 ........... 39
xvii
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
xviii
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
DAFTAR LAMPIRAN
Halaman
Lampiran A Modelisasi Alas Tugu Deformasi Tabung............................... 59
A1 Alas Tugu Tegak Cekung................................................. 59
A2 Alas Tugu Cembung Tegak.............................................. 59
A3 Alas Tugu Cembung Cekung............................................ 60
A4 Alas Tugu Cekung Cembung............................................ 60
Lampiran B Modelisasi Tiang Deformasi Limas Segi Empat..................... 61
B1 Pola Bantal......................................................................... 61
B2 Pola Puzzle......................................................................... 65
Lampiran C Modelisasi Tiang Deformasi Prisma........................................ 68
C1 Pola Segmen Luar............................................................ 68
C2 Pola Segmen Dalam.......................................................... 71
Lampiran D Modelisasi Puncak Tugu Deformasi Limas Segi Empat.......... 74
D1 Alas Puncak Tegak............................................................. 74
D2 Alas puncak Cekung-Cekung............................................. 76
D3 Atas Puncak Cembung....................................................... 79
D4 Atas Puncak Cekung.......................................................... 81
Lampiran E Variasi Penggabungan Komponen Tugu.................................. 83
E1 Variasi 1............................................................................. 83
E2 Variasi 2............................................................................. 83
E3 Variasi 3............................................................................. 83
E4 Variasi 4............................................................................. 83
xix
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
BAB 1. PENDAHULUAN
Bagian Tiang
Bagian Alas
a. Diberikan benda geometri ruang tabung dengan tinggi satuan dan jari-
jari satuan Berdasarkan benda tersebut bagaimana prosedur
membangun komponen alas tugu dengan menggunakan teknik transformasi
dilatasi dan kelengkungan oleh kurva bezier (Gambar 1.3) agar menghasilkan
bentuk komponen alas tugu yang bervariasi.
b. Diberikan benda geometri ruang yaitu limas dan prisma dengan tinggi
satuan dengan interval satuan dan panjang alas satuan.
Bagaimana prosedur membangun komponen tiang tugu dengan menggunakan
teknik pemotongan deformasi dan kelengkungan oleh kurva bezier (Gambar
1.4) agar menghasilkan bentuk komponen tiang tugu yang bervariasi.
d. Diberikan beberapa model komponen tugu yaitu komponen alas tugu, tiang
tugu dan puncak tugu dengan panjang alas satuan dan tinggi
satuan dengan interval satuan. Bagaimana prosedur
penggabungan model komponen-komponen tugu tersebut agar
menghasilkan bentuk tugu yang baru dan bervariasi dengan titik pusat sama
pada satu sumbu (Gambar 1.6).
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 5
z
Komponen Puncak
Komponen Tiang
t
Komponen Alas
x
p
Gambar 1.6 Peggabungan Komponen Tugu
1.4 Tujuan
Adapun tujuan dari penelitian ini adalah:
a. memperoleh prosedur membangun komponen alas tugu melalui teknik
transformasi dilatasi dan kelengkungan oleh kurva bezier pada benda geometri
ruang tabung,
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 6
1.5 Manfaat
Adapun manfaat yang diperoleh dari penelitian ini adalah:
a. dapat menambah pengetahuan tentang konstruksi tugu dengan menggunakan
komputer,
b. dapat dihasilkan prosedur dalam konstruksi komponen-komponen tugu yang
bervariasi, dan
c. dapat dihasilkan model konstruksi tugu baru.
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember
* + ( )* + * + (2.1)
( ) ( – ) (2.2)
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 8
a. Jika alas terletak pada bidang z = z1 dan sumbu pusat tabung sejajar sumbu Z,
maka untuk mencari persamaan parametrik tabung dapat dilakukan dengan
langkah-langkah sebagai berikut (Gambar 2.5a).
1. Tentukan persamaan parametrik lingkaran dengan pusat P1(x1,y1,z1), jari-jari
R, dan terletak pada bidang z = z1, yaitu
L(θ) = 〈 〉 (2.5)
dengan dan R real.
2. Translasikan persamaan lingkaran (2.5) dari sampai sehingga
terbentuk persamaan parametrik tabung
ST(θ,z) = 〈 〉, (2.6)
dengan dan .
b. Jika alas terletak pada bidang x = x1 dan sumbu pusat tabung sejajar sumbu X,
maka untuk mencari persamaan parametrik tabung dapat dilakukan dengan
mengulangi langkah a dan didapatkan persamaan (Gambar 2.5b)
ST(θ,z) = 〈 〉, (2.7)
dengan dan .
c. Jika alas terletak pada bidang y = y1 dan sumbu pusat tabung sejajar sumbu Y,
maka untuk mencari persamaan parametrik tabung dapat dilakukan dengan
juga mengulangi langkah a dan didapatkan persamaan (Gambar 2.5c)
ST(θ,z) = 〈 〉, (2.8)
dengan dan .
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 11
Z Z t
Z
Sumbu pusat sumbu
pusat t pusat
R R
t
Y Y Y
R sumbu pusat
X X
X
(a) sumbu pusat sejajar Z (b) sumbu pusat sejajar X (c) sumbu pusat sejajar Y
Dengan keterangan:
( ) = ( ) ,
= ( )
,
P2
P1
P0
( ) =
( )
( ) ,
P0,0
P0,1
P1,0
P1,1
P2,1
P2,0
P1,2 P0,2
P2,2
akan membentuk bidang segi empat (Gambar 2.9b). Jika bidang tersebut dibentuk
dari interpolasi dua garis yang bersilangan maka menghasilkan permukaan tidak
datar (dapat melengkung ataupun terjadi puntiran di sebagian permukaan tersebut)
(Gambar 2.9c).
Di sisi lain kita dapat membangun permukaan lengkung hasil interpolasi
kurva ruang melalui persamaan berikut:
( ) ( ) ( ) ( ), (2.12)
dengan C1(u) dan C2(u) merupakan kurva batas (Gambar 2.10).
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 14
C D C(x3,y3,z3) D(x4,y4,z4)
(a) Bidang segitiga (b) Bidang trapesium
A B
D
C
(c) Permukaan tidak datar
Gambar 2.9 Contoh kasus khusus interpolasi linier dua segmen garis
Sumbu putar g
𝜏
Lingkaran sejajar
C(u)
Penampang
meridian
Gambar 2.11 Permukaan putar
c. Jika kurva generatris C(u) pada bidang XOY dan sumbu putar OX, maka untuk
mencari persamaan parametrik permukaan putar dilakukan dengan mengulangi
langkah a dan didapatkan persamaan (Gambar 2.12c)
( ) 〈 ( ) ( ) ( ) 〉 (2.16)
dengan dan .
Z
g Z
Z
C(u)
O Y
O g C(u)
Y Y
O g
X C(u) X
X
(a) sumbu putar OZ (b) sumbu putar OY (c) sumbu putar OX
[ ] [ ][ ] [ ] (2.17)
b. Deformasi Keseluruhan
Pada contoh deformasi keseluruhan berikut, diberikan benda dasar limas segi
empat yang di interseksi( pemotongan) pada bagian puncak dan di bentuk pola
pada bagian alas lalu di dilatasikan pada bagian atas kemudian dinterpolasikan
hingga membentuk sebuah benda baru dari sebelumnya (Gambar 2.14).
Penggabungan komponen
alas, tiang dan puncak tugu
5.1 Kesimpulan
Berdasarkan hasil penelitian dan pembahasan pada Bab 4, maka
didapatkan kesimpulan untuk memodelkan dan membuat variasi komponen-
komponen tugu secara utuh perlu dilakukan langkah-langkah sebagai berikut,
b. Untuk mendesain beragam variasi alas tugu dari benda dasar geometri tabung
dapat dilakukan dengan menggunakan prosedur dan metode sebagai berikut.
Pertama membuat pola tabung secara tegak dengan metode memotong tabung
secara horizontal. Kedua membuat pola lengkungan melalui kurva bezier
kuadratik dengan mengoperasikan titik kontrol yang telah ditetapkan dan
memutar kurva terhadap sumbu . Ketiga mengubah ukuran hasil deformasi
tabung dengan metode dilatasi. Keempat penggabungan hasil deformasi dan
hasil dilatasi hingga menghasilkan bentuk komponen alas tugu yang
bervariasi.
c. Untuk mendesain bagian komponen tiang tugu, maka dilakukan teknik
deformasi dan interpolasi pada dua benda yang telah ditetapkan yaitu prisma
persegi empat dan limas persegi empat sebagai berikut. Pada limas persegi
empat, pertama memotong limas dan menetapkan titik kontrol pada setiap sisi
alas limas. Kedua menetapkan variasi lengkung oleh kurva bezier pada titik
kontrol. Ketiga mendilatasikan pola terhadap bagian atas limas, selanjutnya
menginterpolasikan masing-masing titik secara berpasangan hingga
membentuk pola yang bervariasi. Pada prisma dilakukan langkah, pertama
menetapkan titik kontrol pada sisi tegak. Kedua membuat pola segmen
berdasarkan titik kontrol yang ditetapkan. Ketiga menginterpolasikan setiap
titik secara berpasangan hingga membentuk pola yang bervariasi. Langkah
terakhir adalah menggabungkan hasil deformasi prisma dan limas pada
sumbu .
d. Untuk mendesain komponen puncak tugu, dilakukan dengan menggunakan
metode deformasi, dilatasi dan interpolasi pada benda dasar limas persegi
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 57
empat. Pertama memotong limas dengan ukuran yang ditetapkan menjadi alas
puncak dan atas puncak. Kedua pada bagian atas puncak dibentuk pola tetap
dan pola lengkungan oleh kurva bezier kuadratik, kemudian
menginterpolasikan setiap titik pada bagian alas puncak hingga menghasilkan
bentuk alas puncak yang baru. Pada bagian atas puncak dilakukan lengkungan
oleh kurva bezier kuadratik melalui titik kontrol yang ditetapkan dan
mendilatasikan bagian sisi alas menjadi lebih kecil dari ukuran sebelumnya.
Ketiga, menggabungkan bagian alas puncak dan atas puncak hingga
menghasilkan variasi komponen puncak tugu yang baru dan bervariasi.
e. Untuk penggabungan komponen-komponen tugu, dilakukan dengan
menggabungkan komponen a, b dan c secara vertikal pada saatu sumbu pusat
dengan urutan bagian alas, tiang dan puncak hingga membentuk variasi
tugu yang baru.
5.2 Saran
Pada skripsi ini telah diperkenalkan prosedur pemodelan komponen-
komponen tugu dengan menggunakan teknik deformasi dan kurva bezier pada
benda geometri ruang yang ditetapkan serta penggabungan pada satu sumbu
hingga menghasilkan bentuk tugu dengan variasi yang baru. Diharapkan untuk
peneltian selanjutnya metode ini dapat dikembangkan pada dua sumbu dan tigga
sumbu pemodelan, serta diberikan variasi relief pada bagian tiang dan puncak
tugu.
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 58
DAFTAR PUSTAKA
Astuti, P. 2014. Desain Rak Penataan Barang dengan Kurva dan PermukaanTipe
Natural, Hermit dan BezierKuadratik. Tidak Diterbitkan. Tesis. Jember :
Jurusan Matematika Fakultas MIPA Universitas Jember
Kusno. 2003. Geometri Rancang Bangun Studi Hiperbola, Parabola dan Obyek-
obyek Dasar Geometri Ruang. Jember : Jurusan Matematika Fakultas
MIPA Universitas Jember
Kusno. 2009. Geometri Rancang Bangun Studi Tentang Desain dan Pemodelan
Benda dengan Kurva dan Permukaan Berbantu Komputer. Jember:
Jurusan Matematika Fakultas MIPA Universitas Jember
Suryadi, D. 1986. Teori dan Soal Ilmu Ukur Analitik Ruang. Jakarta : Ghalia
Indonesia
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 59
LAMPIRAN
restart;
with(plots):
with(geom3d):
with(geometry):
C1:=plot3d([5*cos(u)+0,-
5*sin(u)+0,v],u=0..2*Pi,v=0..1.5,scaling=constrained,labels=
[x,y,z],axes=framed,color="violet"): C2:=plot3d([(4.5*(1-
t)^2+4*2*(1-t)*t+4.5*t^2)*cos(v),(4.5*(1-t)^2+4*2*(1-
t)*t+4.5*t^2)*sin(v),(1.5*(1-t)^2+2.25*2*(1-
t)*t+3*t^2)],t=0..1,v=0..2*Pi,color=red,thickness=4,labels=[
x,y,z],color="violet"):
C3:=plot3d([5*u*cos(v)+0,-
5*u*sin(v)+0,0],u=0..1,v=0..2*Pi,axes=box):
C4:=plot3d([5*u*cos(v)+0,-
5*u*sin(v)+0,1.5],u=0..1,v=0..2*Pi,axes=box):
C5:=plot3d([4.5*u*cos(v)+0,-
4.5*u*sin(v)+0,3],u=0..1,v=0..2*Pi,axes=box):
x1:=display([(C1,C2,C3,C4,C5)],scaling=constrained,style=pat
chnogrid):
Cc1:=plot3d([4.5*cos(u)+0,-
4.5*sin(u)+0,v],u=0..2*Pi,v=1.5..3,scaling=constrained,label
s=[x,y,z],color="violet"):
Cc2:=plot3d([(5*(1-t)^2+5.5*2*(1-t)*t+5*t^2)*cos(v),(5*(1-
t)^2+5.5*2*(1-t)*t+5*t^2)*sin(v),(0*(1-t)^2+0.75*2*(1-
t)*t+1.5*t^2)],t=0..1,v=0..2*Pi,color="violet",thickness=4,l
abels=[x,y,z]):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 60
Cc3:=plot3d([5*u*cos(v)+0,-
5*u*sin(v)+0,0],u=0..1,v=0..2*Pi,axes=box):
Cc4:=plot3d([5*u*cos(v)+0,-
5*u*sin(v)+0,1.5],u=0..1,v=0..2*Pi,axes=box):
Cc5:=plot3d([4.5*u*cos(v)+0,-
4.5*u*sin(v)+0,3],u=0..1,v=0..2*Pi,axes=box):
x2:=display([(Cc1,Cc2,Cc3,Cc4,Cc5)],scaling=constrained,styl
e=patchnogrid):
Bb1:=plot3d([(4.5*(1-t)^2+4*2*(1-
t)*t+4.5*t^2)*cos(v),(4.5*(1-t)^2+4*2*(1-
t)*t+4.5*t^2)*sin(v),(1.5*(1-t)^2+2.25*2*(1-
t)*t+3*t^2)],t=0..1,v=0..2*Pi,color=red,thickness=4,labels=[
x,y,z],color="violet"):
Bb2:=plot3d([(5*(1-t)^2+5.5*2*(1-t)*t+5*t^2)*cos(v),(5*(1-
t)^2+5.5*2*(1-t)*t+5*t^2)*sin(v),(0*(1-t)^2+0.75*2*(1-
t)*t+1.5*t^2)],t=0..1,v=0..2*Pi,color=red,thickness=4,labels
=[x,y,z],color="violet"):
Bb3:=plot3d([5*u*cos(v)+0,-
5*u*sin(v)+0,0],u=0..1,v=0..2*Pi,axes=box):
Bb4:=plot3d([5*u*cos(v)+0,-
5*u*sin(v)+0,1.5],u=0..1,v=0..2*Pi,axes=box):
Bb5:=plot3d([4.5*u*cos(v)+0,-
4.5*u*sin(v)+0,3],u=0..1,v=0..2*Pi,axes=box):
x3:=display([(Bb1,Bb2,Bb3,Bb4,Bb5)],scaling=constrained,styl
e=patchnogrid):
B1:=plot3d([(4.5*(1-t)^2+5*2*(1-
t)*t+4.5*t^2)*cos(v),(4.5*(1-t)^2+5*2*(1-
t)*t+4.5*t^2)*sin(v),(1.5*(1-t)^2+2.25*2*(1-
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 61
t)*t+3*t^2)],t=0..1,v=0..2*Pi,color=red,thickness=4,labels=[
x,y,z],color="violet"):
B2:=plot3d([(5*(1-t)^2+4.5*2*(1-t)*t+5*t^2)*cos(v),(5*(1-
t)^2+4.5*2*(1-t)*t+5*t^2)*sin(v),(0*(1-t)^2+0.75*2*(1-
t)*t+1.5*t^2)],t=0..1,v=0..2*Pi,color=red,thickness=4,labels
=[x,y,z],color="violet"):
B3:=plot3d([5*u*cos(v)+0,-
5*u*sin(v)+0,0],u=0..1,v=0..2*Pi,axes=box):
B4:=plot3d([5*u*cos(v)+0,-
5*u*sin(v)+0,1.5],u=0..1,v=0..2*Pi,axes=box):
B5:=plot3d([4.5*u*cos(v)+0,-
4.5*u*sin(v)+0,3],u=0..1,v=0..2*Pi,axes=box):
x4:=display([(B1,B2,B3,B4,B5)],scaling=constrained,style=pat
chnogrid):
B1 Pola Bantal
Pola Alas
K1:=spacecurve([(1*(1-t)^2+2*2*(1-t)*t+3*t^2),(3*(1-
t)^2+3.5*2*(1-t)*t+3*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
K2:=spacecurve([(3*(1-t)^2+3.5*2*(1-t)*t+3*t^2),(3*(1-
t)^2+2*2*(1-t)*t+1*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
K3:=spacecurve([(3*(1-t)^2+3*2*(1-t)*t+3*t^2),(1*(1-
t)^2+1*2*(1-t)*t+(-1)*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
K4:=spacecurve([(3*(1-t)^2+3.5*2*(1-t)*t+3*t^2),((-1)*(1-
t)^2+(-2)*2*(1-t)*t+(-3)*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
K5:=spacecurve([(3*(1-t)^2+2*2*(1-t)*t+1*t^2),((-3)*(1-
t)^2+(-3.5)*2*(1-t)*t+(-3)*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 62
K6:=spacecurve([(1*(1-t)^2+1*2*(1-t)*t+(-1)*t^2),((-3)*(1-
t)^2+(-3)*2*(1-t)*t+(-3)*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]): K7:=spacecurve([(-1*(1-
t)^2+(-2)*2*(1-t)*t+(-3)*t^2),((-3)*(1-t)^2+(-3.5)*2*(1-
t)*t+(-3)*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
K8:=spacecurve([((-3)*(1-t)^2+(-3.5)*2*(1-t)*t+(-3)*t^2),((-
3)*(1-t)^2+(-2)*2*(1-t)*t+(-1)*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
K9:=spacecurve([((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2),((-
1)*(1-t)^2+(-1)*2*(1-t)*t+(1)*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
K10:=spacecurve([((-3)*(1-t)^2+(-3.5)*2*(1-t)*t+(-
3)*t^2),((1)*(1-t)^2+(2)*2*(1-t)*t+(3)*t^2),(3*(1-
t)^2+3*2*(1-t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
K11:=spacecurve([((-3)*(1-t)^2+(-2)*2*(1-t)*t+(-
1)*t^2),((3)*(1-t)^2+(3.5)*2*(1-t)*t+(3)*t^2),(3*(1-
t)^2+3*2*(1-t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
K12:=spacecurve([((-1)*(1-t)^2+(-1)*2*(1-
t)*t+1*t^2),((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2),(3*(1-
t)^2+3*2*(1-t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
display([(K1,K2,K3,K4,K5,K6,K7,K8,K9,K10,K11,K12)],scaling=c
onstrained,thickness=7):
Pola Atas/Atap
C1:=spacecurve([((0.5)*(1-t)^2+(1.5)*2*(1-
t)*t+2*t^2),((2)*(1-t)^2+(2.5)*2*(1-t)*t+(2)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
C2:=spacecurve([((2)*(1-t)^2+(2.5)*2*(1-t)*t+2*t^2),((2)*(1-
t)^2+(1.5)*2*(1-t)*t+(0.5)*t^2),(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
C3:=spacecurve([((2)*(1-t)^2+(2)*2*(1-t)*t+2*t^2),((0.5)*(1-
t)^2+(0.5)*2*(1-t)*t+(-0.5)*t^2),(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 63
C4:=spacecurve([((2)*(1-t)^2+(2.5)*2*(1-t)*t+2*t^2),((-
0.5)*(1-t)^2+(-1.5)*2*(1-t)*t+(-2)*t^2),(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
C5:=spacecurve([((2)*(1-t)^2+(1.5)*2*(1-t)*t+0.5*t^2),((-
2)*(1-t)^2+(-2.5)*2*(1-t)*t+(-2)*t^2),(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
C6:=spacecurve([((0.5)*(1-t)^2+(0.5)*2*(1-t)*t+(-
0.5)*t^2),((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
C7:=spacecurve([((-0.5)*(1-t)^2+(-1.5)*2*(1-t)*t+(-
2)*t^2),((-2)*(1-t)^2+(-2.5)*2*(1-t)*t+(-2)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
C8:=spacecurve([((-2)*(1-t)^2+(-2.5)*2*(1-t)*t+(-2)*t^2),((-
2)*(1-t)^2+(-1.5)*2*(1-t)*t+(-0.5)*t^2),(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
C9:=spacecurve([((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2),((-
0.5)*(1-t)^2+(-0.5)*2*(1-t)*t+(0.5)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
C10:=spacecurve([((-2)*(1-t)^2+(-2.5)*2*(1-t)*t+(-
2)*t^2),((0.5)*(1-t)^2+(1.5)*2*(1-t)*t+(2)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
C11:=spacecurve([((-2)*(1-t)^2+(-1.5)*2*(1-t)*t+(-
0.5)*t^2),((2)*(1-t)^2+(2.5)*2*(1-t)*t+(2)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
C12:=spacecurve([((-0.5)*(1-t)^2+(-0.5)*2*(1-
t)*t+0.5*t^2),((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
display([(K1,K2,K3,K4,K5,K6,K7,K8,K9,K10,K11,K12,C1,C2,C3,C4
,C5,C6,C7,C8,C9,C10,C11,C12)],scaling=constrained,thickness=
7):
KC1:=plot3d([((1-v)*(1*(1-t)^2+2*2*(1-
t)*t+3*t^2))+v*((0.5)*(1-t)^2+(1.5)*2*(1-t)*t+2*t^2),(1-
v)*(3*(1-t)^2+3.5*2*(1-t)*t+3*t^2)+v*((2)*(1-
t)^2+(2.5)*2*(1-t)*t+(2)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 64
t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="turquoise"):
KC2:=plot3d([((1-v)*(3*(1-t)^2+3.5*2*(1-
t)*t+3*t^2))+v*(2*(1-t)^2+(2.5)*2*(1-t)*t+2*t^2),(1-
v)*(3*(1-t)^2+2*2*(1-t)*t+1*t^2)+v*(2*(1-t)^2+1.5*2*(1-
t)*t+0.5*t^2),(1-v)*(3*(1-t)^2+3*2*(1-t)*t+3*t^2)+v*(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,v=0..1,color="turquoise"):
KC3:=plot3d([(1-v)*(3*(1-t)^2+3*2*(1-t)*t+3*t^2)+v*(2*(1-
t)^2+(2)*2*(1-t)*t+2*t^2),(1-v)*(1*(1-t)^2+1*2*(1-t)*t+(-
1)*t^2)+v*(0.5*(1-t)^2+(0.5)*2*(1-t)*t+(-0.5)*t^2),(1-
v)*(3*(1-t)^2+3*2*(1-t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="grey"):
KC4:=plot3d([(1-v)*(3*(1-t)^2+3.5*2*(1-t)*t+3*t^2)+v*(2*(1-
t)^2+(2.5)*2*(1-t)*t+2*t^2),(1-v)*((-1)*(1-t)^2+(-2)*2*(1-
t)*t+(-3)*t^2)+v*((-0.5)*(1-t)^2+(-1.5)*2*(1-t)*t+(-
2)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-t)*t+3*t^2)+v*(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,v=0..1,color="turquoise"):
KC5:=plot3d([(1-v)*(3*(1-t)^2+2*2*(1-t)*t+1*t^2)+v*(2*(1-
t)^2+(1.5)*2*(1-t)*t+0.5*t^2),(1-v)*((-3)*(1-t)^2+(-
3.5)*2*(1-t)*t+(-3)*t^2)+v*((-2)*(1-t)^2+(-2.5)*2*(1-t)*t+(-
2)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-t)*t+3*t^2)+v*(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,v=0..1,color="turquoise"):
KC6:=plot3d([(1-v)*(1*(1-t)^2+1*2*(1-t)*t+(-
1)*t^2)+v*((0.5)*(1-t)^2+(0.5)*2*(1-t)*t+(-0.5)*t^2),(1-
v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((-2)*(1-t)^2+(-
2)*2*(1-t)*t+(-2)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="grey"):
KC7:=plot3d([(1-v)*(-1*(1-t)^2+(-2)*2*(1-t)*t+(-
3)*t^2)+v*((-0.5)*(1-t)^2+(-1.5)*2*(1-t)*t+(-2)*t^2),(1-
v)*((-3)*(1-t)^2+(-3.5)*2*(1-t)*t+(-3)*t^2)+v*((-2)*(1-
t)^2+(-2.5)*2*(1-t)*t+(-2)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="turquoise"):
KC8:=plot3d([(1-v)*((-3)*(1-t)^2+(-3.5)*2*(1-t)*t+(-
3)*t^2)+v*((-2)*(1-t)^2+(-2.5)*2*(1-t)*t+(-2)*t^2),(1-v)*((-
3)*(1-t)^2+(-2)*2*(1-t)*t+(-1)*t^2)+v*((-2)*(1-t)^2+(-
1.5)*2*(1-t)*t+(-0.5)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="turquoise"):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 65
KC9:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-
3)*t^2)+v*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2),(1-v)*((-
1)*(1-t)^2+(-1)*2*(1-t)*t+(1)*t^2)+v*((-0.5)*(1-t)^2+(-
0.5)*2*(1-t)*t+(0.5)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="grey"): KC10:=plot3d([(1-
v)*((-3)*(1-t)^2+(-3.5)*2*(1-t)*t+(-3)*t^2)+v*((-2)*(1-
t)^2+(-2.5)*2*(1-t)*t+(-2)*t^2),(1-v)*((1)*(1-t)^2+(2)*2*(1-
t)*t+(3)*t^2)+v*((0.5)*(1-t)^2+(1.5)*2*(1-t)*t+(2)*t^2),(1-
v)*(3*(1-t)^2+3*2*(1-t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="turquoise"):
KC11:=plot3d([(1-v)*((-3)*(1-t)^2+(-2)*2*(1-t)*t+(-
1)*t^2)+v*((-2)*(1-t)^2+(-1.5)*2*(1-t)*t+(-0.5)*t^2),(1-
v)*((3)*(1-t)^2+(3.5)*2*(1-t)*t+(3)*t^2)+v*((2)*(1-
t)^2+(2.5)*2*(1-t)*t+(2)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="turquoise"):
KC12:=plot3d([(1-v)*((-1)*(1-t)^2+(-1)*2*(1-
t)*t+1*t^2)+v*((-0.5)*(1-t)^2+(-0.5)*2*(1-t)*t+0.5*t^2),(1-
v)*((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2)+v*((2)*(1-
t)^2+(2)*2*(1-t)*t+(2)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="grey"):
y1:=display([(KC1,KC2,KC3,KC4,KC5,KC6,KC7,KC8,KC9,KC10,KC11,
KC12)],scaling=constrained,thickness=7,style=patchnogrid,lab
els=[x,y,z]):
B2 Pola Puzzle
Pola Alas
L1:=spacecurve([(-1*(1-t)^2+(-1)*2*(1-t)*t+1*t^2),(3*(1-
t)^2+3*2*(1-t)*t+3*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
L2:=spacecurve([(1*(1-t)^2+(1.5)*2*(1-t)*t+3*t^2),(3*(1-
t)^2+1.5*2*(1-t)*t+1*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
L3:=spacecurve([(3*(1-t)^2+3*2*(1-t)*t+3*t^2),(1*(1-
t)^2+1*2*(1-t)*t+(-1)*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 66
L4:=spacecurve([(3*(1-t)^2+(1.5)*2*(1-t)*t+1*t^2),((-1)*(1-
t)^2+(-1.5)*2*(1-t)*t+(-3)*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
L5:=spacecurve([(1*(1-t)^2+1*2*(1-t)*t+(-1)*t^2),((-3)*(1-
t)^2+(-3)*2*(1-t)*t+(-3)*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
L6:=spacecurve([((-1)*(1-t)^2+(-1.5)*2*(1-t)*t+(-3)*t^2),((-
3)*(1-t)^2+(-1.5)*2*(1-t)*t+(-1)*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
L7:=spacecurve([((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2),((-
1)*(1-t)^2+(-1)*2*(1-t)*t+1*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
L8:=spacecurve([((-3)*(1-t)^2+(-1.5)*2*(1-t)*t+(-
1)*t^2),(1*(1-t)^2+1.5*2*(1-t)*t+(3)*t^2),(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)],t=0..1,labels=[x,y,z]):
Dilatasi pola
M1:=spacecurve([((-0.5)*(1-t)^2+(-0.5)*2*(1-
t)*t+(0.5)*t^2),(2.5*(1-t)^2+2.5*2*(1-t)*t+2.5*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
M2:=spacecurve([((0.5)*(1-t)^2+(1)*2*(1-
t)*t+(2.5)*t^2),(2.5*(1-t)^2+1*2*(1-t)*t+0.5*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
M3:=spacecurve([((2.5)*(1-t)^2+(2.5)*2*(1-
t)*t+(2.5)*t^2),(0.5*(1-t)^2+0.5*2*(1-t)*t+(-
0.5)*t^2),(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
M4:=spacecurve([((2.5)*(1-t)^2+(1)*2*(1-t)*t+(0.5)*t^2),((-
0.5)*(1-t)^2+(-0.5)*2*(1-t)*t+(-2.5)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
M5:=spacecurve([((0.5)*(1-t)^2+(0.5)*2*(1-t)*t+(-
0.5)*t^2),((-2.5)*(1-t)^2+(-2.5)*2*(1-t)*t+(-
2.5)*t^2),(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 67
M6:=spacecurve([((-0.5)*(1-t)^2+(-1)*2*(1-t)*t+(-
2.5)*t^2),((-2.5)*(1-t)^2+(-1)*2*(1-t)*t+(-0.5)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
M7:=spacecurve([((-2.5)*(1-t)^2+(-2.5)*2*(1-t)*t+(-
2.5)*t^2),((-0.5)*(1-t)^2+(-0.5)*2*(1-
t)*t+(0.5)*t^2),(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
M8:=spacecurve([((-2.5)*(1-t)^2+(-1)*2*(1-t)*t+(-
0.5)*t^2),((0.5)*(1-t)^2+(1)*2*(1-t)*t+(2.5)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
display([(L1,L2,L3,L4,L5,L6,L7,L8,M1,M2,M3,M4,M5,M6,M7,M8)],
scaling=constrained,thickness=7,style=patchnogrid):
LM1:=plot3d([(1-v)*(-1*(1-t)^2+(-1)*2*(1-t)*t+1*t^2)+v*((-
0.5)*(1-t)^2+(-0.5)*2*(1-t)*t+(0.5)*t^2),(1-v)*(3*(1-
t)^2+3*2*(1-t)*t+3*t^2)+v*(2.5*(1-t)^2+2.5*2*(1-
t)*t+2.5*t^2),(1-v)*(3*(1-t)^2+3*2*(1-t)*t+3*t^2)+v*(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,v=0..1,color="pink"):
LM2:=plot3d([(1-v)*(1*(1-t)^2+(1.5)*2*(1-
t)*t+3*t^2)+v*((0.5)*(1-t)^2+(1)*2*(1-t)*t+(2.5)*t^2),(1-
v)*(3*(1-t)^2+1.5*2*(1-t)*t+1*t^2)+v*(2.5*(1-t)^2+1*2*(1-
t)*t+0.5*t^2),(1-v)*(3*(1-t)^2+3*2*(1-t)*t+3*t^2)+v*(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,v=0..1,color="orange"):
LM3:=plot3d([(1-v)*(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)+v*((2.5)*(1-t)^2+(2.5)*2*(1-t)*t+(2.5)*t^2),(1-
v)*(1*(1-t)^2+1*2*(1-t)*t+(-1)*t^2)+v*(0.5*(1-t)^2+0.5*2*(1-
t)*t+(-0.5)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="pink"):
LM4:=plot3d([(1-v)*(3*(1-t)^2+(1.5)*2*(1-
t)*t+1*t^2)+v*((2.5)*(1-t)^2+(1)*2*(1-t)*t+(0.5)*t^2),(1-
v)*((-1)*(1-t)^2+(-1.5)*2*(1-t)*t+(-3)*t^2)+v*((-0.5)*(1-
t)^2+(-0.5)*2*(1-t)*t+(-2.5)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="orange"):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 68
LM5:=plot3d([(1-v)*(1*(1-t)^2+1*2*(1-t)*t+(-
1)*t^2)+v*((0.5)*(1-t)^2+(0.5)*2*(1-t)*t+(-0.5)*t^2),(1-
v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((-2.5)*(1-
t)^2+(-2.5)*2*(1-t)*t+(-2.5)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="pink"):
LM6:=plot3d([(1-v)*((-1)*(1-t)^2+(-1.5)*2*(1-t)*t+(-
3)*t^2)+v*((-0.5)*(1-t)^2+(-1)*2*(1-t)*t+(-2.5)*t^2),(1-
v)*((-3)*(1-t)^2+(-1.5)*2*(1-t)*t+(-1)*t^2)+v*((-2.5)*(1-
t)^2+(-1)*2*(1-t)*t+(-0.5)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="orange"):
LM7:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-
3)*t^2)+v*((-2.5)*(1-t)^2+(-2.5)*2*(1-t)*t+(-2.5)*t^2),(1-
v)*((-1)*(1-t)^2+(-1)*2*(1-t)*t+1*t^2)+v*((-0.5)*(1-t)^2+(-
0.5)*2*(1-t)*t+(0.5)*t^2),(1-v)*(3*(1-t)^2+3*2*(1-
t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="pink"): LM8:=plot3d([(1-
v)*((-3)*(1-t)^2+(-1.5)*2*(1-t)*t+(-1)*t^2)+v*((-2.5)*(1-
t)^2+(-1)*2*(1-t)*t+(-0.5)*t^2),(1-v)*(1*(1-t)^2+1.5*2*(1-
t)*t+(3)*t^2)+v*((0.5)*(1-t)^2+(1)*2*(1-t)*t+(2.5)*t^2),(1-
v)*(3*(1-t)^2+3*2*(1-t)*t+3*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="orange"):
y2:=display([(LM1,LM2,LM3,LM4,LM5,LM6,LM7,LM8)],scaling=cons
trained,thickness=7,style=patchnogrid,labels=[x,y,z]):
Kerangka 1
O1:=spacecurve([((-3)*(1-t)^2+(-3)*2*(1-t)*t+(3)*t^2),((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2),(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
O2:=spacecurve([((3)*(1-t)^2+(3)*2*(1-t)*t+(4)*t^2),((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2),(17*(1-t)^2+17*2*(1-
t)*t+16*t^2)],t=0..1,labels=[x,y,z]):
O3:=spacecurve([((4)*(1-t)^2+(4)*2*(1-t)*t+(3)*t^2),((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2),(16*(1-t)^2+16*2*(1-
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 69
t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
O4:=spacecurve([((3)*(1-t)^2+(3)*2*(1-t)*t+(-3)*t^2),((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2),(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,labels=[x,y,z]): O5:=spacecurve([((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-4)*t^2),((-3)*(1-t)^2+(-3)*2*(1-
t)*t+(-3)*t^2),(15*(1-t)^2+15*2*(1-
t)*t+16*t^2)],t=0..1,labels=[x,y,z]): O6:=spacecurve([((-
4)*(1-t)^2+(-4)*2*(1-t)*t+(-3)*t^2),((-3)*(1-t)^2+(-3)*2*(1-
t)*t+(-3)*t^2),(16*(1-t)^2+16*2*(1-
t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
Kerangka 2
P1:=spacecurve([((-3)*(1-t)^2+(-3)*2*(1-
t)*t+(3)*t^2),((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2),(17*(1-
t)^2+17*2*(1-t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
P2:=spacecurve([((3)*(1-t)^2+(3)*2*(1-t)*t+(4)*t^2),((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2),(17*(1-t)^2+17*2*(1-
t)*t+16*t^2)],t=0..1,labels=[x,y,z]):
P3:=spacecurve([((4)*(1-t)^2+(4)*2*(1-t)*t+(3)*t^2),((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2),(16*(1-t)^2+16*2*(1-
t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
P4:=spacecurve([((3)*(1-t)^2+(3)*2*(1-t)*t+(-
3)*t^2),((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
P5:=spacecurve([((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-
4)*t^2),((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+16*t^2)],t=0..1,labels=[x,y,z]):
P6:=spacecurve([((-4)*(1-t)^2+(-4)*2*(1-t)*t+(-
3)*t^2),((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2),(16*(1-
t)^2+16*2*(1-t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
display([(P1,P2,P3,P4,P5,P6,O1,O2,O3,O4,O5,O6)],scaling=cons
trained,thickness=7,style=patchnogrid,labels=[x,y,z]):
OP1:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-
t)*t+(3)*t^2)+v*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(3)*t^2),(1-
v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)+v*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)],t=0..1,v=0..1,color="violet"):
OP2:=plot3d([(1-v)*((3)*(1-t)^2+(3)*2*(1-
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 70
t)*t+(4)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-t)*t+(4)*t^2),(1-
v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-
t)*t+16*t^2)+v*(17*(1-t)^2+17*2*(1-
t)*t+16*t^2)],t=0..1,v=0..1,color="violet"):
OP3:=plot3d([(1-v)*((4)*(1-t)^2+(4)*2*(1-
t)*t+(3)*t^2)+v*((4)*(1-t)^2+(4)*2*(1-t)*t+(3)*t^2),(1-
v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2),(1-v)*(16*(1-t)^2+16*2*(1-
t)*t+15*t^2)+v*(16*(1-t)^2+16*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="violet"):
OP4:=plot3d([(1-v)*((3)*(1-t)^2+(3)*2*(1-t)*t+(-
3)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-t)*t+(-3)*t^2),(1-v)*((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-
t)*t+(3)*t^2),(1-v)*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="violet"):
OP5:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-
4)*t^2)+v*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-4)*t^2),(1-v)*((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-
t)*t+(3)*t^2),(1-v)*(15*(1-t)^2+15*2*(1-
t)*t+16*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+16*t^2)],t=0..1,v=0..1,color="violet"):
OP6:=plot3d([(1-v)*((-4)*(1-t)^2+(-4)*2*(1-t)*t+(-
3)*t^2)+v*((-4)*(1-t)^2+(-4)*2*(1-t)*t+(-3)*t^2),(1-v)*((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-
t)*t+(3)*t^2),(1-v)*(16*(1-t)^2+16*2*(1-
t)*t+17*t^2)+v*(16*(1-t)^2+16*2*(1-
t)*t+17*t^2)],t=0..1,v=0..1,color="violet"):
OP7:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-
4)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-t)*t+(4)*t^2),(1-v)*((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-
t)*t+(3)*t^2),(1-v)*(15*(1-t)^2+15*2*(1-
t)*t+16*t^2)+v*(17*(1-t)^2+17*2*(1-
t)*t+16*t^2)],t=0..1,v=0..1,color="pink"):
OP8:=plot3d([(1-v)*((-4)*(1-t)^2+(-4)*2*(1-t)*t+(-
3)*t^2)+v*((4)*(1-t)^2+(4)*2*(1-t)*t+(3)*t^2),(1-v)*((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-
t)*t+(3)*t^2),(1-v)*(16*(1-t)^2+16*2*(1-
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 71
t)*t+17*t^2)+v*(16*(1-t)^2+16*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="pink"):
OP9:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-
t)*t+(3)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-t)*t+(-3)*t^2),(1-
v)*((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2)+v*((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="pink"):
OP10:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-
4)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-t)*t+(4)*t^2),(1-v)*((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((-3)*(1-t)^2+(-
3)*2*(1-t)*t+(-3)*t^2),(1-v)*(15*(1-t)^2+15*2*(1-
t)*t+16*t^2)+v*(17*(1-t)^2+17*2*(1-
t)*t+16*t^2)],t=0..1,v=0..1,color="pink"):
OP11:=plot3d([(1-v)*((-4)*(1-t)^2+(-4)*2*(1-t)*t+(-
3)*t^2)+v*((4)*(1-t)^2+(4)*2*(1-t)*t+(3)*t^2),(1-v)*((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((-3)*(1-t)^2+(-
3)*2*(1-t)*t+(-3)*t^2),(1-v)*(16*(1-t)^2+16*2*(1-
t)*t+17*t^2)+v*(16*(1-t)^2+16*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="pink"):
OP12:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-
t)*t+(3)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-t)*t+(-3)*t^2),(1-
v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((-3)*(1-t)^2+(-
3)*2*(1-t)*t+(-3)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="pink"):
y3:=display([(OP1,OP2,OP3,OP4,OP5,OP6,OP7,OP8,OP9,OP10,OP11,
OP12)],scaling=constrained,thickness=7,style=patchnogrid,lab
els=[x,y,z]):
kerangka 1
OO1:=spacecurve([((-3)*(1-t)^2+(-3)*2*(1-t)*t+(3)*t^2),((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2),(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 72
OO2:=spacecurve([((3)*(1-t)^2+(3)*2*(1-t)*t+(2)*t^2),((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2),(17*(1-t)^2+17*2*(1-
t)*t+16*t^2)],t=0..1,labels=[x,y,z]):
OO3:=spacecurve([((2)*(1-t)^2+(2)*2*(1-t)*t+(3)*t^2),((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2),(16*(1-t)^2+16*2*(1-
t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
OO4:=spacecurve([((3)*(1-t)^2+(3)*2*(1-t)*t+(-3)*t^2),((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2),(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
OO5:=spacecurve([((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-2)*t^2),((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2),(15*(1-t)^2+15*2*(1-
t)*t+16*t^2)],t=0..1,labels=[x,y,z]):
OO6:=spacecurve([((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-3)*t^2),((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2),(16*(1-t)^2+16*2*(1-
t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
Kerangka 2
PP1:=spacecurve([((-3)*(1-t)^2+(-3)*2*(1-
t)*t+(3)*t^2),((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2),(17*(1-
t)^2+17*2*(1-t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
PP2:=spacecurve([((3)*(1-t)^2+(3)*2*(1-
t)*t+(2)*t^2),((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2),(17*(1-
t)^2+17*2*(1-t)*t+16*t^2)],t=0..1,labels=[x,y,z]):
PP3:=spacecurve([((2)*(1-t)^2+(2)*2*(1-
t)*t+(3)*t^2),((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2),(16*(1-
t)^2+16*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
PP4:=spacecurve([((3)*(1-t)^2+(3)*2*(1-t)*t+(-
3)*t^2),((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+15*t^2)],t=0..1,labels=[x,y,z]):
PP5:=spacecurve([((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-
2)*t^2),((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2),(15*(1-
t)^2+15*2*(1-t)*t+16*t^2)],t=0..1,labels=[x,y,z]):
PP6:=spacecurve([((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-
3)*t^2),((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2),(16*(1-
t)^2+16*2*(1-t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 73
display([(OO1,OO2,OO3,OO4,OO5,OO6,PP1,PP2,PP3,PP4,PP5,PP6)],
scaling=constrained,thickness=7,style=patchnogrid,labels=[x,
y,z]):
OOPP1:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-
t)*t+(3)*t^2)+v*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(3)*t^2),(1-
v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)+v*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)],t=0..1,v=0..1,color="violet"):
OOPP2:=plot3d([(1-v)*((3)*(1-t)^2+(3)*2*(1-
t)*t+(2)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-t)*t+(2)*t^2),(1-
v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-
t)*t+16*t^2)+v*(17*(1-t)^2+17*2*(1-
t)*t+16*t^2)],t=0..1,v=0..1,color="violet"):
OOPP3:=plot3d([(1-v)*((2)*(1-t)^2+(2)*2*(1-
t)*t+(3)*t^2)+v*((2)*(1-t)^2+(2)*2*(1-t)*t+(3)*t^2),(1-
v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2),(1-v)*(16*(1-t)^2+16*2*(1-
t)*t+15*t^2)+v*(16*(1-t)^2+16*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="violet"):
OOPP4:=plot3d([(1-v)*((3)*(1-t)^2+(3)*2*(1-t)*t+(-
3)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-t)*t+(-3)*t^2),(1-v)*((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-
t)*t+(3)*t^2),(1-v)*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)],t=0..1,v=0..1,color="violet"):
OOPP5:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-
2)*t^2)+v*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-2)*t^2),(1-v)*((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-
t)*t+(3)*t^2),(1-v)*(15*(1-t)^2+15*2*(1-
t)*t+16*t^2)+v*(15*(1-t)^2+15*2*(1-
t)*t+16*t^2)],t=0..1,v=0..1,color="violet"):
OOPP6:=plot3d([(1-v)*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-
3)*t^2)+v*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-3)*t^2),(1-v)*((-
3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((3)*(1-t)^2+(3)*2*(1-
t)*t+(3)*t^2),(1-v)*(16*(1-t)^2+16*2*(1-
t)*t+17*t^2)+v*(16*(1-t)^2+16*2*(1-
t)*t+17*t^2)],t=0..1,v=0..1,color="violet"):
OOPP7:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 74
t)*t+(3)*t^2)+v*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(2)*t^2),(1-
v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((-3)*(1-t)^2+(-
3)*2*(1-t)*t+(-3)*t^2),(1-v)*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)+v*(16*(1-t)^2+16*2*(1-
t)*t+16*t^2)],t=0..1,v=0..1,color="pink"):
OOPP8:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-
t)*t+(3)*t^2)+v*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(2)*t^2),(1-
v)*((-3)*(1-t)^2+(-3)*2*(1-t)*t+(-3)*t^2)+v*((-3)*(1-t)^2+(-
3)*2*(1-t)*t+(-3)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)+v*(16*(1-t)^2+16*2*(1-
t)*t+16*t^2)],t=0..1,v=0..1,color="pink"):
OOPP9:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-
t)*t+(3)*t^2)+v*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(2)*t^2),(1-
v)*((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2)+v*((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2),(1-v)*(15*(1-t)^2+15*2*(1-
t)*t+15*t^2)+v*(16*(1-t)^2+16*2*(1-
t)*t+16*t^2)],t=0..1,v=0..1,color="pink"):
OOPP10:=plot3d([(1-v)*((-3)*(1-t)^2+(-3)*2*(1-
t)*t+(3)*t^2)+v*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(2)*t^2),(1-
v)*((3)*(1-t)^2+(3)*2*(1-t)*t+(3)*t^2)+v*((3)*(1-
t)^2+(3)*2*(1-t)*t+(3)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)+v*(16*(1-t)^2+16*2*(1-
t)*t+16*t^2)],t=0..1,v=0..1,color="pink"):
y4:=display([(OOPP1,OOPP2,OOPP3,OOPP4,OOPP5,OOPP6,OOPP7,OOPP
8,OOPP9,OOPP10)],scaling=constrained,thickness=7,style=patch
nogrid,labels=[x,y,z]):
Kerangka
H1:=spacecurve([((-2)*(1-t)^2+(-2)*2*(1-
t)*t+(2)*t^2),((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2),(17*(1-
t)^2+17*2*(1-t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
H2:=spacecurve([((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2),((2)*(1-
t)^2+(2)*2*(1-t)*t+(-2)*t^2),(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 75
H3:=spacecurve([((2)*(1-t)^2+(2)*2*(1-t)*t+(-2)*t^2),((-
2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2),(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
H4:=spacecurve([((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2),((-
2)*(1-t)^2+(-2)*2*(1-t)*t+(2)*t^2),(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
h1:=spacecurve([((-1.5)*(1-t)^2+(-1.5)*2*(1-
t)*t+(1.5)*t^2),((1.5)*(1-t)^2+(1.5)*2*(1-
t)*t+(1.5)*t^2),(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
h2:=spacecurve([((1.5)*(1-t)^2+(1.5)*2*(1-
t)*t+(1.5)*t^2),((1.5)*(1-t)^2+(1.5)*2*(1-t)*t+(-
1.5)*t^2),(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
h3:=spacecurve([((1.5)*(1-t)^2+(1.5)*2*(1-t)*t+(-
1.5)*t^2),((-1.5)*(1-t)^2+(-1.5)*2*(1-t)*t+(-
1.5)*t^2),(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
h4:=spacecurve([((-1.5)*(1-t)^2+(-1.5)*2*(1-t)*t+(-
1.5)*t^2),((-1.5)*(1-t)^2+(-1.5)*2*(1-
t)*t+(1.5)*t^2),(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
Interpolasi Kerangka
Hh1:=plot3d([(1-v)*((-2)*(1-t)^2+(-2)*2*(1-
t)*t+(2)*t^2)+v*((-1.5)*(1-t)^2+(-1.5)*2*(1-
t)*t+(1.5)*t^2),(1-v)*((2)*(1-t)^2+(2)*2*(1-
t)*t+(2)*t^2)+v*((1.5)*(1-t)^2+(1.5)*2*(1-
t)*t+(1.5)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)+v*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,v=0..1):
Hh2:=plot3d([(1-v)*((2)*(1-t)^2+(2)*2*(1-
t)*t+(2)*t^2)+v*((1.5)*(1-t)^2+(1.5)*2*(1-
t)*t+(1.5)*t^2),(1-v)*((2)*(1-t)^2+(2)*2*(1-t)*t+(-
2)*t^2)+v*((1.5)*(1-t)^2+(1.5)*2*(1-t)*t+(-1.5)*t^2),(1-
v)*(17*(1-t)^2+17*2*(1-t)*t+17*t^2)+v*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,v=0..1):
Hh3:=plot3d([(1-v)*((2)*(1-t)^2+(2)*2*(1-t)*t+(-
2)*t^2)+v*((1.5)*(1-t)^2+(1.5)*2*(1-t)*t+(-1.5)*t^2),(1-
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 76
v)*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2)+v*((-1.5)*(1-
t)^2+(-1.5)*2*(1-t)*t+(-1.5)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)+v*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,v=0..1):
Hh4:=plot3d([(1-v)*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-
2)*t^2)+v*((-1.5)*(1-t)^2+(-1.5)*2*(1-t)*t+(-1.5)*t^2),(1-
v)*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(2)*t^2)+v*((-1.5)*(1-
t)^2+(-1.5)*2*(1-t)*t+(1.5)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)+v*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,v=0..1):
Hh5:=plot3d([(1-v)*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-
2)*t^2)+v*((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2),(1-v)*((2)*(1-
t)^2+(2)*2*(1-t)*t+(-2)*t^2)+v*((2)*(1-t)^2+(2)*2*(1-t)*t+(-
2)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-t)*t+17*t^2)+v*(17*(1-
t)^2+17*2*(1-t)*t+17*t^2)],t=0..1,v=0..1):
Hh6:=plot3d([(1-v)*((-1.5)*(1-t)^2+(-1.5)*2*(1-t)*t+(-
1.5)*t^2)+v*((1.5)*(1-t)^2+(1.5)*2*(1-t)*t+(1.5)*t^2),(1-
v)*((1.5)*(1-t)^2+(1.5)*2*(1-t)*t+(-1.5)*t^2)+v*((1.5)*(1-
t)^2+(1.5)*2*(1-t)*t+(-1.5)*t^2),(1-v)*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)+v*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,v=0..1):
display([(Hh1,Hh2,Hh3,Hh4,Hh5,Hh6)],scaling=constrained,thic
kness=7,style=patchnogrid,labels=[x,y,z]):
kerangka
Kp1:=spacecurve([((-1)*(1-t)^2+(-1)*2*(1-t)*t+(1)*t^2),((-
2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2),(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
Kp2:=spacecurve([((1)*(1-t)^2+(1.05)*2*(1-
t)*t+(1.5)*t^2),((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-
2)*t^2),(19*(1-t)^2+18.67*2*(1-
t)*t+18.34*t^2)],t=0..1,labels=[x,y,z]):
Kp3:=spacecurve([((1.5)*(1-t)^2+(1.55)*2*(1-
t)*t+(2)*t^2),((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-
2)*t^2),(18.34*(1-t)^2+17.67*2*(1-
t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
Kp4:=spacecurve([((2)*(1-t)^2+(2)*2*(1-t)*t+(-2)*t^2),((-
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 77
2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2),(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
Kp5:=spacecurve([((-2)*(1-t)^2+(-1.55)*2*(1-t)*t+(-
1.5)*t^2),((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2),(17*(1-
t)^2+17.67*2*(1-t)*t+18.34*t^2)],t=0..1,labels=[x,y,z]):
Kp6:=spacecurve([((-1.5)*(1-t)^2+(-1.05)*2*(1-t)*t+(-
1)*t^2),((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2),(18.34*(1-
t)^2+18.67*2*(1-t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
Kp7:=spacecurve([((-1)*(1-t)^2+(-1)*2*(1-
t)*t+(1)*t^2),((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2),(19*(1-
t)^2+19*2*(1-t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
Kp8:=spacecurve([((1)*(1-t)^2+(1.05)*2*(1-
t)*t+(1.5)*t^2),((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2),(19*(1-
t)^2+18.67*2*(1-t)*t+18.34*t^2)],t=0..1,labels=[x,y,z]):
Kp9:=spacecurve([((1.5)*(1-t)^2+(1.55)*2*(1-
t)*t+(2)*t^2),((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2),(18.34*(1-
t)^2+17.67*2*(1-t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
Kp10:=spacecurve([((2)*(1-t)^2+(2)*2*(1-t)*t+(-
2)*t^2),((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2),(17*(1-
t)^2+17*2*(1-t)*t+17*t^2)],t=0..1,labels=[x,y,z]):
Kp11:=spacecurve([((-2)*(1-t)^2+(-1.55)*2*(1-t)*t+(-
1.5)*t^2),((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2),(17*(1-
t)^2+17.67*2*(1-t)*t+18.34*t^2)],t=0..1,labels=[x,y,z]):
Kp12:=spacecurve([((-1.5)*(1-t)^2+(-1.05)*2*(1-t)*t+(-
1)*t^2),((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2),(18.34*(1-
t)^2+18.67*2*(1-t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
display([(Kp1,Kp2,Kp3,Kp4,Kp5,Kp6,Kp7,Kp8,Kp9,Kp10,Kp11,Kp12
)],scaling=constrained,thickness=7,style=patchnogrid,labels=
[x,y,z]):
ikp1:=plot3d([(1-v)*((-1)*(1-t)^2+(-1)*2*(1-
t)*t+(1)*t^2)+v*((-1)*(1-t)^2+(-1)*2*(1-t)*t+(1)*t^2),(1-
v)*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2)+v*((2)*(1-
t)^2+(2)*2*(1-t)*t+(2)*t^2),(1-v)*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)+v*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,v=0..1,labels=[x,y,z]):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 78
ikp2:=plot3d([(1-v)*((1)*(1-t)^2+(1.05)*2*(1-
t)*t+(1.5)*t^2)+v*((1)*(1-t)^2+(1.05)*2*(1-
t)*t+(1.5)*t^2),(1-v)*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-
2)*t^2)+v*((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2),(1-v)*(19*(1-
t)^2+18.67*2*(1-t)*t+18.34*t^2)+v*(19*(1-t)^2+18.67*2*(1-
t)*t+18.34*t^2)],t=0..1,v=0..1,labels=[x,y,z]):
ikp3:=plot3d([(1-v)*((1.5)*(1-t)^2+(1.55)*2*(1-
t)*t+(2)*t^2)+v*((1.5)*(1-t)^2+(1.55)*2*(1-t)*t+(2)*t^2),(1-
v)*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2)+v*((2)*(1-
t)^2+(2)*2*(1-t)*t+(2)*t^2),(1-v)*(18.34*(1-t)^2+17.67*2*(1-
t)*t+17*t^2)+v*(18.34*(1-t)^2+17.67*2*(1-
t)*t+17*t^2)],t=0..1,v=0..1,labels=[x,y,z]):
ikp4:=plot3d([(1-v)*((2)*(1-t)^2+(2)*2*(1-t)*t+(-
2)*t^2)+v*((2)*(1-t)^2+(2)*2*(1-t)*t+(-2)*t^2),(1-v)*((-
2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2)+v*((2)*(1-t)^2+(2)*2*(1-
t)*t+(2)*t^2),(1-v)*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)+v*(17*(1-t)^2+17*2*(1-
t)*t+17*t^2)],t=0..1,v=0..1,labels=[x,y,z]):
ikp5:=plot3d([(1-v)*((-2)*(1-t)^2+(-1.55)*2*(1-t)*t+(-
1.5)*t^2)+v*((-2)*(1-t)^2+(-1.55)*2*(1-t)*t+(-1.5)*t^2),(1-
v)*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2)+v*((2)*(1-
t)^2+(2)*2*(1-t)*t+(2)*t^2),(1-v)*(17*(1-t)^2+17.67*2*(1-
t)*t+18.34*t^2)+v*(17*(1-t)^2+17.67*2*(1-
t)*t+18.34*t^2)],t=0..1,v=0..1,labels=[x,y,z]):
ikp6:=plot3d([(1-v)*((-1.5)*(1-t)^2+(-1.05)*2*(1-t)*t+(-
1)*t^2)+v*((-1.5)*(1-t)^2+(-1.05)*2*(1-t)*t+(-1)*t^2),(1-
v)*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2)+v*((2)*(1-
t)^2+(2)*2*(1-t)*t+(2)*t^2),(1-v)*(18.34*(1-t)^2+18.67*2*(1-
t)*t+19*t^2)+v*(18.34*(1-t)^2+18.67*2*(1-
t)*t+19*t^2)],t=0..1,v=0..1,labels=[x,y,z]):
ikp7:=plot3d([(1-v)*((-1)*(1-t)^2+(-1.05)*2*(1-t)*t+(-
1.5)*t^2)+v*((1)*(1-t)^2+(1.05)*2*(1-t)*t+(1.5)*t^2),(1-
v)*((-2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2)+v*((-2)*(1-t)^2+(-
2)*2*(1-t)*t+(-2)*t^2),(1-v)*(19*(1-t)^2+18.67*2*(1-
t)*t+18.34*t^2)+v*(19*(1-t)^2+18.67*2*(1-
t)*t+18.34*t^2)],t=0..1,v=0..1,labels=[x,y,z]):
ikp8:=plot3d([(1-v)*((-1)*(1-t)^2+(-1.05)*2*(1-t)*t+(-
1.5)*t^2)+v*((1)*(1-t)^2+(1.05)*2*(1-t)*t+(1.5)*t^2),(1-
v)*((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2)+v*((2)*(1-
t)^2+(2)*2*(1-t)*t+(2)*t^2),(1-v)*(19*(1-t)^2+18.67*2*(1-
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 79
t)*t+18.34*t^2)+v*(19*(1-t)^2+18.67*2*(1-
t)*t+18.34*t^2)],t=0..1,v=0..1,labels=[x,y,z]):
ikp9:=plot3d([(1-v)*((-1.5)*(1-t)^2+(-1.55)*2*(1-t)*t+(-
2)*t^2)+v*((1.5)*(1-t)^2+(1.55)*2*(1-t)*t+(2)*t^2),(1-v)*((-
2)*(1-t)^2+(-2)*2*(1-t)*t+(-2)*t^2)+v*((-2)*(1-t)^2+(-
2)*2*(1-t)*t+(-2)*t^2),(1-v)*(18.34*(1-t)^2+17.67*2*(1-
t)*t+17*t^2)+v*(18.34*(1-t)^2+17.67*2*(1-
t)*t+17*t^2)],t=0..1,v=0..1,labels=[x,y,z]):
ikp10:=plot3d([(1-v)*((-1.5)*(1-t)^2+(-1.55)*2*(1-t)*t+(-
2)*t^2)+v*((1.5)*(1-t)^2+(1.55)*2*(1-t)*t+(2)*t^2),(1-
v)*((2)*(1-t)^2+(2)*2*(1-t)*t+(2)*t^2)+v*((2)*(1-
t)^2+(2)*2*(1-t)*t+(2)*t^2),(1-v)*(18.34*(1-t)^2+17.67*2*(1-
t)*t+17*t^2)+v*(18.34*(1-t)^2+17.67*2*(1-
t)*t+17*t^2)],t=0..1,v=0..1,labels=[x,y,z]):
display([(ikp1,ikp2,ikp3,ikp4,ikp5,ikp6,ikp7,ikp8,ikp9,ikp10
)],scaling=constrained,thickness=7,style=patchnogrid,labels=
[x,y,z]):
Kerangka
Ap1:=spacecurve([((-1)*(1-t)^2+(-0.75)*2*(1-
t)*t+(0)*t^2),((1)*(1-t)^2+(1)*2*(1-t)*t+(0)*t^2),(19*(1-
t)^2+20*2*(1-t)*t+21*t^2)],t=0..1,labels=[x,y,z]):
Ap2:=spacecurve([((1)*(1-t)^2+(0.75)*2*(1-
t)*t+(0)*t^2),((1)*(1-t)^2+(1)*2*(1-t)*t+(0)*t^2),(19*(1-
t)^2+20*2*(1-t)*t+21*t^2)],t=0..1,labels=[x,y,z]):
Ap3:=spacecurve([((1)*(1-t)^2+(0.75)*2*(1-t)*t+(0)*t^2),((-
1)*(1-t)^2+(-1)*2*(1-t)*t+(0)*t^2),(19*(1-t)^2+20*2*(1-
t)*t+21*t^2)],t=0..1,labels=[x,y,z]):
Ap4:=spacecurve([((-1)*(1-t)^2+(-0.75)*2*(1-
t)*t+(0)*t^2),((-1)*(1-t)^2+(-1)*2*(1-t)*t+(0)*t^2),(19*(1-
t)^2+20*2*(1-t)*t+21*t^2)],t=0..1,labels=[x,y,z]):
Ap5:=spacecurve([((-1)*(1-t)^2+(-1)*2*(1-
t)*t+(1)*t^2),((1)*(1-t)^2+(1)*2*(1-t)*t+(1)*t^2),(19*(1-
t)^2+19*2*(1-t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
Ap6:=spacecurve([((1)*(1-t)^2+(1)*2*(1-
t)*t+(1)*t^2),((1)*(1-t)^2+(1)*2*(1-t)*t+(-1)*t^2),(19*(1-
t)^2+19*2*(1-t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 80
Ap7:=spacecurve([((1)*(1-t)^2+(1)*2*(1-t)*t+(-1)*t^2),((-
1)*(1-t)^2+(-1)*2*(1-t)*t+(-1)*t^2),(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
Ap8:=spacecurve([((-1)*(1-t)^2+(-1)*2*(1-t)*t+(-1)*t^2),((-
1)*(1-t)^2+(-1)*2*(1-t)*t+(1)*t^2),(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
display([(Ap1,Ap2,Ap3,Ap4,Ap5,Ap6,Ap7,Ap8)],scaling=constrai
ned,thickness=7,style=patchnogrid,labels=[x,y,z]):
Interpolasi
I1:=plot3d([(1-v)*((-1)*(1-t)^2+(-0.75)*2*(1-
t)*t+(0)*t^2)+v*((1)*(1-t)^2+(0.75)*2*(1-t)*t+(0)*t^2),(1-
v)*((1)*(1-t)^2+(1)*2*(1-t)*t+(0)*t^2)+v*((1)*(1-
t)^2+(1)*2*(1-t)*t+(0)*t^2),(1-v)*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)+v*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)],t=0..1,v=0..1,labels=[x,y,z],color="green"):
I2:=plot3d([(1-v)*((1)*(1-t)^2+(0.75)*2*(1-
t)*t+(0)*t^2)+v*((1)*(1-t)^2+(0.75)*2*(1-t)*t+(0)*t^2),(1-
v)*((1)*(1-t)^2+(1)*2*(1-t)*t+(0)*t^2)+v*((-1)*(1-t)^2+(-
1)*2*(1-t)*t+(0)*t^2),(1-v)*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)+v*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)],t=0..1,v=0..1,labels=[x,y,z],color="yellow"):
I3:=plot3d([(1-v)*((1)*(1-t)^2+(0.75)*2*(1-
t)*t+(0)*t^2)+v*((-1)*(1-t)^2+(-0.75)*2*(1-t)*t+(0)*t^2),(1-
v)*((-1)*(1-t)^2+(-1)*2*(1-t)*t+(0)*t^2)+v*((-1)*(1-t)^2+(-
1)*2*(1-t)*t+(0)*t^2),(1-v)*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)+v*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)],t=0..1,v=0..1,labels=[x,y,z],color="green"):
I4:=plot3d([(1-v)*((-1)*(1-t)^2+(-0.75)*2*(1-
t)*t+(0)*t^2)+v*((-1)*(1-t)^2+(-0.75)*2*(1-t)*t+(0)*t^2),(1-
v)*((-1)*(1-t)^2+(-1)*2*(1-t)*t+(0)*t^2)+v*((1)*(1-
t)^2+(1)*2*(1-t)*t+(0)*t^2),(1-v)*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)+v*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)],t=0..1,v=0..1,labels=[x,y,z],color="yellow"):
I5:=plot3d([(1-v)*((-1)*(1-t)^2+(-1)*2*(1-
t)*t+(1)*t^2)+v*((1)*(1-t)^2+(1)*2*(1-t)*t+(-1)*t^2),(1-
v)*((1)*(1-t)^2+(1)*2*(1-t)*t+(1)*t^2)+v*((-1)*(1-t)^2+(-
1)*2*(1-t)*t+(-1)*t^2),(1-v)*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)+v*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,v=0..1,labels=[x,y,z],color="blue"):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 81
I6:=plot3d([(1-v)*((1)*(1-t)^2+(1)*2*(1-t)*t+(1)*t^2)+v*((-
1)*(1-t)^2+(-1)*2*(1-t)*t+(-1)*t^2),(1-v)*((1)*(1-
t)^2+(1)*2*(1-t)*t+(-1)*t^2)+v*((-1)*(1-t)^2+(-1)*2*(1-
t)*t+(1)*t^2),(1-v)*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)+v*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,v=0..1,labels=[x,y,z],color="blue"):
display([(I1,I2,I3,I4,I5,I6)],scaling=constrained,thickness=
7,style=patchnogrid,labels=[x,y,z]):
Ac1:=spacecurve([((-1)*(1-t)^2+(-0.25)*2*(1-
t)*t+(0)*t^2),((1)*(1-t)^2+(1)*2*(1-t)*t+(0)*t^2),(19*(1-
t)^2+20*2*(1-t)*t+21*t^2)],t=0..1,labels=[x,y,z]):
Ac2:=spacecurve([((1)*(1-t)^2+(0.25)*2*(1-
t)*t+(0)*t^2),((1)*(1-t)^2+(1)*2*(1-t)*t+(0)*t^2),(19*(1-
t)^2+20*2*(1-t)*t+21*t^2)],t=0..1,labels=[x,y,z]):
Ac3:=spacecurve([((1)*(1-t)^2+(0.25)*2*(1-t)*t+(0)*t^2),((-
1)*(1-t)^2+(-1)*2*(1-t)*t+(0)*t^2),(19*(1-t)^2+20*2*(1-
t)*t+21*t^2)],t=0..1,labels=[x,y,z]): Ac4:=spacecurve([((-
1)*(1-t)^2+(-0.25)*2*(1-t)*t+(0)*t^2),((-1)*(1-t)^2+(-
1)*2*(1-t)*t+(0)*t^2),(19*(1-t)^2+20*2*(1-
t)*t+21*t^2)],t=0..1,labels=[x,y,z]):
Ac5:=spacecurve([((-1)*(1-t)^2+(-1)*2*(1-
t)*t+(1)*t^2),((1)*(1-t)^2+(1)*2*(1-t)*t+(1)*t^2),(19*(1-
t)^2+19*2*(1-t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
Ac6:=spacecurve([((1)*(1-t)^2+(1)*2*(1-
t)*t+(1)*t^2),((1)*(1-t)^2+(1)*2*(1-t)*t+(-1)*t^2),(19*(1-
t)^2+19*2*(1-t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
Ac7:=spacecurve([((1)*(1-t)^2+(1)*2*(1-t)*t+(-1)*t^2),((-
1)*(1-t)^2+(-1)*2*(1-t)*t+(-1)*t^2),(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
Ac8:=spacecurve([((-1)*(1-t)^2+(-1)*2*(1-t)*t+(-1)*t^2),((-
1)*(1-t)^2+(-1)*2*(1-t)*t+(1)*t^2),(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,labels=[x,y,z]):
display([(Ac1,Ac2,Ac3,Ac4,Ac5,Ac6,Ac7,Ac8)],scaling=constrai
ned,thickness=7,style=patchnogrid,labels=[x,y,z]):
interpolasi
Ii1:=plot3d([(1-v)*((-1)*(1-t)^2+(-0.25)*2*(1-
t)*t+(0)*t^2)+v*((1)*(1-t)^2+(0.25)*2*(1-t)*t+(0)*t^2),(1-
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 82
v)*((1)*(1-t)^2+(1)*2*(1-t)*t+(0)*t^2)+v*((1)*(1-
t)^2+(1)*2*(1-t)*t+(0)*t^2),(1-v)*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)+v*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)],t=0..1,v=0..1,labels=[x,y,z],color="green"):
Ii2:=plot3d([(1-v)*((1)*(1-t)^2+(0.25)*2*(1-
t)*t+(0)*t^2)+v*((1)*(1-t)^2+(0.25)*2*(1-t)*t+(0)*t^2),(1-
v)*((1)*(1-t)^2+(1)*2*(1-t)*t+(0)*t^2)+v*((-1)*(1-t)^2+(-
1)*2*(1-t)*t+(0)*t^2),(1-v)*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)+v*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)],t=0..1,v=0..1,labels=[x,y,z],color="yellow"):
Ii3:=plot3d([(1-v)*((1)*(1-t)^2+(0.25)*2*(1-
t)*t+(0)*t^2)+v*((-1)*(1-t)^2+(-0.25)*2*(1-t)*t+(0)*t^2),(1-
v)*((-1)*(1-t)^2+(-1)*2*(1-t)*t+(0)*t^2)+v*((-1)*(1-t)^2+(-
1)*2*(1-t)*t+(0)*t^2),(1-v)*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)+v*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)],t=0..1,v=0..1,labels=[x,y,z],color="green"):
Ii4:=plot3d([(1-v)*((-1)*(1-t)^2+(-0.25)*2*(1-
t)*t+(0)*t^2)+v*((-1)*(1-t)^2+(-0.25)*2*(1-t)*t+(0)*t^2),(1-
v)*((-1)*(1-t)^2+(-1)*2*(1-t)*t+(0)*t^2)+v*((1)*(1-
t)^2+(1)*2*(1-t)*t+(0)*t^2),(1-v)*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)+v*(19*(1-t)^2+(20)*2*(1-
t)*t+21*t^2)],t=0..1,v=0..1,labels=[x,y,z],color="yellow"):
Ii5:=plot3d([(1-v)*((-1)*(1-t)^2+(-1)*2*(1-
t)*t+(1)*t^2)+v*((1)*(1-t)^2+(1)*2*(1-t)*t+(-1)*t^2),(1-
v)*((1)*(1-t)^2+(1)*2*(1-t)*t+(1)*t^2)+v*((-1)*(1-t)^2+(-
1)*2*(1-t)*t+(-1)*t^2),(1-v)*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)+v*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,v=0..1,labels=[x,y,z],color="blue"):
Ii6:=plot3d([(1-v)*((1)*(1-t)^2+(1)*2*(1-t)*t+(1)*t^2)+v*((-
1)*(1-t)^2+(-1)*2*(1-t)*t+(-1)*t^2),(1-v)*((1)*(1-
t)^2+(1)*2*(1-t)*t+(-1)*t^2)+v*((-1)*(1-t)^2+(-1)*2*(1-
t)*t+(1)*t^2),(1-v)*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)+v*(19*(1-t)^2+19*2*(1-
t)*t+19*t^2)],t=0..1,v=0..1,labels=[x,y,z],color="blue"):
display([(Ii1,Ii2,Ii3,Ii4,Ii5,Ii6)],scaling=constrained,thic
kness=7,style=patchnogrid,labels=[x,y,z]):
Perangkaian Puncak
z1:=display([(Hh1,Hh2,Hh3,Hh4,Hh5,Hh6,Ii1,Ii2,Ii3,Ii4,Ii5,Ii
6)],scaling=constrained,thickness=7,style=patchnogrid,labels
=[x,y,z]):
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember 83
z2:=display([(Hh1,Hh2,Hh3,Hh4,Hh5,Hh6,I1,I2,I3,I4,I5,I6)],sc
aling=constrained,thickness=7,style=patchnogrid,labels=[x,y,
z]):
z3:=display([(ikp1,ikp2,ikp3,ikp4,ikp5,ikp6,ikp7,ikp8,ikp9,i
kp10,I1,I2,I3,I4,I5,I6)],scaling=constrained,thickness=7,sty
le=patchnogrid,labels=[x,y,z]):
z4:=display([(ikp1,ikp2,ikp3,ikp4,ikp5,ikp6,ikp7,ikp8,ikp9,i
kp10,Ii1,Ii2,Ii3,Ii4,Ii5,Ii6)],scaling=constrained,thickness
=7,style=patchnogrid,labels=[x,y,z]):
E1. Variasi 1
display([(x1,y1,y3,z1)],scaling=constrained,thickness=7,styl
e=patchnogrid,labels=[x,y,z]):
E2. Variasi 2
display([(x2,y2,y4,z2)],scaling=constrained,thickness=7,styl
e=patchnogrid,labels=[x,y,z]):
E3. Variasi 3
display([(x3,y1,y4,z3)],scaling=constrained,thickness=7,styl
e=patchnogrid,labels=[x,y,z]):
E4. Variasi 4
display([(x4,y2,y3,z4)],scaling=constrained,thickness=7,styl
e=patchnogrid,labels=[x,y,z]
Digital
Digital Repository
Repository Universitas
Universitas Jember
Jember