オームの法則
register(V,I,R) :- V = I*R. % オームの法則