<!--- UVI-Formel sunproz ANFANG--->

%unit_off%
%ws_setmem[2]=%ws_compare[3]=%ws_week%~1~12,0~0%%
%ws_setmem[3]=%ws_compare[3]=%ws_week%~2~12,2~0%%
%ws_setmem[4]=%ws_compare[3]=%ws_week%~3~12,5~0%%
%ws_setmem[5]=%ws_compare[3]=%ws_week%~4~12,7~0%%
%ws_setmem[6]=%ws_compare[3]=%ws_week%~5~13,0~0%%
%ws_setmem[7]=%ws_compare[3]=%ws_week%~6~13,3~0%%
%ws_setmem[8]=%ws_compare[3]=%ws_week%~7~13,5~0%%
%ws_setmem[9]=%ws_compare[3]=%ws_week%~8~13,7~0%%
%ws_setmem[10]=%ws_compare[3]=%ws_week%~9~14,0~0%%
%ws_setmem[11]=%ws_compare[3]=%ws_week%~10~14,2~0%%
%ws_setmem[12]=%ws_compare[3]=%ws_week%~11~14,5~0%%
%ws_setmem[13]=%ws_compare[3]=%ws_week%~12~14,8~0%%
%ws_setmem[14]=%ws_compare[3]=%ws_week%~13~15,8~0%%	
%ws_setmem[15]=%ws_compare[3]=%ws_week%~14~15,0~0%%	
%ws_setmem[16]=%ws_compare[3]=%ws_week%~15~15,3~0%%	
%ws_setmem[17]=%ws_compare[3]=%ws_week%~16~15,5~0%%	
%ws_setmem[18]=%ws_compare[3]=%ws_week%~17~15,6~0%%	
%ws_setmem[19]=%ws_compare[3]=%ws_week%~18~15,7~0%%	
%ws_setmem[20]=%ws_compare[3]=%ws_week%~19~15,8~0%%
%ws_setmem[21]=%ws_compare[3]=%ws_week%~20~15,9~0%%
%ws_setmem[22]=%ws_compare[3]=%ws_week%~21~16,0~0%%
%ws_setmem[23]=%ws_compare[3]=%ws_week%~22~16,1~0%%
%ws_setmem[24]=%ws_compare[3]=%ws_week%~23~16,2~0%%
%ws_setmem[25]=%ws_compare[3]=%ws_week%~24~16,2~0%%
%ws_setmem[26]=%ws_compare[3]=%ws_week%~25~16,2~0%%
%ws_setmem[27]=%ws_compare[3]=%ws_week%~26~16,2~0%%	
%ws_setmem[28]=%ws_compare[3]=%ws_week%~27~16,2~0%%
%ws_setmem[29]=%ws_compare[3]=%ws_week%~28~16,1~0%%
%ws_setmem[30]=%ws_compare[3]=%ws_week%~29~16,0~0%%
%ws_setmem[31]=%ws_compare[3]=%ws_week%~30~15,9~0%%
%ws_setmem[32]=%ws_compare[3]=%ws_week%~31~15,8~0%%
%ws_setmem[33]=%ws_compare[3]=%ws_week%~32~15,7~0%%
%ws_setmem[34]=%ws_compare[3]=%ws_week%~33~15,6~0%%
%ws_setmem[35]=%ws_compare[3]=%ws_week%~34~15,5~0%%
%ws_setmem[36]=%ws_compare[3]=%ws_week%~35~15,4~0%%
%ws_setmem[37]=%ws_compare[3]=%ws_week%~36~15,3~0%%
%ws_setmem[38]=%ws_compare[3]=%ws_week%~37~15,2~0%%
%ws_setmem[39]=%ws_compare[3]=%ws_week%~38~15,1~0%%
%ws_setmem[40]=%ws_compare[3]=%ws_week%~39~15,1~0%%  	
%ws_setmem[41]=%ws_compare[3]=%ws_week%~40~15,2~0%%	
%ws_setmem[42]=%ws_compare[3]=%ws_week%~41~15,0~0%%
%ws_setmem[43]=%ws_compare[3]=%ws_week%~42~14,8~0%%
%ws_setmem[44]=%ws_compare[3]=%ws_week%~43~14,5~0%%
%ws_setmem[45]=%ws_compare[3]=%ws_week%~44~14,3~0%%
%ws_setmem[46]=%ws_compare[3]=%ws_week%~45~14,0~0%%
%ws_setmem[47]=%ws_compare[3]=%ws_week%~46~13,7~0%%
%ws_setmem[48]=%ws_compare[3]=%ws_week%~47~13,5~0%%
%ws_setmem[49]=%ws_compare[3]=%ws_week%~48~13,3~0%%
%ws_setmem[50]=%ws_compare[3]=%ws_week%~49~13,0~0%%
%ws_setmem[51]=%ws_compare[3]=%ws_week%~50~12,8~0%%
%ws_setmem[52]=%ws_compare[3]=%ws_week%~51~12,5~0%%
%ws_setmem[53]=%ws_compare[3]=%ws_week%~52~12,0~0%%
%ws_setmem[54]=%ws_compare[3]=%ws_week%~53~11,8~0%%
%ws_setmem[14]=%ws_calcmem[+]=2~54~0%%
%ws_setmem[1]=%ws_calc[/]=%ws_sunpos_el%~90~2%%
%ws_setmem[2]=%ws_calc[/]=%ws_sunpos_el%~90~2%%
%ws_setmem[23]=%ws_calc[*]=%ws_getmem[1]%~%ws_getmem[2]%~3%%
%ws_setmem[15]=%ws_calc[*]=%ws_getmem[14]%~%ws_getmem[23]%~1%%
%ws_setmem[16]=%ws_calc[*]=%ws_getmem[15]%~%sunproz%~1%%
%ws_setmem[17]=%ws_calc[/]=%ws_altitude%~100~2%%
%ws_setmem[18]=%ws_calc[+]=100~%ws_getmem[17]%~2%%
%ws_setmem[19]=%ws_calc[/]=%ws_getmem[18]%~100~2%%
%ws_setmem[20]=%ws_calc[*]=%ws_getmem[19]%~%ws_getmem[16]%~2%%
%ws_setmem[120]=%ws_calc[/]=%ws_getmem[20]%~100~1%%
%ws_setmem[121]=%ws_calc[/]=%ws_getmem[20]%~100~1%%
%unit_on%
%ws_setmem[3]=%ws_replacestr=,~.~%ws_getmem[120]%%%
%varstore_write[877~%ws_getmem[3]%]%

<!--- UVI-Formel sunproz Ende --->