Gymnasieopgave : Brug af logaritmer.

Decibel

>    restart;

Reference lydtryk

>    p_ref:=2.0*10.0^(-5);

>    p_tale:=10.0^(-2);

>    p_fiskerkutter:=1.0;

>    p_diskotek:=20.0;

p_ref := .2000000000e-4

p_tale := .1000000000e-1

p_fiskerkutter := 1.0

p_diskotek := 20.0

>    dB_tale=20*log[10](p_tale/p_ref);

>    dB_fiskerkutter=20*log[10](p_fiskerkutter/p_ref);

>    dB_diskotek=20*log[10](p_diskotek/p_ref);

dB_tale = 53.97940008

dB_fiskerkutter = 93.97940008

dB_diskotek = 120.0000000

SANDET MORÆNELER

>    restart;with(plots): 

Warning, the name changecoords has been redefined

Indtastning af x-data

>    x:=[0.002,0.006,0.02,0.06,0.2,0.6,2.0,6.0];nops(x);

x := [.2e-2, .6e-2, .2e-1, .6e-1, .2, .6, 2.0, 6.0]

8

Indtastning af y-data

>    y:=[18.0,24.0,35.0,47.0,60.0,73.0,86.0,96.0];

y := [18.0, 24.0, 35.0, 47.0, 60.0, 73.0, 86.0, 96.0]

Opskrivning af data somtalsæt

>    data:=[[x[i],y[i]]$i=1..nops(x)];

data := [[.2e-2, 18.0], [.6e-2, 24.0], [.2e-1, 35.0], [.6e-1, 47.0], [.2, 60.0], [.6, 73.0], [2.0, 86.0], [6.0, 96.0]]

>    s:=textplot([[4,5,"Kornstørrelse i mm"],[0.2,95,"Akumuleret vægtprocent"],[4,10,"Lineær skala"],[4,50,"SANDET MORÆNELER"]],align={RIGHT,ABOVE},color=BLACK):

>    p:=plot(data,0.0..7.0,0..100.0,style=point,axes=boxed,color=BLACK):

>    display(s,p);

[Maple Plot]

>    logdata:=[[log[10.0](x[i]),y[i]]$i=1..nops(x)];

logdata := [[-2.698970004, 18.0], [-2.221848750, 24.0], [-1.698970004, 35.0], [-1.221848750, 47.0], [-.6989700041, 60.0], [-.2218487496, 73.0], [.3010299957, 86.0], [.7781512503, 96.0]]
logdata := [[-2.698970004, 18.0], [-2.221848750, 24.0], [-1.698970004, 35.0], [-1.221848750, 47.0], [-.6989700041, 60.0], [-.2218487496, 73.0], [.3010299957, 86.0], [.7781512503, 96.0]]

>    s:=textplot([[0,5,"Kornstørrelse i mm"],[0,10,"Logaritmisk skala"],[-3,95,"Akumuleret vægtprocent"],[-3,60,"SANDET MORÆNELER"]],align={RIGHT,ABOVE},color=BLACK):

>    p0:=plot(77+24*u,u=log[10](0.001)..log[10](10.0)):

>    p1:=plot([[-3.23,77.0],[0.0,77.0],[0.0,0.0]]):

>    p:=plot(logdata,log[10](0.0006)..log[10](60.0),0..100.0,style=point,axes=boxed,color=BLACK):

>    display(s,p,p0,p1);

[Maple Plot]

>   

>