Campbell Scientific CR1000KD CR1000 Measurement and Control System - Page 188

Section 7. Installation 'Global variables (Used only outside subroutine by choice) 'Declare Counter in the Main Scan. Public counter(2) As Long 'Declare Product of PI * counter(2). Public pi_product(2) As Float 'Global variable (Used only in subroutine by choice) 'For / Next incrementor used in the subroutine. Public i_sub As Long 'Declare Data Table DataTable(pi_results,True,-1) Sample(1,counter(),IEEE4) EndTable 'Declare Subroutine 'Declares j(4) as local array (can only be used in subroutine) Sub ProcessSub (j(2) As Long,OutVar(2) As Float) For i_sub = 1 To 2 j(i_sub) = j(i_sub) + 1 'Processing to show functionality OutVar(i_sub) = j(i_sub) * 4 * ATN(1) '(Tip: 4 * ATN(1) = pi to IEEE4 precision) Next i_sub EndSub BeginProg counter(1) = 1 counter(2) = 2 Scan(1,Sec,0,0) 'Pass Counter() array to j() array, pi_pruduct() to OutVar() Call ProcessSub (counter(),pi_product()) CallTable pi_results NextScan EndProg 7.8.5 Wind Vector The WindVector() instruction processes wind-speed and direction measurements to calculate mean speed, mean vector magnitude, and mean vector direction over a data storage interval. Measurements from polar (wind speed and direction) or orthogonal (fixed East and North propellers) sensors are supported. Vector direction and standard deviation of vector direction can be calculated weighted or unweighted for wind speed. 7.8.5.1 OutputOpt Parameters In the CR1000 WindVector() instruction, the OutputOpt parameter defines the processed data that are stored. All output options result in an array of values, the elements of which have _WVc(n) as a suffix, where n is the element number. The array uses the name of the Speed/East variable as its base. table OutputOpt Options (p. 189) lists and describes OutputOpt options. 188