doScatter Subroutine

  1. examples.f90
  2. examples_prg
  3. doScatter

subroutine doScatter()

Arguments

None

Description

scatter

Calls

proc~~doscatter~~CallsGraph proc~doscatter doScatter proc~scatter scatter proc~doscatter->proc~scatter proc~ticks ticks proc~doscatter->proc~ticks proc~xylim xylim proc~doscatter->proc~xylim proc~labels labels proc~doscatter->proc~labels proc~subplot subplot proc~doscatter->proc~subplot proc~figure figure proc~doscatter->proc~figure interface~mixval mixval proc~scatter->interface~mixval plcol1 plcol1 proc~scatter->plcol1 plptex plptex proc~scatter->plptex plschr plschr proc~scatter->plschr plssym plssym proc~scatter->plssym plbox plbox proc~ticks->plbox plwind plwind proc~xylim->plwind pllab pllab proc~labels->pllab plvasp plvasp proc~subplot->plvasp pladv pladv proc~subplot->pladv plvsta plvsta proc~subplot->plvsta plssub plssub proc~subplot->plssub plvpor plvpor proc~subplot->plvpor proc~figure->pladv proc~figure->plssub pleop pleop proc~figure->pleop plbop plbop proc~figure->plbop
Help

Called By

proc~~doscatter~~CalledByGraph proc~doscatter doScatter program~examples_prg examples_prg program~examples_prg->proc~doscatter
Help

Variables

TypeVisibility AttributesNameInitial
integer, public, parameter:: N =100
real(kind=wp), public, dimension(N):: x
real(kind=wp), public, dimension(N):: y
real(kind=wp), public, dimension(N):: z

Source Code

	subroutine doScatter
		!! ![scatter](|media|/example-2.svg)
		integer,parameter::N = 100
		real(wp),dimension(N)::x,y,z
		
		call random_number(x)
		call random_number(y)
		z = sqrt(x**2+y**2)
		
		call figure()
		
		call subplot(2,2,1)
		call xylim([0.0_wp,1.0_wp],[0.0_wp,1.0_wp])
		call scatter(x,y)
		call ticks()
		call labels('x','y','')
		
		call subplot(2,2,2)
		call xylim([0.0_wp,1.0_wp],[0.0_wp,1.0_wp])
		call scatter(x,y,c=z)
		call ticks()
		call labels('x','y','')
		
		call subplot(2,2,3)
		call xylim([0.0_wp,1.0_wp],[0.0_wp,1.0_wp])
		call scatter(x,y,s=(4.0_wp*z+1.0_wp),markColor='blue')
		call ticks()
		call labels('x','y','')
		
		call subplot(2,2,4)
		call xylim([0.0_wp,1.0_wp],[0.0_wp,1.0_wp])
		call scatter(x,y,c=z,s=(4.0_wp*z+1.0_wp))
		call ticks()
		call labels('x','y','')
	end subroutine doScatter