<?xml version="1.0" encoding="utf-8"?> <XFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> Public Const Deg2Rad As Double = Math.PI / 180 Const Rad2Deg as Double = 180 / PI Public Function GetXValue(ByVal R as Double, ByVal phi as Double,alpha as Double) As Double GetXValue=((R*Math.sin(rad(alpha))*Math.sin(rad(phi)))/Math.sin(rad(180-phi-alpha))) End Function ... ... some data in xml format ... ... </XFile>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)