10a test

git-svn-id: https://bucket.mit.edu/svn/nilm/zoom@7904 ddd99763-3ecb-0310-9145-efcb8ce7c51f

pc/calibrate.c

@@ -169,7 +169,8 @@ void calibrate(int zoom, int gpib)
 	if (zoom_zero_stop(zoom) < 0) goto fail;
 
 	info("Sweeping\n");
-	for (idesired = -1.0; idesired <= 1.0 && !g_quit; idesired += 0.02) {
+//	for (idesired = -1.0; idesired <= 1.0 && !g_quit; idesired += 0.02) {
+	for (idesired = -0.2; idesired <= 0.2 && !g_quit; idesired += 0.02) {
 		info("Zeroing\n");
 		if (zoom_zero_start(zoom) < 0) goto fail;
 		

pc/data/20090914/README.txt

@@ -0,0 +1,4 @@
+calibrate-10a.log:
+  Using the calibrate tool to get curves for keithley ±200mA.
+  Effective with 50 turns is ±10A.
+

pc/data/20090914/doplot.m

@@ -0,0 +1,31 @@
+#!/usr/bin/octave
+# load data
+if (length(who("calibdata")) == 0) 
+  calibdata = load("calibrate-10a.log");
+endif
+
+# split it into each keithley value
+if (length(who("a")) == 0)
+  for i = 1 : (length(calibdata) / 4000)
+    block=1:4000;
+    a(i, block, 1) = calibdata((i-1) * 4000 + block, 2);
+    a(i, block, 2) = calibdata((i-1) * 4000 + block, 3);
+    a(i, block, 3) = calibdata((i-1) * 4000 + block, 1);
+  endfor
+endif
+
+# plot them all
+clf;
+figure(1);
+hold on
+
+for i = 1:size(a,1)
+  range = 1:4000;
+  x = a(i, range, 1);
+  y = a(i, range, 2);
+
+  plot(x, y);
+endfor
+
+
+