and here is part two:
# Store random values in csv-file
try:
f = open("E:/CORINE/CP_Paper3/RunP/laufRunPen.csv", "a")
try:
# Write a string to a file
f.write(str(rnumber)+";"+str(rin)+";"+str(rfo)+";"+str(rpa)+";"+str(rwe)+";"+str(rro)+";"+str(rqgre)+";"+str(rqwir)+";"+str(rqkre)+";"+str(rqsch)+";"+str(rqaut)+";"+str(rqtun)+";"+str(rqbac)+";"+str(rqflu)+";"+str(rqeis)+";\n")
finally:
f.close()
except IOError:
pass
#REclassify crossing raster
querrec = Reclassify(quer, "Value", RemapValue([[0,rqgreint],[1,rqwirint],[2,rqkreint],[3,rqschint],[4,0], [5,rqautint],[6,rqtunint],[7,rqbacint], [8,rqfluint], [9,rqeisint]]))
#Calculate change in Crossingraster in percent
querrecfloat = 1.0 - (querrec / 10000.0)
#Aggregate crossing raster to 1sqkm
queragg = Aggregate(querrecfloat, 10, "MINIMUM", "EXPAND", "DATA")
#Use crossing raster to modify the influence of road dataset
inroab = inroa*queragg
#calculate ressource selection function (rsf) for the habitat model
rcalcstep2 = rin + (rfo*infor) + (rpa*inpas) + (rwe*inwet) + (rro*inroab)
#Substract cities and waterbodies, because the are not suitable
citya = city /1.0
watera = water /1.0
rcalcstep2a = ((rcalcstep2 * citya) * watera)
#Calculate Min and Max values of the rsf
min1 = str(arcpy.GetRasterProperties_management(rcalcstep2a, "Minimum"))
max1 = str(arcpy.GetRasterProperties_management(rcalcstep2a, "Maximum"))
#Change decimal point from "," to "."
min11 = min1.replace(",", ".")
max11 = max1.replace(",", ".")
min111 = float(min11)
max111 = float(max11)
#scale everything to the range of 0.0 to 1.0
rcalcstep3 = ((rcalcstep2a - min111)/(max111 - min111))
#Create Cost Raster for CostDistance analysis (and add 0.00001 because the value can't be 0)
incostraster = 1.00001 - rcalcstep3
#Define Backlinkraster
outBkLinkRaster = "E:/CORINE/CP_Paper3/RunP/backlink"
#Cost Distance Analysis
outCostDist = CostDistance(insourcedata, incostraster, "", outBkLinkRaster)
#create random points in the destination area
arcpy.CreateRandomPoints_management("E:/CORINE/CP_Paper3/RunP", "randFrankreich", ZielFrankreich, "", 1)
arcpy.CreateRandomPoints_management("E:/CORINE/CP_Paper3/RunP", "randItalien", ZielItalien, "", 1)
arcpy.CreateRandomPoints_management("E:/CORINE/CP_Paper3/RunP", "randSchweiz", ZielSchweiz, "", 1)
arcpy.CreateRandomPoints_management("E:/CORINE/CP_Paper3/RunP", "randVogesen", ZielVogesen, "", 1)
#Change points to Feature Layer
arcpy.MakeFeatureLayer_management("E:/CORINE/CP_Paper3/RunP/randFrankreich.shp", "FPFrankreich")
arcpy.MakeFeatureLayer_management("E:/CORINE/CP_Paper3/RunP/randItalien.shp", "FPItalien")
arcpy.MakeFeatureLayer_management("E:/CORINE/CP_Paper3/RunP/randSchweiz.shp", "FPSchweiz")
arcpy.MakeFeatureLayer_management("E:/CORINE/CP_Paper3/RunP/randVogesen.shp", "FPVogesen")
arcpy.SaveToLayerFile_management("FPFrankreich","E:/CORINE/CP_Paper3/RunP/FPFrankreich_lyr.lyr")
arcpy.SaveToLayerFile_management("FPItalien","E:/CORINE/CP_Paper3/RunP/FPItalien_lyr.lyr")
arcpy.SaveToLayerFile_management("FPSchweiz","E:/CORINE/CP_Paper3/RunP/FPSchweiz_lyr.lyr")
arcpy.SaveToLayerFile_management("FPVogesen","E:/CORINE/CP_Paper3/RunP/FPVogesen_lyr.lyr")
# CostPath Analysis
outCostPathFrankreich = CostPath("E:/CORINE/CP_Paper3/RunP/FPFrankreich_lyr.lyr", outCostDist, outBkLinkRaster, "BEST_SINGLE", "CID")
outCostPathItalien= CostPath("E:/CORINE/CP_Paper3/RunP/FPItalien_lyr.lyr", outCostDist, outBkLinkRaster, "BEST_SINGLE", "CID")
outCostPathschweiz = CostPath("E:/CORINE/CP_Paper3/RunP/FPSchweiz_lyr.lyr", outCostDist, outBkLinkRaster, "BEST_SINGLE", "CID")
outCostPathVogesen = CostPath("E:/CORINE/CP_Paper3/RunP/FPVogesen_lyr.lyr", outCostDist, outBkLinkRaster, "BEST_SINGLE", "CID")
# Conversion to polyline
arcpy.RasterToPolyline_conversion(outCostPathFrankreich, "E:/CORINE/CP_Paper3/RunP/CPPolyFrankreich.shp", "NODATA", "", "NO_SIMPLIFY")
arcpy.RasterToPolyline_conversion(outCostPathItalien, "E:/CORINE/CP_Paper3/RunP/CPPolyItalien.shp", "NODATA", "", "NO_SIMPLIFY")
arcpy.RasterToPolyline_conversion(outCostPathschweiz, "E:/CORINE/CP_Paper3/RunP/CPPolySchweiz.shp", "NODATA", "", "NO_SIMPLIFY")
arcpy.RasterToPolyline_conversion(outCostPathVogesen, "E:/CORINE/CP_Paper3/RunP/CPPolyVogesen.shp", "NODATA", "", "NO_SIMPLIFY")
#Dissolve Polylines in one line (because the line is divided in two lines, since the starting cell in the CostPath analysis has a different value
arcpy.Dissolve_management("E:/CORINE/CP_Paper3/RunP/CPPolyFrankreich.shp", "E:/CORINE/CP_Paper3/RunP/CPPolyFrankreich_dissolve.shp","", "", "SINGLE_PART","DISSOLVE_LINES")
arcpy.Dissolve_management("E:/CORINE/CP_Paper3/RunP/CPPolyItalien.shp", "E:/CORINE/CP_Paper3/RunP/CPPolyItalien_dissolve.shp","", "", "SINGLE_PART","DISSOLVE_LINES")
arcpy.Dissolve_management("E:/CORINE/CP_Paper3/RunP/CPPolySchweiz.shp", "E:/CORINE/CP_Paper3/RunP/CPPolySchweiz_dissolve.shp","", "", "SINGLE_PART","DISSOLVE_LINES")
arcpy.Dissolve_management("E:/CORINE/CP_Paper3/RunP/CPPolyVogesen.shp", "E:/CORINE/CP_Paper3/RunP/CPPolyVogesen_dissolve.shp","", "", "SINGLE_PART","DISSOLVE_LINES")
#Merge with result storage file
arcpy.Append_management("E:/CORINE/CP_Paper3/RunP/CPPolyFrankreich_dissolve.shp", "E:/CORINE/CP_Paper3/RunP/CPFrankreich.shp", "TEST")
arcpy.Append_management("E:/CORINE/CP_Paper3/RunP/CPPolyItalien_dissolve.shp", "E:/CORINE/CP_Paper3/RunP/CPItalien.shp", "TEST", "", "" )
arcpy.Append_management("E:/CORINE/CP_Paper3/RunP/CPPolySchweiz_dissolve.shp", "E:/CORINE/CP_Paper3/RunP/CPSchweiz.shp", "TEST", "", "" )
arcpy.Append_management("E:/CORINE/CP_Paper3/RunP/CPPolyVogesen_dissolve.shp", "E:/CORINE/CP_Paper3/RunP/CPVogesen.shp", "TEST", "", "" )
#Extract ans store values of the CostDistance analysis in corresponding csv file
cdValueFrance = outCostDist * PunktFrankreich
cdValueFrance1= str(arcpy.GetRasterProperties_management(cdValueFrance, "Maximum"))
cdValueItaly = outCostDist * PunktItalien
cdValueItaly1= str(arcpy.GetRasterProperties_management(cdValueItaly, "Maximum"))
cdValueSchweiz = outCostDist * PunktSchweiz
cdValueSchweiz1= str(arcpy.GetRasterProperties_management(cdValueSchweiz, "Maximum"))
cdValueVogesen = outCostDist * PunktVogesen
cdValueVogesen1= str(arcpy.GetRasterProperties_management(cdValueVogesen, "Maximum"))
try:
f = open("E:/CORINE/CP_Paper3/RunP/CDWerte_der_Laeufe.csv", "a")
try:
f.write(str(rnumber)+";"+str(cdValueFrance1)+";"+str(cdValueItaly1)+";"+str(cdValueSchweiz1)+";"+str(cdValueVogesen1)+";\n")
finally:
f.close()
except IOError:
pass
#Reset variables to None
rin = None
rfo = None
rpa = None
rwe = None
rro = None
rqgre = None
rqwir = None
rqkre = None
rqsch = None
rqaut = None
rqtun = None
rqbac = None
rqflu = None
rqeis = None
rqgreint = None
rqwirint = None
rqkreint = None
rqschint = None
rqautint = None
rqtunint = None
rqbacint = None
rqfluint = None
rqeisint = None
querrec = None
querrecfloat = None
queragg = None
inroab = None
rcalcstep2 = None
citya = None
watera = None
rcalcstep2a = None
min1 = None
max1 = None
min11 = None
max11 = None
min111 = None
max111 = None
rcalcstep3 = None
incostraster = None
outBkLinkRaster = None
outCostDist = None
PFrankreich = None
PItalien = None
PSchweiz = None
PVogesen = None
outCostPathFrankreich = None
outCostPathItalien= None
outCostPathschweiz = None
outCostPathVogesen = None
cdValueFrance = None
cdValueFrance1= None
cdValueItaly = None
cdValueItaly1= None
cdValueSchweiz = None
cdValueSchweiz1= None
cdValueVogesen = None
cdValueVogesen1= None
rnumber = rnumber + 1
arcpy.CheckInExtension("spatial")
print "End of simulation"
If anyone has any idea that would be great. I am completly lost and dont know what to do and nobody at my faculty has any idea on that subject. I'm trying to find the problem for two weeks now and I'm really close to going completly insane! :mad:Thanks a lot guys,maybe there is still hope,Dominik