to post messages and comments.

I
1)Актуальность проблемы
2)Что существует на сегоднешний день
3)Предложенное решение

II Подробное описание. Мат обоснование.

III Выводы.

myfun<-function(i,j){
k<-xTMP[i,j]
if(k!=0){
myfun(i,k)
print(k)
myfun(k,j)}}

x<-matrix(c(0, 10, 0, 30, 90, 10, 0, 50, 0, 0, 0, 50, 0, 0, 10, 30,0, 0, 0, 60, 90,0,10,60,0), 5,byrow=TRUE)

xTMP<-matrix(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0,0,0,0,0), 5,byrow=TRUE)

c <- c(1:5)

maxV <- 100500

for(i in c)
for(j in c)
if(x[i,j]==0) x[i,j]<-maxV

for(i in c)
x[i,i]=0

for(k in c)
for(i in c)
for(j in c)
if(x[i,k]<100500 && x[k,j]<100500){
tmp<-x[i,k]+x[k,j]
if(tmp<x[i,j]){
x[i,j]<-tmp
xTMP[i,j]=k}}

for(i in c){
print("путь:")
print(1)
myfun(1,i)
print(i)
print("расстояние:")
print(x[1,i])
print("----------------")
}
buxanka (16:08:27 21/12/2010)
копируешь все. вставляешь в R
buxanka (16:08:32 21/12/2010)
получаешь ответ

<script type="text/javascript">
function validateDigit() {
var charCode = (event.which) ? event.which : event.keyCode
if (charCode > 31 && (charCode < 48 || charCode > 57))
return false;

return true;
}
</script>

валидация ввода только цыфр в Editbox

Один турист разглядывал выставленных для продажи животных в зоомагазине и увидел, как человек купил обезьяну за 5000 долларов. Он подошел к продавцу и поинтересовался, почему эта обезьяна такая дорогая. Продавец ответил: — Она очень быстро программирует на С, не делая ошибок, и пишет великолепный код. Тогда турист стал внимательно разглядывать других обезьян в этой клетке и заметил, что одна из них стоит 10000. — За что же назначена цена в два раза больше? — спросил он. Продавец сказал: — Эта обезьяна программирует на С++, Java и других объектно-ориентированных языках. Оглядев магазин, турист увидет еще одну обезьяну в отдельной клетке с табличкой $50000: — О! А вон та стоит 50000! Это неслыханная цена, что же она умеет? Продавец развел руками и сказал: — Сам я точно не знаю, но другие обезьяны называют ее Project Manager.