Схема для измерения сопротивления  в авометре.
 Расчет резисторов R1 и R2 омметра при заданных U, R0, Ipr, Rpr .

>	restart:  #Когда Rx=0,цепи с I1 и I2 параллельны U и Ix=Ipr. k:=2:     #Делитель для R0. При к=2 начальное состояние R0 - 50%

>	a:=U=I1*R1+Ipr*Rpr:  #Ipr- максим. показ. прибора, Rpr-его сопротивление b:=I1=I0+Ipr:        # 3 уравнения с неизвестными I1,I0,R1 c:=I0*R0/k=Ipr*Rpr:

>	eqns:={a,b,c}:#Система  уравнений soln:=solve(eqns,{I1,I0,R1}):#решение системы уравнений

>	assign(soln);#для R1 присвоить вычисленное его значение R1;

>	#Теперь при Rx не равном 0

>	I1:='I1':I0:='I0':# Инициализация переменных I1, I0 a:=U=I2*R2+i*Rx: # 5 уравнений с неизвестными I1,I2,I0,R2,i b:=i=I1+I2: c:=I2*R2=I1*R1+Ix*Rpr: d:=I0*R0/k=Ix*Rpr: e:=I1=I0+Ix:

>	eqns:={a,b,c,d,e}:#Система  уравнений soln:=solve(eqns,{I1,I2,I0,R2,i}):#решение системы уравнений

>	assign(soln);#для R2 присвоить вычисленное его значение R2;

>

>	#И численное решение

>	U:=3:Rpr:=100:R0:=1000:Ipr:=1e-4:Ix:=Ipr/2:Rx:=20:#Ix-полшкалы для Rx=20

>	evalf(R1);

>	evalf(R2);

>	#Моделирование в EWB все прекрасно подтверждает

>