Solitons in Ideal Optical Fibers - A Numerical Development