# Kedvenc Fizikai Kísérleteim

## Mechanika

## Hőtan

## Elektromosság és mágnesség

### Elektromosság

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Számok az elektronra

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

Pontöltés erőtere az xy síkban

f(x,y):=0.4*x*(x^2+y^2)^(-3/2);

g(x,y):=0.4*y*(x^2+y^2)^(-3/2);

v:create_list(vector([x,y],[f(x,y),g(x,y)]),
    x,[-2.5,-1.5,-0.5,0.5,1.5,2.5],
    y,[-2.5,-1.5,-0.5,0.5,1.5,2.5])$

draw2d(xrange=[-3,3],yrange=[-3,3],
    line_width=3,head_angle=2,
    proportional_axes='xy,v)$

Erővonalak két ellentétes töltésű rúd között

contour_plot(realpart(%i*log((1+x+%i*y)/
   (1-x-%i*y))),[x,-3,3],[y,-3,3],
   [grid,400,400],[xy_scale,1,1],
   [gnuplot_default_term_command,
   "set term wxt size 1024,1024 font \",12\";set term pop"],
   [gnuplot_preamble,"set cntrparam levels 12"])$

Erővonalak két egyező töltésű rúd között

contour_plot(realpart(%i*log((1+x+%i*y)*
   (1-x-%i*y))),[x,-3,3],[y,-3,3],
   [grid,400,400],[xy_scale,1,1],
   [gnuplot_default_term_command,
   "set term wxt size 1024,1024 font \",12\";set term pop"],
   [gnuplot_preamble,"set cntrparam levels 12"])$

### Feszültség

Erővonalkép a kondenzátor szélén

v:create_list([parametric,ρ*cos(t)+log(ρ),ρ*sin(t)+t,
  [t,-%pi,%pi]],ρ,[0.025,.05,0.1,.2,0.4,0.8,1.6])$

v:append([[parametric,t,-%pi,[t,-4,-1]]],
    [[parametric,t,%pi,[t,-4,-1]]],v)$

plot2d(v,[color,black,black,red,blue,green,magenta,
    cyan,yellow,orange,violet,brown],
    [y,-4,4],[legend,false])$

Egyenlő feszültségű helyek keresztmetszetben a kondenzátor szélén

v:create_list([parametric,t*cos(r)+log(t),t*sin(r)+r,[t,0.025,2.5]],
    r,[-4*%pi/5,-3*%pi/5,-2*%pi/5,-%pi/5,0,
    %pi/5,2*%pi/5,3*%pi/5,4*%pi/5])$

v:append([[parametric,t,-%pi,[t,-4,-1]]],
    [[parametric,t,%pi,[t,-4,-1]]],v)$

plot2d(v,[color,black,black,red,blue,green,magenta,
    cyan,yellow,orange,violet,brown],
    [x,-4,4],[y,-5,5],[legend,false])$

Egyenlő feszültségű helyek keresztmetszetben ellentétes töltésű rudaknál. Mivel az egyenlő feszültségű helyek hengerek, ugyanez a kép fémcsövek között is.

contour_plot(max(-2.1,min(2.1,
   imagpart(%i*log((1.01+x+%i*y)/(1.01-x-%i*y))))),
   [x,-3,3],[y,-3,3],
   [grid,400,400],[xy_scale,1,1],
   [gnuplot_default_term_command,
   "set term wxt size 1024,1024 font \",12\";set term pop"],
   [gnuplot_preamble,"set cntrparam levels 12"])$

Egyenlő feszültségű helyek keresztmetszetben egyenlő töltésű rudaknál

contour_plot(max(-6.1,min(6.1,
   imagpart(%i*log((1.01+x+%i*y)*(1.01-x-%i*y))))),[x,-3,3],[y,-3,3],
   [grid,400,400],[xy_scale,1,1],
   [gnuplot_default_term_command,
  "set term wxt size 1024,1024 font \",12\";set term pop"],
   [gnuplot_preamble,"set cntrparam levels 12"])$

### Millikan kísérlete

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet

### Kísérlet