# Question:View Non Zero Range from List?

## Question:View Non Zero Range from List?

Maple
I'm using the following bit of code: step1:=1:for w[x] from start by jump to finish do: fsolve(test2,k,complex): answer:=%: k1:=Re(answer[1]): k2:=Im(answer[1]): k3:=Re(answer[2]): k4:=Im(answer[2]): data[step1,1]:=w[x]: data[step1,2]:=k1: data[step1,3]:=k2: data[step1,4]:=k3: data[step1,5]:=k4: step1:=step1+1: end do: Obtain All Data Points from Array points1:=seq([data[d,2],data[d,1]],d=1..nopoints): points2:=seq([data[d,3],data[d,1]],d=1..nopoints): points3:=seq([data[d,4],data[d,1]],d=1..nopoints): points4:=seq([data[d,5],data[d,1]],d=1..nopoints): Obtain Relevant Data Points points:=points1,points2,points3,points4: Real Plot of Dispersion Curve with(plots):pointplot({points1,points3},color=blue,symbol=point); s[4]:=pointplot({points1,points3},color=blue,symbol=point); with(plots):pointplot({points2,points4},color=black,symbol=point); s[5]:=pointplot({points2,points4},color=black,symbol=point); with(plots):pointplot({points}, symbol=point); display(s[4],s[5]); Basically, the complex formula w[x] is solved for both real and imaginary solutions across a range of values. The real and imaginary solutions are then grouped from the array, and then plotted seperately in plots showing real, imaginary and then both together. I'm trying to use the range commmand to find the extent of the imaginary band, before the real solutions continue. However, a lot of my solutions have zero as the value for k, so they are all displayed. Furthermore, I've been getting all solutions displayed, instead of just those at the periphery of the range. The piece of code for I've been using for the range is shown below, as it is only the range of the imaginary values of w[x] that I'm interested in. describe[range](points4); Any help would be greatly appreciated.
﻿