// This function plot Histogram of Radial distance of
// Branch Point and Terminal Point
// Outputs:	Historgram Plots
// Inputs:	vector_distance_Apic_BP_b
//		vector_distance_Basal_BP_b
//		vector_distance_Apic_TP_b
//		vector_distance_Basal_TP_b
// written by Jose Gomez, March 2006, jfcgomez@ull.es



hist1b=vector_distance_Apic_BP_b.c
hist2b=vector_distance_Basal_BP_b.c
hist3b=vector_distance_Apic_TP_b.c
hist4b=vector_distance_Basal_TP_b.c

hist5b=L_TP_apical_b.c
hist6b=L_TP_basal_b.c

proc hist_graphb() {
		
		$o1=$o1.histogram(0,$3,50)
		$o1=$o1.reverse
		v1=new Vector($o1.size())
		v1.indgen(-($3+50),50)
		$o4=$o4.histogram(0,$5,50)
		v4=new Vector($o4.size())
		v4.indgen(0,50)	
		$o1=$o1.append($o4)
		v1=v1.append(v4)
		$o1.plot($o2,v1)
}



g1b.erase()
g2b.erase()
//g3b.erase()


hist_graphb(hist1b,g1b,550,hist2b,250)
hist_graphb(hist3b,g2b,600,hist4b,400)
hist_graphb(hist5b,g3b,1500,hist6b,700)