Elektronik

Umrechnung der Windgeschwindigkeit in Windstärke nach Beaufort

 

1. Aufgabe

Die Funktion ist für Bascom-AVR geschrieben und ermöglicht es, die Windgeschwindigkeit (in Km/h) in Windstärke nach Beaufort umzurechnen.

2. Programm

'*****************************************************************************************
' Name   
' Author   
' Purpose  
' Version  
' Compiler 
' Bytes 
' Chiptype  
: beaufort.bas
: DG1XPZ
: conversion wind speed into wind velocity 
: V0.1
: Bascom AVR 1.11.7.4
: 2632
: Atmel AVR
'*****************************************************************************************
$regfile = "m8def.dat"
$crystal = 4000000 

Declare Function Beaufort(wind As Word) As Integer
Dim Wind_v As Word
Dim Windstaerke As Integer

Wind_v = 150
       'Wert Windgeschwindigkeit
Windstaerke = Beaufort(wind_v)
Print Wind_v ; "Km/h = Windstärke(Beaufort): " ; Windstaerke      
'Ausgabe der Windstaerke

Function Beaufort(wind As Word) As Integer
  Dim Ws As Single
  Dim Tmp As Single
  Dim Wsi As Integer
  Ws = Wind / 3.6
  Ws = Ws - 0.07
  Ws = Ws / 0.834
  Ws = Ws * Ws
  Ws = Log(ws)
  Tmp = Log(10)
  Ws = Ws / Tmp
  Ws = Ws / 3
  Tmp = 10
  Ws = Power(tmp , Ws)
  Ws = Round(ws)
  Wsi = Int(ws)
  Beaufort = Wsi
End Function

End


3. Download beaufort.bas 
    


http://www.counter-service.de http://www.counter-service.de
Home
uebermich
Programmierung
Amateurfunk
Elektronik
Download
Links
E-Mail
Gästebuch/Meckerecke
Counter-DG1XPZ