Generating User Defined Functions
383
RMB Version.
10 ! RE-SAVE "SINE_FN.ASC"
20 !
30 ! DESCRIPTION: Example program to illustrate the use of Custom Functions
40 ! in the E1415A. This example shows the use of RMB.
50 ! This example shows the creation of a Haversine function.
60 !
70 ! The Build_table subprogram receives the minimum and maximum ranges
80 ! over which the function it to be built. You supply the algebraic
90 ! expression for FNMy_function().
100 !
110 ! ******************************************************************
120
INTEGER Coef_array(0:511),Error
130
REAL Hpibintfc,Cmdmodule,E1413_ladd,E1413addr
140
INTEGER Lin_piecewise,Ilin(0:3),Ipiec(0:514)
150
REAL Min_input,Max_input
160
DIM String$[333]
170
ASSIGN @Err TO 1
180 !
190 ! ********************************************************************
200 ! The following three lines should be customized for each installation
210
Hpibintfc=7 ! Hpib interface number for E1415
220
Cmdmodule=9 ! Hpib address for command module for E1415
230
E1415_ladd=208 ! Logical address for E1415 card
240 ! ********************************************************************
250
ON TIMEOUT Hpibintfc,12 GOTO End_
260
E1415addr=Hpibintfc*10000+Cmdmodule*100+E1415_ladd/8
270
ASSIGN @E1415 TO E1415addr
280
ASSIGN @Bus TO Hpibintfc;FORMAT OFF
290 !
300
OUTPUT @E1415;"*RST;*CLS"
310
OUTPUT @E1415;"*IDN?"
320
ENTER @E1415;String$
330
PRINT String$
340
!
350
! Select the Domain values for the function.
360
!
370
Min_input=-2
380
Max_input=2
390
CALL Build_table(Max_input,Min_input,Table_range,Table_offset,Coef_array(*))
400
!
410
! Download the function table and define the function
420
!
430
Ipiec(0)=256*NUM("#")+NUM("4") !build block
440
Ipiec(1)=256*NUM("1")+NUM("0") !1024 bytes
450
Ipiec(2)=256*NUM("2")+NUM("4") !512 Integers
460
FOR Ii=0 TO 511
470
Ipiec(Ii+3)=Coef_array(Ii)
480
NEXT Ii
490
GOSUB Err_check
500
OUTPUT @E1415;"ALG:FUNC:DEF ’sin’,";Table_range;",";Table_offset;",";
510
OUTPUT @Bus;Ipiec(*) !add block
520
OUTPUT @Bus;CHR$(10);END !terminate
530 !
540
GOSUB Err_check
550 !
560 ! Now define an algorithm to use sin(x) and tests its functionality.
570 !
Содержание VXI 75000 C Series
Страница 2: ......
Страница 16: ...16 ...
Страница 18: ......
Страница 30: ...30 Getting Started Chapter 1 Notes ...
Страница 32: ...32 Field Wiring Chapter 2 Figure 2 1 Channel Numbers at SCP Positions ...
Страница 44: ...44 Field Wiring Chapter 2 Figure 2 11 HP E1415 Terminal Module ...
Страница 54: ...54 Field Wiring Chapter 2 Notes ...
Страница 61: ...Programming the HP E1415 for PID Control 61 Chapter 3 Programming Overview Diagram ...
Страница 124: ...124 Creating and Running Custom Algorithms Chapter 4 Figure 4 2 Algorithm Operating Sequence Diagram ...
Страница 136: ...136 Creating and Running Custom Algorithms Chapter 4 Notes ...
Страница 152: ...152 Algorithm Language Reference Chapter 5 Notes ...
Страница 304: ...304 HP E1415 Command Reference Chapter 6 Command Quick Reference Notes ...
Страница 308: ...308 Specifications Appendix A Thermocouple Type E 200 800C SCPs HP E1501 02 03 ...
Страница 309: ...Specifications 309 Appendix A Thermocouple Type E 200 800C SCPs HP E1508 09 ...
Страница 310: ...310 Specifications Appendix A Thermocouple Type E 0 800C SCPs HP E1501 02 03 ...
Страница 311: ...Specifications 311 Appendix A Thermocouple Type E 0 800C SCPs HP E1509 09 ...
Страница 312: ...312 Specifications Appendix A Thermocouple Type E Extended SCPs HP E1501 02 03 ...
Страница 313: ...Specifications 313 Appendix A Thermocouple Type E Extended SCPs HP E1508 09 ...
Страница 314: ...314 Specifications Appendix A Thermocouple Type J SCPs HP E1501 02 03 ...
Страница 315: ...Specifications 315 Appendix A Thermocouple Type J SCPs HP E1508 09 ...
Страница 316: ...316 Specifications Appendix A Thermocouple Type K SCPs HP E1501 02 03 ...
Страница 317: ...Specifications 317 Appendix A Thermocouple Type R SCPs HP E1501 02 03 ...
Страница 318: ...318 Specifications Appendix A Thermocouple Type R SCPs HP E1508 09 ...
Страница 319: ...Specifications 319 Appendix A Thermocouple Type S SCPs HP E1501 02 03 ...
Страница 320: ...320 Specifications Appendix A Thermocouple Type S SCPs HP E1508 09 ...
Страница 321: ...Specifications 321 Appendix A Thermocouple Type T SCPs HP E1501 02 03 ...
Страница 322: ...322 Specifications Appendix A Thermocouple Type T SCPs HP E1508 09 ...
Страница 323: ...Specifications 323 Appendix A 5K Thermistor Reference SCPs HP E1501 02 03 ...
Страница 324: ...324 Specifications Appendix A 5K Thermistor Reference SCPs HP E1508 09 ...
Страница 325: ...Specifications 325 Appendix A RTD Reference SCPs HP E1501 02 03 ...
Страница 326: ...326 Specifications Appendix A RTD SCPs HP E1501 02 03 ...
Страница 327: ...Specifications 327 Appendix A RTD SCPs HP E1508 09 ...
Страница 328: ...328 Specifications Appendix A 2250 Thermistor SCPs HP E1501 02 03 ...
Страница 329: ...Specifications 329 Appendix A 2250 Thermistor SCPs HP E1508 09 ...
Страница 330: ...330 Specifications Appendix A 5K Thermistor SCPs HP E1501 02 03 ...
Страница 331: ...Specifications 331 Appendix A 5K Thermistor SCPs HP E1508 09 ...
Страница 332: ...332 Specifications Appendix A 10K Thermistor SCPs HP E1501 02 03 ...
Страница 333: ...Specifications 333 Appendix A 10K Thermistor SCPs HP E1508 09 ...
Страница 334: ...334 Specifications Appendix A Notes ...
Страница 346: ...346 Glossary Appendix C Notes ...
Страница 388: ...388 Generating User Defined Functions Appendix F Notes ...
Страница 438: ...438 Index Writing the algorithm 129 values to CVT elements 120 values to the FIFO 121 Z ZERO CALibration ZERO 194 ...