## Number of Wires.bas

Posted by doc on March 22, 2021

Rem W is the diameter of the wire in mm

Rem W = 0.35

Input “Diameter of wire in mm”,W

Rem H is the diameter of the hole in mm

Rem H = 8

Input “Diameter of hole in mm”,H

Input “Length per winding in mm”,L

Print “Winding calculator by Dr Liew”

Print “March 7th, 2021”

Print

Print “Diameter of wire = “;W;”mm”

Print

Print “Diameter of hole = “;H;”mm”

Print

Print “Length per winding = “;L;”mm”

Print

Rem t is the height of triangle

t = W/2

Rem A is the area of the hexagon

A = 2*sqrt(3)*(t^2)

Print “Area of hexagon = “; A;”mm²”

Print

Rem B is the area of the hole

B = 3.14159265354*((H/2)^2)

Print “Area of hole = “; B;”mm²”

Print

Print “Number of wires = “; int(B/A)

Print

Print “Length of wire required = “; int(B/A)*L;”mm”

## Leave a Reply