Keithley 1801, Инструкция по эксплуатации, Страница: 85 / 93

Calibration Programs
B-9
Program B-4. Calibration Program for Use with Fluke 5700A Calibrator (Turbo C Version)
/* Model 1801 calibration program for use with the
Fluke 5700A calibrator. */
#include "ieeeio.h"
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <string.h>
main()
{
static char *msg[] = {
"Set 262 divider ratio to 10^2.",
"Set 262 divider ratio to 10^3.",
"Set 262 divider ratio to 10^4.",
"Make sure divider is still set to 10^4.",
"Set 262 divider ratio to 10^3.",
"Set 262 divider ratio to 10^2.",
"Calculating constants..."
};
static char *cmd[] = {
":cal:unpr:pre:z1k",":cal:unpr:pre:z10k",
":cal:unpr:pre:z100k",":cal:unpr:pre:fs100k 20e-6",
":cal:unpr:pre:fs10k 200e-6",
":cal:unpr:pre:fs1k 2e-3",
":cal:unpr:pre:calc"
};
void keypress(),errcheck(),checkopt();
char date[10];
int i,calend();
if (ieeeinit()==-1){
printf("Cannot initialize interface.\n");
exit(1);
}
ieeewt("remote 16\n"); /* Put 2001 in remote. */
ieeewt("remote 04\n"); /* Put 5700A in remote. */
ieeewt("clear\n"); /* Send DCL. */
ieeewt("term lf eoi\n"); /* Set terminator. */
ieeewt("output 16;:syst:pres;*cls\n"); /* Initialize 2001. */
ieeewt("output 16;*ese 1;*sre 32\n"); /* Enable OPC, SRQ. */
ieeewt("output 04;*rst;*cls\n"); /* Reset 5700A. */
checkopt(); /* Check for 1801. */
clrscr(); /* Clear CRT. */
printf("Model 1801 Calibration Program.\n");
printf("This program controls the 5700A Calibrator.\n");
printf("Model 262 divider ratios must be set manually.\n\n");
ieeewt("output 04;out 1v,0 hz\n"); /* Set 2.2V range. */
ieeewt("output 04;rangelck on\n"); /* Lock range. */
ieeewt("output 04;extsense on\n"); /* Enable external sense */
ieeewt("output 04;out 0 v,0 hz\n"); /* Output 0V.*/
ieeewt("output 04;oper\n"); /* Calibrator in operate. */
printf("Set 262 to POS+ polarity.\n");
printf("Wait two minutes for thermals to settle.\n");
keypress();
for(i=0;i<=6;i++) { /* Loop for cal points. */