← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to applic/proc/wavpos.prg

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
applic/proc/wavpos.prg
 
1
! @(#)wavpos.prg        19.1 (ES0-DMD) 02/25/03 13:20:21
 
2
COMP/TABLE WAVPOS :SINB = (:ORDER*:WAVE/319800.)-0.9396926
 
3
COMP/TABLE WAVPOS :TAGB = :SINB/SQRT(1.-:SINB*:SINB)
 
4
COMP/TABLE WAVPOS :X    = 298.9*(:TAGB-1.539865)/(1.+1.539865*:TAGB)
 
5
COMP/TABLE WAVPOS :SINC = (:WAVE/33333.33)-0.4461978
 
6
COMP/TABLE WAVPOS :TAGC = :SINC/SQRT(1.-:SINC*:SINC)
 
7
COMP/TABLE WAVPOS :Y    = 298.9*(:TAGC-0.3345953)/(1.+0.3345953*:TAGC)