Записать систему уравнений, используя счетчик

@Art31 · Регистрация: 24.05.2020

Author24 — интернет-сервис помощи студентам

в системе вид уравнений зависит от четности/нечетности номера уравнения..

возможно ли так задавать, сейчас ругается на end do

возможно ли также в fsolve прописать счетчик? потому что в идеале должно быть 50 уравнений...

Haskell

> W1:=4197/(10)*1.4 :W2:=4197/(10)*5:k:=6954:F:=0.15: n:=10:  
 
        eq[1]:= (45-a[2]+a[1])/(ln((45)/(a[2]-a[1]))) - (W1)/(k*F)*(a[1]-5): 
   
for i from 2 to (n-1) do  if frac(i/(2)) = 0 then  
        eq[i]:= (45-a[i]+a[i-1])/(ln((45)/(a[i]-a[i-1]))) +(45-a[i]+a[i+1])/(ln((45)/(a[i]-a[i+1])))-(W2)/(k*F)*(50-a[i])  
else  
        eq[i] := (45-a[i-1]+a[i])/(ln((45)/(a[i-1]-a[i]))) +(45-a[i+1]+a[i])/(ln((45)/(a[i+1]-a[i])))-(W1)/(k*F)*(a[i]-5) end do:   
 
        eq[n] :=(45-a[n]+a[n-1])/(ln((45)/(a[n]-a[n-1])))-(W2)/(k*F)*(50-a[n]):   
 
s := fsolve({eq[1], eq[2], eq[3],eq[4],eq[5],eq[6], eq[7,] eq[8],eq[9],eq[10]}, {a[1], a[2], a[3],a[4],a[5],a[6], a[7], a[8],a[9],a[10]}):    
 
convert(s, radical); ;

@one man · 31.05.2020, 21:33

Сообщение от Art31

сейчас ругается на end do

Нет, ругается на грубую ошибку (отсутствие закрытия условного оператора) и на грязь в fsolve

@Art31 · 31.05.2020, 22:18 **[ТС]**

спасибо за подсказку о закрытии условного оператора.

Но как подмести в fsolve?
Попытка там запустить цикл со счетчиком не увенчалась успехом...

а мне нужно увеличить количество уравнений до 50...

@one man · 31.05.2020, 22:22

Сообщение от Art31

Но как подмести в fsolve?

Просто проверить и переписать аккуратно.

@Art31 · 01.06.2020, 20:21 **[ТС]**

eq[7,]...

вот поэтому и хотел бы переписать это со счетчиком..

может есть возможность обозначить всю систему через некую переменную?
а что тогда делать с неизвестными..

@one man · 01.06.2020, 20:49

Сообщение от Art31

а что тогда делать с неизвестными..

Именно fsolve работает без их дополнительного упоминания - там не надо их выписывать, что, кстати, отражено в справке.

Добавлено через 10 минут

Haskell

1	s := fsolve({eq[1], eq[2], eq[3], eq[4], eq[5], eq[6], eq[7], eq[8], eq[9], eq[10]});

Сообщение от Art31

может есть возможность обозначить всю систему через некую переменную?

Не знаю, как через одну переменную, но, например, такая автоматика работает:

Haskell

1	s := fsolve({seq(eq[i], i = 1 .. 10)});

@one man 156 / 337 / 62 Регистрация: 09.06.2015 Сообщений: 1,305
	31.05.2020, 21:33	2
	Сообщение от Art31 сейчас ругается на end do Нет, ругается на грубую ошибку (отсутствие закрытия условного оператора) и на грязь в fsolve 1

@Art31 0 / 0 / 0 Регистрация: 24.05.2020 Сообщений: 5
	31.05.2020, 22:18 [ТС]	3
	спасибо за подсказку о закрытии условного оператора. Но как подмести в fsolve? Попытка там запустить цикл со счетчиком не увенчалась успехом... а мне нужно увеличить количество уравнений до 50... 0

@one man 156 / 337 / 62 Регистрация: 09.06.2015 Сообщений: 1,305
	31.05.2020, 22:22	4
	Сообщение от Art31 Но как подмести в fsolve? Просто проверить и переписать аккуратно. 1

@Art31 0 / 0 / 0 Регистрация: 24.05.2020 Сообщений: 5
	01.06.2020, 20:21 [ТС]	5
	eq[7,]... вот поэтому и хотел бы переписать это со счетчиком.. может есть возможность обозначить всю систему через некую переменную? а что тогда делать с неизвестными.. 0

	01.06.2020, 20:49

Записать систему уравнений, используя счетчик

Решение