vals spelen met wiskunde

Algemene discussies en vragen omtrent Liberty BASIC programma's. Stuur zoveel mogelijk delen van listings (snippets) in als je hulp wilt.

Moderators: anthonio, Abcott

vals spelen met wiskunde

Berichtdoor bluatigro » do sep 09, 2010 12:10 pm

deze 2 functies berekenen
de diferenceeel en de opevlakte onder een functie
Code: Selecteer alles

end
function area( x1 , x2 , q , func$ )
  som = 0
  for a = x1 to x2 step ( x2 - x1 ) / q
    q$ = replace$( func$ , "#" , str$( a ) )
    som = som + eval( q$ )
  next a
  area = som / q
end function
function dif( x , dx , func$ )
  if dx < 1e-13 then dx = 1e-13
  q$ = replace$( func$ , "#" , str$( x ) )
  dq$ = replace$( func$ , "#" , str$( x + dx ) )
  dif = ( eval( dq$ ) - eval( q$ ) ) / dx
end function
function replace$( org$ , remove$ , putin$ )
  while instr( org$ , remove$ ) <> 0
    a = instr( org$ , remove$ )
    l$ = left$( org$ , a - 1 )
    r = len( remove$ )
    r$ = mid$( org$ , a + r , len( org$ ) - r )
    org$ = l$ + putin$ + r$
  wend
  replace$ = org$
end function

WAARSCHUWING :
deze metode wordt NIET goedgekeurd in een
wiskunde proefwerk
bluatigro
 
Berichten: 306
Geregistreerd: za sep 27, 2008 6:01 pm

Keer terug naar Liberty BASIC Code

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron