Pembentukan Bayangan Pada Lensa Tipis

Pembentukan Bayangan Pada Lensa Tipis

 comm:/

://'Lensa~on`error`resume`next~sstab1.tab=2~'mat.tbr_checked(3)=true~'For`AddObject`Add`end`of`params`with`1`for`Lock.`Call`Command`is`caption`name`but`replace`space`with`underscore.~'number`of`Line0`=`10~LoadObj`Line0(`0),`-5.82,1.18,-5.78,.00,0~LoadObj`Line0(`1),`-5.82,1.18,-3.00,.00,0~LoadObj`Line0(`2),`-5.82,1.18,.00,1.22,0~LoadObj`Line0(`3),`-5.82,1.18,.00,.00,0~LoadObj`Line0(`4),`-3.00,.00,.00,-1.25,0~LoadObj`Line0(`5),`.00,1.22,3.00,.00,0~LoadObj`Line0(`6),`.00,.00,5.97,-1.21,0~LoadObj`Line0(`7),`3.00,.00,5.97,-1.21,0~LoadObj`Line0(`9),`5.97,-1.21,5.97,.00,0~LoadObj`Line0(`8),`.00,-1.25,5.97,-1.21,0~LoadObj`Line0(`10),-3,0,line0(2).x2,line0(2).y2,0~line0(10).visible=false~'number`of`Shape1`=`2~LoadObj`Shape1(`1),`-6.24,1.41,.82,.82,"0|``-O`-1`-2`-3``<do`cembung>"~shape1(`1).shape=3~shape1(`1).backcolor=-2147483643~LoadObj`Shape1(`2),`-.31,3.37,.66,6.09,"0|<off>"~shape1(`2).shape=2~shape1(`2).backcolor=255~AddObject`params("label1(1`)|SIMULASI`LENSA#DblClick`to`change`converging/diverging",-3.66,8.76,6.00,2.00)`~label1(1`).caption=replace(label1(1`).caption,"#",vbnewline)~redim`m_graph(1)~m_graph(0)="x=.1*y^2+.35|-3|3"~``graph`m_graph(0)~m_graph(1)="x=-.1*y^2-.35|-3|3"~``graph`m_graph(1)~Shape1(2).tag="<off><do`togglecolor>"`'hanya`kerja`saat`dblClick~line0(0).borderwidth=2~line0(9).borderwidth=2~~~function`cekung~dim`i,x,y~for`i=4`to`8~``line0(i).visible=false~next~line0(10).visible=true~line0(0).x2=x_ord~line0(2).y2=y_ord~line0(10).x2=line0(2).x2~line0(10).y2=line0(2).y2~dt=intersect22(line0(3).x1,line0(3).y1,line0(3).x2,line0(3).y2,line0(10).x1,line0(10).y1,line0(10).x2,line0(10).y2)~x=split(dt,"`")(0):y=split(dt,"`")(1)~line0(9).x1=x:line0(9).y1=y~line0(9).x2=line0(9).x1:line0(9).y2=0~end`function~~function`cembung~dim`dt,x,y,i~for`i=4`to`8~``line0(i).visible=true~next~line0(10).visible=false~line0(0).x2=x_ord~line0(2).y2=y_ord~line0(4).x2=0~line0(4).y2=line2p(0,`line0(1).x1,line0(1).y1,`line0(1).x2,`line0(1).y2)~line0(5).x1=line0(2).x2~line0(5).y1=line0(2).y2~'verify`6`with`3,`7`with`5~'line0(6).y2=line2p(line0(6).x2,line0(3).x1,line0(3).y1,line0(3).x2,line0(3).y2)~'line0(7).y2=line2p(line0(7).x2,line0(5).x1,line0(5).y1,line0(5).x2,line0(5).y2)~'`cari`ttk`potong`3`dan`5~dt=intersect22(line0(3).x1,line0(3).y1,line0(3).x2,line0(3).y2,line0(5).x1,line0(5).y1,line0(5).x2,line0(5).y2)~x=split(dt,"`")(0):y=split(dt,"`")(1)~line0(6).x2=x:line0(7).x2=x~line0(6).y2=y:line0(7).y2=y~line0(9).x1=x:line0(9).y1=y~line0(9).x2=line0(9).x1:line0(9).y2=0~line0(8).x1=line0(4).x2~line0(8).y1=line0(4).y2~line0(8).x2=line0(9).x1~line0(8).y2=line0(9).y1~text2(0).text="P="`&`line0(8).x2~end`function~~sub`Graph_DblClick~'`switch`shape1(2)~``if`shape1(2).visible`then~`````shape1(2).visible=false~`````label0(6).backcolor=0~`````label0(7).backcolor=0``~````shape1(1).tag=replace(shape1(1).tag,"cembung","cekung")~~``else~````shape1(2).visible=true~`````label0(6).backcolor=vbwhite~`````label0(7).backcolor=vbwhite`````~````shape1(1).tag=replace(shape1(1).tag,"cekung","cembung")~~``end`if~~call`command1_click(0)~end`sub~~~~~~~~~~~~~~~~~~~~~~

PEMBENTUKAN BAYANGAN PADA LENSA CEMBUNG (KONVEKS/POSITIF)

Perhatikan pembagian ruang I, II, III, IV (ruang IV adalah daerah di depan lensa)

Gbr. Lensa Cembung

PEMBENTUKAN BAYANGAN PADA LENSA CEKUNG (KONKAF/NEGATIF)

Bayangan yang terbentuk selalu maya, tegak dan diperkecil

Gbr. Lensa Cekung

Untuk kedua jenis lensa cembung den cekung berlaku rumus:

Lensa tipis	Lensa tebal
1/f = 1/s + 1/s'	n1/s + n2/s' = (n2 - n1) / R	Lensa +f > 0  Lensa -f < 0

M = |s'/s| = |y'/y|

1/f = (n2/n1 - 1)(1/R1 - 1/R2)

n2 = indeks bias lensa

n1 = indeks bias lingkungan

R1 ; R2 = jari-jari kelengkungan lensa

MENENTUKAN SIFAT DAN LETAK BAYANGAN PADA CERMIN CEKUNG (+) DAN LENSA CEMBUNC (+)

1.Tentukan Jarak bayangan (s')

s+ Þ bayangan nyata dan terbalik

  - Þ bayangan maya dan tegak

2.Tentukan pembesaran (M)

M> 1 Þ diperbesar

= 1 Þ sama besar

< 1 Þ diperkecil

3.Letak benda dan bayangan dapat ditentukan berdasarkan (No) ruang benda + (No) ruang bayangan = 5

Jika :	(No) ruang benda > (No) ruang bayangan Þ bayangan diperkecil (No) ruang benda < (No) ruang bayangan Þ bayangan diperbesar Pada cermin cekung, benda dan bayangan di ruang 1, 2 den 3 adalah positif dan di ruang 4 adalah negatif, begitu juga sebaliknya untuk cermin cembung